home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / do_enddo.f < prev    next >
Text File  |  1994-11-06  |  440b  |  20 lines
  1. c  VAX-compatible fortran: underscores & do-enddo
  2.       subroutine abc
  3.       sum = 0.0
  4.       do i=1,100
  5.          sum = sum + i
  6.       enddo
  7.       print *,sum  !@#$*&
  8.      # ,i
  9.       other_sum = 1.0
  10.       do while(other_sum .lt. 2000)
  11.          other_sum = other_sum * 2.0
  12.       end do
  13. ! here we have a nonstandard comment
  14.       print *,other_sum
  15.       dowhile ( x .ne. (1,2))
  16.          x = 3.0
  17.       end do
  18.       end
  19.       include 'average.f'
  20.