new test from egcs-bug archives.

From-SVN: r15895

new test from egcs-bug archives.
From-SVN: r15895
31c0e01b · Jeff Law · 9abbaac7 · 31c0e01b
Commit 31c0e01b authored 27 years ago by Jeff Law
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 0 deletions

gcc/testsuite/g77.f-torture/compile/971014-1.f
+12 -0

No files found.
--- a/gcc/testsuite/g77.f-torture/compile/971014-1.f
+++ b/gcc/testsuite/g77.f-torture/compile/971014-1.f
+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