20010115.f: New test.

2001-01-15  Toon Moene  <toon@moene.indiv.nluug.nl>

	* g77.f-torture/compile/20010115.f: New test.

From-SVN: r39041

gcc/testsuite/ChangeLog

+2001-01-15  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	* g77.f-torture/compile/20010115.f: New test.
+
 2001-01-15  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* g++.old-deja/g++.pt/nontype5.C: New test.

gcc/testsuite/g77.f-torture/compile/20010115.f

+      PRINT 42, 'HELLO'
+   42 FORMAT(A)
+      CALL WORLD
+      END
+      SUBROUTINE WORLD
+      PRINT 42, 'WORLD'
+   42 FORMAT(A)
+      END