diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/tiny_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/tiny_1.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/tiny_1.f90 b/gcc/testsuite/gfortran.dg/tiny_1.f90 index e8bfb2d8994..b54675b4f4d 100644 --- a/gcc/testsuite/gfortran.dg/tiny_1.f90 +++ b/gcc/testsuite/gfortran.dg/tiny_1.f90 @@ -4,6 +4,6 @@ program tiny1 real(4) x4 real(8) x8 - if (minexponent(x4) /= exponent(tiny(x4))) call abort - if (minexponent(x8) /= exponent(tiny(x8))) call abort + if (minexponent(x4) /= exponent(tiny(x4))) STOP 1 + if (minexponent(x8) /= exponent(tiny(x8))) STOP 2 end program tiny1 |