diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 | 68 |
1 files changed, 34 insertions, 34 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 index 22ea6f0a62a..812fb7b6097 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_associated.f90 @@ -20,17 +20,17 @@ subroutine pointer_to_section () window (1, 2) = 0161 t = associated (window, xy(2:4, 3:4)) - if (.not.t) call abort () + if (.not.t) STOP 1 ! Check that none of the array got mangled if ((xy(2, 3) .ne. 0101) .or. (xy (4, 4) .ne. 4161) & - .or. (xy(4, 3) .ne. 4101) .or. (xy (2, 4) .ne. 0161)) call abort () - if (any (xy(:, 1:2) .ne. 0)) call abort () - if (any (xy(:, 5) .ne. 0)) call abort () - if (any (xy (1, 3:4) .ne. 0)) call abort () - if (any (xy (5, 3:4) .ne. 0)) call abort () - if (xy(3, 3) .ne. 10) call abort () - if (xy(3, 4) .ne. 10) call abort () - if (any (xy(2:4, 3:4) .ne. window)) call abort () + .or. (xy(4, 3) .ne. 4101) .or. (xy (2, 4) .ne. 0161)) STOP 2 + if (any (xy(:, 1:2) .ne. 0)) STOP 3 + if (any (xy(:, 5) .ne. 0)) STOP 4 + if (any (xy (1, 3:4) .ne. 0)) STOP 5 + if (any (xy (5, 3:4) .ne. 0)) STOP 6 + if (xy(3, 3) .ne. 10) STOP 7 + if (xy(3, 4) .ne. 10) STOP 8 + if (any (xy(2:4, 3:4) .ne. window)) STOP 9 end subroutine sub1 (a, ap) @@ -43,7 +43,7 @@ end subroutine nullify_pp (a) integer, pointer :: a(:, :) - if (.not. associated (a)) call abort () + if (.not. associated (a)) STOP 10 nullify (a) end @@ -57,11 +57,11 @@ subroutine associate_1 () allocate (a(80, 80)) b => a - if (.not. associated(a)) call abort () - if (.not. associated(b)) call abort () + if (.not. associated(a)) STOP 11 + if (.not. associated(b)) STOP 12 call nullify_pp (a) - if (associated (a)) call abort () - if (.not. associated (b)) call abort () + if (associated (a)) STOP 13 + if (.not. associated (b)) STOP 14 end subroutine pointer_to_derived_1 () @@ -85,11 +85,11 @@ subroutine pointer_to_derived_1 () type(record2), target :: r2 nullify (r1%r1p, r2%r2p, e1%rp, e2%rp, e3%rp) - if (associated (r1%r1p)) call abort () - if (associated (r2%r2p)) call abort () - if (associated (e2%rp)) call abort () - if (associated (e1%rp)) call abort () - if (associated (e3%rp)) call abort () + if (associated (r1%r1p)) STOP 15 + if (associated (r2%r2p)) STOP 16 + if (associated (e2%rp)) STOP 17 + if (associated (e1%rp)) STOP 18 + if (associated (e3%rp)) STOP 19 r1%r1p => r2 r2%r2p => r1 r1%value = 11 @@ -99,18 +99,18 @@ subroutine pointer_to_derived_1 () e1%value = 33 e1%rp%value = 44 e1%rp%rp%value = 55 - if (.not. associated (r1%r1p)) call abort () - if (.not. associated (r2%r2p)) call abort () - if (.not. associated (e1%rp)) call abort () - if (.not. associated (e2%rp)) call abort () - if (associated (e3%rp)) call abort () - if (r1%r1p%value .ne. 22) call abort () - if (r2%r2p%value .ne. 11) call abort () - if (e1%value .ne. 33) call abort () - if (e2%value .ne. 44) call abort () - if (e3%value .ne. 55) call abort () - if (r1%value .ne. 11) call abort () - if (r2%value .ne. 22) call abort () + if (.not. associated (r1%r1p)) STOP 20 + if (.not. associated (r2%r2p)) STOP 21 + if (.not. associated (e1%rp)) STOP 22 + if (.not. associated (e2%rp)) STOP 23 + if (associated (e3%rp)) STOP 24 + if (r1%r1p%value .ne. 22) STOP 25 + if (r2%r2p%value .ne. 11) STOP 26 + if (e1%value .ne. 33) STOP 27 + if (e2%value .ne. 44) STOP 28 + if (e3%value .ne. 55) STOP 29 + if (r1%value .ne. 11) STOP 30 + if (r2%value .ne. 22) STOP 31 end @@ -126,9 +126,9 @@ subroutine associated_2 () endinterface xp => y - if (.not. associated (xp)) call abort () + if (.not. associated (xp)) STOP 32 call sub1 (x, xp) - if (associated (xp, y)) call abort () - if (.not. associated (xp, x)) call abort () + if (associated (xp, y)) STOP 33 + if (.not. associated (xp, x)) STOP 34 end |