diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 b/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 index e4088c361aa..fe1f3a8a95e 100644 --- a/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 +++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 @@ -25,42 +25,42 @@ contains subroutine check_i8 (a, b) integer(kind=8), intent(in) :: a, b - if (a /= b) call abort() + if (a /= b) STOP 1 end subroutine check_i8 subroutine check_i4 (a, b) integer(kind=4), intent(in) :: a, b - if (a /= b) call abort() + if (a /= b) STOP 2 end subroutine check_i4 subroutine check_r8 (a, b) real(kind=8), intent(in) :: a, b - if (a /= b) call abort() + if (a /= b) STOP 3 end subroutine check_r8 subroutine check_r4 (a, b) real(kind=4), intent(in) :: a, b - if (a /= b) call abort() + if (a /= b) STOP 4 end subroutine check_r4 subroutine check_c8 (a, b) complex(kind=8), intent(in) :: a, b - if (a /= b) call abort() + if (a /= b) STOP 5 end subroutine check_c8 subroutine check_c4 (a, b) complex(kind=4), intent(in) :: a, b - if (a /= b) call abort() + if (a /= b) STOP 6 end subroutine check_c4 subroutine acheck_c8 (a, b) complex(kind=8), intent(in) :: a, b - if (abs(a-b) > 1.d-9 * min(abs(a),abs(b))) call abort() + if (abs(a-b) > 1.d-9 * min(abs(a),abs(b))) STOP 7 end subroutine acheck_c8 subroutine acheck_c4 (a, b) complex(kind=4), intent(in) :: a, b - if (abs(a-b) > 1.e-5 * min(abs(a),abs(b))) call abort() + if (abs(a-b) > 1.e-5 * min(abs(a),abs(b))) STOP 8 end subroutine acheck_c4 end module mod_check |