Duplicated 980310-2.f.

From-SVN: r19737

Duplicated 980310-2.f.
From-SVN: r19737
87391604 · Dave Love · 9dd07f87 · 9dd07f87
Commit 87391604 authored May 14, 1998 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 0 additions and 12 deletions

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

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