From 87391604729c95bec9b45ec81c2ea383da4ccaa8 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 14 May 1998 02:32:14 +0000 Subject: [PATCH] Duplicated 980310-2.f. From-SVN: r19737 --- gcc/testsuite/g77.f-torture/compile/971014-1.f | 12 ------------ 1 file changed, 12 deletions(-) delete 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 deleted file mode 100644 index 1d95d52e101..00000000000 --- 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 -- 2.30.2