diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/leadz_trailz_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/leadz_trailz_2.f90 | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/gcc/testsuite/gfortran.dg/leadz_trailz_2.f90 b/gcc/testsuite/gfortran.dg/leadz_trailz_2.f90 index 08701d8a537..9a58e6ba918 100644 --- a/gcc/testsuite/gfortran.dg/leadz_trailz_2.f90 +++ b/gcc/testsuite/gfortran.dg/leadz_trailz_2.f90 @@ -4,33 +4,33 @@ integer(kind=16) :: i16 i16 = -1 - if (leadz(i16) /= 0) call abort - if (trailz(i16) /= 0) call abort - if (leadz(-1_16) /= 0) call abort - if (trailz(-1_16) /= 0) call abort + if (leadz(i16) /= 0) STOP 1 + if (trailz(i16) /= 0) STOP 2 + if (leadz(-1_16) /= 0) STOP 3 + if (trailz(-1_16) /= 0) STOP 4 i16 = -64 - if (leadz(i16) /= 0) call abort - if (trailz(i16) /= 6) call abort - if (leadz(-64_16) /= 0) call abort - if (trailz(-64_16) /= 6) call abort + if (leadz(i16) /= 0) STOP 5 + if (trailz(i16) /= 6) STOP 6 + if (leadz(-64_16) /= 0) STOP 7 + if (trailz(-64_16) /= 6) STOP 8 i16 = -108 - if (leadz(i16) /= 0) call abort - if (trailz(i16) /= 2) call abort - if (leadz(-108_16) /= 0) call abort - if (trailz(-108_16) /= 2) call abort + if (leadz(i16) /= 0) STOP 9 + if (trailz(i16) /= 2) STOP 10 + if (leadz(-108_16) /= 0) STOP 11 + if (trailz(-108_16) /= 2) STOP 12 i16 = 1 - if (leadz(i16) /= bit_size(i16) - 1) call abort - if (trailz(i16) /= 0) call abort - if (leadz(1_16) /= bit_size(1_16) - 1) call abort - if (trailz(1_16) /= 0) call abort + if (leadz(i16) /= bit_size(i16) - 1) STOP 13 + if (trailz(i16) /= 0) STOP 14 + if (leadz(1_16) /= bit_size(1_16) - 1) STOP 15 + if (trailz(1_16) /= 0) STOP 16 i16 = 64 - if (leadz(i16) /= 121) call abort - if (trailz(i16) /= 6) call abort - if (leadz(64_16) /= 121) call abort - if (trailz(64_16) /= 6) call abort + if (leadz(i16) /= 121) STOP 17 + if (trailz(i16) /= 6) STOP 18 + if (leadz(64_16) /= 121) STOP 19 + if (trailz(64_16) /= 6) STOP 20 end |