diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/merge_bits_2.F90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/merge_bits_2.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/merge_bits_2.F90 b/gcc/testsuite/gfortran.dg/merge_bits_2.F90 index 4f2421e02ae..b12534e6d4c 100644 --- a/gcc/testsuite/gfortran.dg/merge_bits_2.F90 +++ b/gcc/testsuite/gfortran.dg/merge_bits_2.F90 @@ -5,8 +5,8 @@ ! { dg-require-effective-target fortran_integer_16 } #define CHECK(I,J,K) \ - if (merge_bits(I,J,K) /= ior(iand(I,K),iand(J,not(K)))) call abort ; \ - if (run_merge(I,J,K) /= merge_bits(I,J,K)) call abort + if (merge_bits(I,J,K) /= ior(iand(I,K),iand(J,not(K)))) STOP 1; \ + if (run_merge(I,J,K) /= merge_bits(I,J,K)) STOP 2 CHECK(13_16,18_16,22_16) CHECK(-13_16,18_16,22_16) |