From 31c0e01bc561994ca65c1d43530ab23351818cf3 Mon Sep 17 00:00:00 2001
From: Jeff Law <law@gcc.gnu.org>
Date: Tue, 14 Oct 1997 11:35:26 -0600
Subject: [PATCH] new test from egcs-bug archives.

From-SVN: r15895
---
 gcc/testsuite/g77.f-torture/compile/971014-1.f | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 gcc/testsuite/g77.f-torture/compile/971014-1.f

diff --git a/gcc/testsuite/g77.f-torture/compile/971014-1.f b/gcc/testsuite/g77.f-torture/compile/971014-1.f
new file mode 100644
index 00000000000..1d95d52e101
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/971014-1.f
@@ -0,0 +1,12 @@
+C
+C RND - Return a random integer mod n
+C
+	INTEGER FUNCTION RND (N)
+	IMPLICIT INTEGER (A-Z)
+	REAL RAND
+	COMMON /SEED/ RNSEED
+
+	RND = RAND(RNSEED)*FLOAT(N)
+	RETURN
+
+	END
-- 
2.30.2