diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/980310-2.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/980310-2.f | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/980310-2.f b/gcc/testsuite/gfortran.dg/g77/980310-2.f index 829706a9e62..1ed5efc5960 100644 --- a/gcc/testsuite/gfortran.dg/g77/980310-2.f +++ b/gcc/testsuite/gfortran.dg/g77/980310-2.f @@ -33,12 +33,12 @@ C doesn't exist in the g77 runtime) C C RND - Return a random integer mod n C - INTEGER FUNCTION RND (N) - IMPLICIT INTEGER (A-Z) - REAL RAND - COMMON /SEED/ RNSEED + INTEGER FUNCTION RND (N) + IMPLICIT INTEGER (A-Z) + REAL RAND + COMMON /SEED/ RNSEED - RND = RAND(RNSEED)*FLOAT(N) - RETURN + RND = RAND(RNSEED)*FLOAT(N) + RETURN - END + END |