diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/unpack_init_expr.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/unpack_init_expr.f03 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/unpack_init_expr.f03 b/gcc/testsuite/gfortran.dg/unpack_init_expr.f03 index 924694cadaf..87feb7a3090 100644 --- a/gcc/testsuite/gfortran.dg/unpack_init_expr.f03 +++ b/gcc/testsuite/gfortran.dg/unpack_init_expr.f03 @@ -10,6 +10,6 @@ INTEGER, PARAMETER :: r1(3,3) = UNPACK (V, MASK=Q, FIELD=M) INTEGER, PARAMETER :: r2(3,3) = UNPACK (V, MASK=Q, FIELD=0) - IF (ANY (r1 /= RESHAPE ([1,1,0,2,1,0,0,0,3], [3,3]))) CALL ABORT() - IF (ANY (r2 /= RESHAPE ([0,1,0,2,0,0,0,0,3], [3,3]))) CALL ABORT() + IF (ANY (r1 /= RESHAPE ([1,1,0,2,1,0,0,0,3], [3,3]))) STOP 1 + IF (ANY (r2 /= RESHAPE ([0,1,0,2,0,0,0,0,3], [3,3]))) STOP 2 END |