From 9f1630a9884cb8a716bf6c704ad13b33fe53ca58 Mon Sep 17 00:00:00 2001
From: Toon Moene <toon@moene.indiv.nluug.nl>
Date: Mon, 15 Jan 2001 17:48:35 +0100
Subject: [PATCH] 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                        | 4 ++++
 gcc/testsuite/g77.f-torture/compile/20010115.f | 8 ++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 gcc/testsuite/g77.f-torture/compile/20010115.f

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
-- 
2.30.2