diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pointer_remapping_5.f08')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_remapping_5.f08 | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/testsuite/gfortran.dg/pointer_remapping_5.f08 b/gcc/testsuite/gfortran.dg/pointer_remapping_5.f08 index 28c0a7d8da6..cdfb52cc719 100644 --- a/gcc/testsuite/gfortran.dg/pointer_remapping_5.f08 +++ b/gcc/testsuite/gfortran.dg/pointer_remapping_5.f08 @@ -1,5 +1,5 @@ ! { dg-do run } -! { dg-options "-std=f2008 -fall-intrinsics -fcheck=bounds" } +! { dg-options "-std=f2008 -fcheck=bounds" } ! PR fortran/29785 ! Check pointer rank remapping at runtime. @@ -17,21 +17,21 @@ PROGRAM main ! We need not necessarily change the rank... vec(2_1:5) => arr(1_1:12_1:2_1) - IF (LBOUND (vec, 1) /= 2 .OR. UBOUND (vec, 1) /= 5) CALL abort () - IF (ANY (vec /= (/ 1, 3, 5, 7 /))) CALL abort () - IF (vec(2) /= 1 .OR. vec(5) /= 7) CALL abort () + IF (LBOUND (vec, 1) /= 2 .OR. UBOUND (vec, 1) /= 5) STOP 1 + IF (ANY (vec /= (/ 1, 3, 5, 7 /))) STOP 2 + IF (vec(2) /= 1 .OR. vec(5) /= 7) STOP 3 ! ...but it is of course the more interesting. Also try remapping a pointer. vec => arr(1:12:2) mat(1:3, 1:2) => vec IF (ANY (LBOUND (mat) /= (/ 1, 1 /) .OR. UBOUND (mat) /= (/ 3, 2 /))) & - CALL abort () - IF (ANY (mat /= RESHAPE (arr(1:12:2), SHAPE (mat)))) CALL abort () - IF (mat(1, 1) /= 1 .OR. mat(1, 2) /= 7) CALL abort () + STOP 4 + IF (ANY (mat /= RESHAPE (arr(1:12:2), SHAPE (mat)))) STOP 5 + IF (mat(1, 1) /= 1 .OR. mat(1, 2) /= 7) STOP 6 ! Remap with target of rank > 1. vec(1:12_1) => basem - IF (LBOUND (vec, 1) /= 1 .OR. UBOUND (vec, 1) /= 12) CALL abort () - IF (ANY (vec /= arr)) CALL abort () - IF (vec(1) /= 1 .OR. vec(5) /= 5 .OR. vec(12) /= 12) CALL abort () + IF (LBOUND (vec, 1) /= 1 .OR. UBOUND (vec, 1) /= 12) STOP 7 + IF (ANY (vec /= arr)) STOP 8 + IF (vec(1) /= 1 .OR. vec(5) /= 5 .OR. vec(12) /= 12) STOP 9 END PROGRAM main |