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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3ea7b8086e9bd44524641b63fb4fd030debd6556..8e1a956af541436cf9b4d3cd5bf38dce06ac2fc2 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/testsuite/g77.f-torture/compile/20010115.f b/gcc/testsuite/g77.f-torture/compile/20010115.f
new file mode 100644 (file)
index 0000000..71e8c69
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20010115.f
@@ -0,0 +1,8 @@
+      PRINT 42, 'HELLO'
+   42 FORMAT(A)
+      CALL WORLD
+      END
+      SUBROUTINE WORLD
+      PRINT 42, 'WORLD'
+   42 FORMAT(A)
+      END