From: Toon Moene <toon@moene.indiv.nluug.nl>
Date: Mon, 15 Jan 2001 16:48:35 +0000 (+0100)
Subject: 20010115.f: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9f1630a9884cb8a716bf6c704ad13b33fe53ca58;p=gcc.git

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 3ea7b8086e9..8e1a956af54 100644
--- 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
index 00000000000..71e8c6948b9
--- /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