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