diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/init_flag_10.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/init_flag_10.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/init_flag_10.f90 b/gcc/testsuite/gfortran.dg/init_flag_10.f90 index dac9418d614..64782456f43 100644 --- a/gcc/testsuite/gfortran.dg/init_flag_10.f90 +++ b/gcc/testsuite/gfortran.dg/init_flag_10.f90 @@ -21,15 +21,15 @@ contains real :: var1, var2 ! Should get NaN initialized ! Should be the default value - if (e%rmult /= 1.0) call abort () + if (e%rmult /= 1.0) STOP 1 ! Check that NaN initialization is really turned on - if (var1 == var1) call abort () - if (var2 == var2) call abort () + if (var1 == var1) STOP 2 + if (var2 == var2) STOP 3 ! The following was failing: associate (rmult=>e%rmult) - if (e%rmult /= 1.0) call abort () + if (e%rmult /= 1.0) STOP 4 end associate end subroutine test end module testa2 |