diff options
author | Dave Love <fx@gcc.gnu.org> | 1998-05-14 02:32:14 +0000 |
---|---|---|
committer | Dave Love <fx@gcc.gnu.org> | 1998-05-14 02:32:14 +0000 |
commit | 87391604729c95bec9b45ec81c2ea383da4ccaa8 (patch) | |
tree | 761c5fa22d086d2369e9b3c2e8e8ded0f7c95622 | |
parent | 9dd07f87f3093bf14120a0e7587546c39ec71ef3 (diff) | |
download | gcc-87391604729c95bec9b45ec81c2ea383da4ccaa8.zip gcc-87391604729c95bec9b45ec81c2ea383da4ccaa8.tar.gz gcc-87391604729c95bec9b45ec81c2ea383da4ccaa8.tar.bz2 |
Duplicated 980310-2.f.
From-SVN: r19737
-rw-r--r-- | gcc/testsuite/g77.f-torture/compile/971014-1.f | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/971014-1.f b/gcc/testsuite/g77.f-torture/compile/971014-1.f deleted file mode 100644 index 1d95d52..0000000 --- a/gcc/testsuite/g77.f-torture/compile/971014-1.f +++ /dev/null @@ -1,12 +0,0 @@ -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 |