diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/exponent_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/exponent_1.f90 | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/testsuite/gfortran.dg/exponent_1.f90 b/gcc/testsuite/gfortran.dg/exponent_1.f90 index 9f701e82be1..ebc028a7fc7 100644 --- a/gcc/testsuite/gfortran.dg/exponent_1.f90 +++ b/gcc/testsuite/gfortran.dg/exponent_1.f90 @@ -8,16 +8,16 @@ program gfcbug36 real, parameter :: one = 1.0 real :: a = one - if (fraction(a) /= 0.5) call abort - if (fraction(one) /= 0.5) call abort - if (fraction(1.0) /= 0.5) call abort + if (fraction(a) /= 0.5) STOP 1 + if (fraction(one) /= 0.5) STOP 2 + if (fraction(1.0) /= 0.5) STOP 3 - if (exponent(a) /= 1.0) call abort - if (exponent(one) /= 1.0) call abort - if (exponent (1.0) /= 1.0) call abort + if (exponent(a) /= 1.0) STOP 4 + if (exponent(one) /= 1.0) STOP 5 + if (exponent (1.0) /= 1.0) STOP 6 - if (scale(fraction(a), exponent(a)) / a /= 1.) call abort - if (scale(fraction(one), exponent(one)) / one /= 1.) call abort - if (scale(fraction(1.0), exponent(1.0)) / 1.0 /= 1.) call abort + if (scale(fraction(a), exponent(a)) / a /= 1.) STOP 7 + if (scale(fraction(one), exponent(one)) / one /= 1.) STOP 8 + if (scale(fraction(1.0), exponent(1.0)) / 1.0 /= 1.) STOP 9 end program gfcbug36 |