diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/mod_large_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/mod_large_1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/mod_large_1.f90 b/gcc/testsuite/gfortran.dg/mod_large_1.f90 index 1047ad62e98..98304c895ea 100644 --- a/gcc/testsuite/gfortran.dg/mod_large_1.f90 +++ b/gcc/testsuite/gfortran.dg/mod_large_1.f90 @@ -10,7 +10,7 @@ program mod_large_1 implicit none real :: r1 r1 = mod (1e22, 1.7) - if (abs(r1 - 0.995928764) > 1e-5) call abort + if (abs(r1 - 0.995928764) > 1e-5) STOP 1 r1 = modulo (1e22, -1.7) - if (abs(r1 + 0.704071283) > 1e-5) call abort + if (abs(r1 + 0.704071283) > 1e-5) STOP 2 end program mod_large_1 |