gcc/testsuite/gfortran.dg/g77/20010115.f

   1 c { dg-do compile }
   2 * GNATS PR Fortran/1636
   3       PRINT 42, 'HELLO'
   4    42 FORMAT(A)
   5       CALL WORLD
   6       END
   7       SUBROUTINE WORLD
   8       PRINT 42, 'WORLD'
   9    42 FORMAT(A)
  10       END