diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/ieee/ieee_6.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 b/gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 index 43aa3bfe0a5..96ceaff09b0 100644 --- a/gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 +++ b/gcc/testsuite/gfortran.dg/ieee/ieee_6.f90 @@ -24,18 +24,18 @@ call ieee_set_status(s1) call ieee_get_flag(ieee_all, flags) - if (any(flags)) call abort + if (any(flags)) STOP 1 call ieee_get_rounding_mode(mode) - if (mode /= ieee_down) call abort + if (mode /= ieee_down) STOP 2 call ieee_get_halting_mode(ieee_all, halt) - if (any(halt)) call abort + if (any(halt)) STOP 3 call ieee_set_rounding_mode(ieee_to_zero) call ieee_set_flag(ieee_underflow, .true.) call ieee_set_halting_mode(ieee_overflow, .true.) x = -1 x = sqrt(x) - if (.not. ieee_is_nan(x)) call abort + if (.not. ieee_is_nan(x)) STOP 4 call ieee_get_status(s2) @@ -43,11 +43,11 @@ if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & .or. all(flags .eqv. [.false.,.false.,.true.,.true.,.true.]) & .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]) & - .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) call abort + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) STOP 5 call ieee_get_rounding_mode(mode) - if (mode /= ieee_to_zero) call abort + if (mode /= ieee_to_zero) STOP 6 call ieee_get_halting_mode(ieee_all, halt) - if ((haltworks .and. .not. halt(1)) .or. any(halt(2:))) call abort + if ((haltworks .and. .not. halt(1)) .or. any(halt(2:))) STOP 7 call ieee_set_status(s2) @@ -55,20 +55,20 @@ if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & .or. all(flags .eqv. [.false.,.false.,.true.,.true.,.true.]) & .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]) & - .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) call abort + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) STOP 8 call ieee_get_rounding_mode(mode) - if (mode /= ieee_to_zero) call abort + if (mode /= ieee_to_zero) STOP 9 call ieee_get_halting_mode(ieee_all, halt) - if ((haltworks .and. .not. halt(1)) .or. any(halt(2:))) call abort + if ((haltworks .and. .not. halt(1)) .or. any(halt(2:))) STOP 10 call ieee_set_status(s1) call ieee_get_flag(ieee_all, flags) - if (any(flags)) call abort + if (any(flags)) STOP 11 call ieee_get_rounding_mode(mode) - if (mode /= ieee_down) call abort + if (mode /= ieee_down) STOP 12 call ieee_get_halting_mode(ieee_all, halt) - if (any(halt)) call abort + if (any(halt)) STOP 13 call ieee_set_status(s2) @@ -76,10 +76,10 @@ if (.not. (all(flags .eqv. [.false.,.false.,.true.,.true.,.false.]) & .or. all(flags .eqv. [.false.,.false.,.true.,.true.,.true.]) & .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.false.]) & - .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) call abort + .or. all(flags .eqv. [.false.,.false.,.true.,.false.,.true.]))) STOP 14 call ieee_get_rounding_mode(mode) - if (mode /= ieee_to_zero) call abort + if (mode /= ieee_to_zero) STOP 15 call ieee_get_halting_mode(ieee_all, halt) - if ((haltworks .and. .not. halt(1)) .or. any(halt(2:))) call abort + if ((haltworks .and. .not. halt(1)) .or. any(halt(2:))) STOP 16 end |