new test from egcs-bug archives.

From-SVN: r15895

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 (file)
index 0000000..1d95d52
--- /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