diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/vector_subscript_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/vector_subscript_2.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/vector_subscript_2.f90 b/gcc/testsuite/gfortran.dg/vector_subscript_2.f90 index a5c024a28ed..77fc6c71343 100644 --- a/gcc/testsuite/gfortran.dg/vector_subscript_2.f90 +++ b/gcc/testsuite/gfortran.dg/vector_subscript_2.f90 @@ -18,7 +18,7 @@ program main a (foo (i1), 1, :) = b (2, :, foo (i1)) do i1 = 1, 5 do i2 = 1, 5 - if (a (idx (i1), 1, i2) .ne. b (2, i1, idx (i2))) call abort + if (a (idx (i1), 1, i2) .ne. b (2, i1, idx (i2))) STOP 1 end do end do a = 0 @@ -26,7 +26,7 @@ program main a (1, idx (1:4), 2:4) = b (2:5, idx (3:5), 2) do i1 = 1, 4 do i2 = 1, 3 - if (a (1, idx (i1), 1 + i2) .ne. b (1 + i1, idx (i2 + 2), 2)) call abort + if (a (1, idx (i1), 1 + i2) .ne. b (1 + i1, idx (i2 + 2), 2)) STOP 2 end do end do a = 0 |