mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-12 02:56:46 +08:00
Code Issues Packages Projects Releases Wiki Activity

Duplicated 980310-2.f.

Browse Source 
From-SVN: r19737
This commit is contained in:
Dave Love 1998-05-14 02:32:14 +00:00
parent 9dd07f87f3
commit 8739160472
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/testsuite/g77.f-torture/compile/971014-1.f
View File

@ -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