diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/entry_13.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/entry_13.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/entry_13.f90 b/gcc/testsuite/gfortran.dg/entry_13.f90 index 1858cc37735..c94e5562234 100644 --- a/gcc/testsuite/gfortran.dg/entry_13.f90 +++ b/gcc/testsuite/gfortran.dg/entry_13.f90 @@ -67,12 +67,12 @@ program test type(z) z1 z1 = x1//y1 - if (abs(z1%x - (19.0_4 + 7.0_4)) > epsilon(x1%x)) call abort () + if (abs(z1%x - (19.0_4 + 7.0_4)) > epsilon(x1%x)) STOP 1 z1 = y1//x1 - if (abs(z1%x - (19.0_4 - 7.0_4)) > epsilon(x1%x)) call abort () + if (abs(z1%x - (19.0_4 - 7.0_4)) > epsilon(x1%x)) STOP 2 z1 = x1==y1 - if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort () + if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) STOP 3 z1 = y1==x1 - if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) call abort () + if (abs(z1%x - 19.0_4/7.0_4) > epsilon(x1%x)) STOP 4 end program test |