diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/shape_2.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/shape_2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/shape_2.f90 b/gcc/testsuite/gfortran.dg/shape_2.f90 index a4bde98ba5f..057cb4c8558 100644 --- a/gcc/testsuite/gfortran.dg/shape_2.f90 +++ b/gcc/testsuite/gfortran.dg/shape_2.f90 @@ -22,9 +22,9 @@ contains if (ubound (b (20:30:3, 40), 1) .ne. 4) call abort ptr => b - if (lbound (ptr, 1) .ne. 1) call abort - if (ubound (ptr, 1) .ne. 40) call abort - if (lbound (ptr, 2) .ne. 1) call abort - if (ubound (ptr, 2) .ne. 80) call abort + if (lbound (ptr, 1) .ne. 11) call abort + if (ubound (ptr, 1) .ne. 50) call abort + if (lbound (ptr, 2) .ne. -8) call abort + if (ubound (ptr, 2) .ne. 71) call abort end subroutine test end program main |