mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-19 16:59:53 +08:00
Code Issues Packages Projects Releases Wiki Activity

new test from egcs-bug archives.

Browse Source 
From-SVN: r15895
This commit is contained in:
Jeff Law 1997-10-14 11:35:26 -06:00
parent 9abbaac7c2
commit 31c0e01bc5
1 changed files with 12 additions and 0 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 Normal file
View File

@ -0,0 +1,12 @@
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