diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/leadz_trailz_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 b/gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 index e6ad9f385d1..c3223c4844e 100644 --- a/gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 +++ b/gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 @@ -5,12 +5,12 @@ program test - if (leadz (foo()) /= bit_size(0) - 1) call abort - if (leadz (foo()) /= bit_size(0) - 2) call abort - if (trailz (foo()) /= 0) call abort - if (trailz (foo()) /= 2) call abort - if (trailz (foo()) /= 0) call abort - if (trailz (foo()) /= 1) call abort + if (leadz (foo()) /= bit_size(0) - 1) STOP 1 + if (leadz (foo()) /= bit_size(0) - 2) STOP 2 + if (trailz (foo()) /= 0) STOP 3 + if (trailz (foo()) /= 2) STOP 4 + if (trailz (foo()) /= 0) STOP 5 + if (trailz (foo()) /= 1) STOP 6 contains |