program test
c
c Just in case you don't know FORTRAN (what planet you from?) this code is an
c infinite loop.
c
      implicit none
      integer * 4 i
c
      i = 0
      do while (.true.)
         i = i + 1
      enddo
      end