diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dshift_2.F90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dshift_2.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/dshift_2.F90 b/gcc/testsuite/gfortran.dg/dshift_2.F90 index f0cfff68069..8598bd326e8 100644 --- a/gcc/testsuite/gfortran.dg/dshift_2.F90 +++ b/gcc/testsuite/gfortran.dg/dshift_2.F90 @@ -12,10 +12,10 @@ IOR(SHIFTL(I,BIT_SIZE(I)-SHIFT),SHIFTR(J,SHIFT)) #define CHECK(I,J,SHIFT) \ - if (dshiftl(I,J,SHIFT) /= RESL(I,J,SHIFT)) call abort ; \ - if (dshiftr(I,J,SHIFT) /= RESR(I,J,SHIFT)) call abort ; \ - if (run_dshiftl(I,J,SHIFT) /= RESL(I,J,SHIFT)) call abort ; \ - if (run_dshiftr(I,J,SHIFT) /= RESR(I,J,SHIFT)) call abort + if (dshiftl(I,J,SHIFT) /= RESL(I,J,SHIFT)) STOP 1; \ + if (dshiftr(I,J,SHIFT) /= RESR(I,J,SHIFT)) STOP 2; \ + if (run_dshiftl(I,J,SHIFT) /= RESL(I,J,SHIFT)) STOP 3; \ + if (run_dshiftr(I,J,SHIFT) /= RESR(I,J,SHIFT)) STOP 4 CHECK(0_16,0_16,0) CHECK(0_16,0_16,1) |