home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / examples / simple / simple.f < prev   
Text File  |  1993-06-28  |  138b  |  7 lines
  1.       program simple
  2.       real A(100), S
  3.       A = 10
  4.       S = sum(A)
  5.       print *, 'Sum of A = ', S, ' (should be 1000.0) '
  6.       end
  7.