comparison gcc/testsuite/gfortran.dg/random_3.f90 @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900 (2018-10-24)
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
28 ! Reset the seed and get the real(8) values. 28 ! Reset the seed and get the real(8) values.
29 call random_seed (put=seed) 29 call random_seed (put=seed)
30 call random_number(r10) 30 call random_number(r10)
31 call random_number (r10(10)) 31 call random_number (r10(10))
32 32
33 if (any ((r8 - r10) .gt. delta)) call abort 33 if (any ((r8 - r10) .gt. delta)) STOP 1
34 end if 34 end if
35 end program random_3 35 end program random_3