diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pointer_assign_8.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_assign_8.f90 | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/gcc/testsuite/gfortran.dg/pointer_assign_8.f90 b/gcc/testsuite/gfortran.dg/pointer_assign_8.f90 index e8fb2c3a6b2..3c5c2d304bb 100644 --- a/gcc/testsuite/gfortran.dg/pointer_assign_8.f90 +++ b/gcc/testsuite/gfortran.dg/pointer_assign_8.f90 @@ -15,25 +15,25 @@ contains class(t), target :: tgt, tgt2(:) type(t), pointer :: ptr, ptr2(:), ptr3(:,:) - if (tgt%ii /= 43) call abort() - if (size (tgt2) /= 3) call abort() - if (any (tgt2(:)%ii /= [11,22,33])) call abort() + if (tgt%ii /= 43) STOP 1 + if (size (tgt2) /= 3) STOP 2 + if (any (tgt2(:)%ii /= [11,22,33])) STOP 3 ptr => tgt ! TYPE => CLASS ptr2 => tgt2 ! TYPE => CLASS ptr3(-3:-3,1:3) => tgt2 ! TYPE => CLASS - if (.not. associated(ptr)) call abort() - if (.not. associated(ptr2)) call abort() - if (.not. associated(ptr3)) call abort() - if (.not. associated(ptr,tgt)) call abort() - if (.not. associated(ptr2,tgt2)) call abort() - if (ptr%ii /= 43) call abort() - if (size (ptr2) /= 3) call abort() - if (size (ptr3) /= 3) call abort() - if (any (ptr2(:)%ii /= [11,22,33])) call abort() - if (any (shape (ptr3) /= [1,3])) call abort() - if (any (ptr3(-3,:)%ii /= [11,22,33])) call abort() + if (.not. associated(ptr)) STOP 4 + if (.not. associated(ptr2)) STOP 5 + if (.not. associated(ptr3)) STOP 6 + if (.not. associated(ptr,tgt)) STOP 7 + if (.not. associated(ptr2,tgt2)) STOP 8 + if (ptr%ii /= 43) STOP 9 + if (size (ptr2) /= 3) STOP 10 + if (size (ptr3) /= 3) STOP 11 + if (any (ptr2(:)%ii /= [11,22,33])) STOP 12 + if (any (shape (ptr3) /= [1,3])) STOP 13 + if (any (ptr3(-3,:)%ii /= [11,22,33])) STOP 14 end subroutine sub end module m |