2004-07-17 Jeroen Frijters <jeroen@frijters.net>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / g77.f-torture / compile / 20010115.f

* GNATS PR Fortran/1636
      PRINT 42, 'HELLO'
   42 FORMAT(A)
      CALL WORLD
      END
      SUBROUTINE WORLD
      PRINT 42, 'WORLD'
   42 FORMAT(A)
      END