diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/scale_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/scale_1.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/scale_1.f90 b/gcc/testsuite/gfortran.dg/scale_1.f90 index 72a9fd8d9c8..e3031be6690 100644 --- a/gcc/testsuite/gfortran.dg/scale_1.f90 +++ b/gcc/testsuite/gfortran.dg/scale_1.f90 @@ -20,16 +20,16 @@ I8 = -20 X = SCALE (X, I1) X = SCALE (X, I2) -IF (X.NE.1.) CALL ABORT() +IF (X.NE.1.) STOP 1 X = SCALE (X, I4) X = SCALE (X, I8) -IF (X.NE.1.) CALL ABORT() +IF (X.NE.1.) STOP 2 Y = SCALE (Y, I1) Y = SCALE (Y, I2) -IF (Y.NE.1._DP) CALL ABORT() +IF (Y.NE.1._DP) STOP 3 Y = SCALE (Y, I4) Y = SCALE (Y, I8) -IF (Y.NE.1._DP) CALL ABORT() +IF (Y.NE.1._DP) STOP 4 END |