diff options
| author | ian <ian@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 22:36:54 +0000 |
|---|---|---|
| committer | ian <ian@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 22:36:54 +0000 |
| commit | 88a3ea34080ad3087a8191fbf479543153175d59 (patch) | |
| tree | 34eaec34d3588e09f9a77abba776266f124dc823 /gcc/testsuite/gfortran.dg/assumed_rank_9.f90 | |
| parent | 25e15aaed275cdfef34b3ee6eb3cb4b43a48d44f (diff) | |
| parent | e65055a558093bd4fc0b1b0024b7814cc187b8e8 (diff) | |
| download | gcc-88a3ea34080ad3087a8191fbf479543153175d59.tar.gz | |
Merge from trunk revision 257954.gccgo
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gccgo@257955 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/assumed_rank_9.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/assumed_rank_9.f90 | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_9.f90 b/gcc/testsuite/gfortran.dg/assumed_rank_9.f90 index 39151f58789..1296d068959 100644 --- a/gcc/testsuite/gfortran.dg/assumed_rank_9.f90 +++ b/gcc/testsuite/gfortran.dg/assumed_rank_9.f90 @@ -35,7 +35,7 @@ program main call fc(null()) call fc(y) call fc(yac) - if (j /= 2) call abort () + if (j /= 2) STOP 1 j = 0 call gc(null()) @@ -43,21 +43,21 @@ program main call gc(yac) deallocate (yac) call gc(yac) - if (j /= 2) call abort () + if (j /= 2) STOP 2 j = 0 call hc(yac) allocate (yac) yac%i = 489 call hc(yac) - if (j /= 1) call abort () + if (j /= 1) STOP 3 j = 0 call ft() call ft(null()) call ft(y) call ft(yac) - if (j /= 2) call abort () + if (j /= 2) STOP 4 j = 0 call gt(null()) @@ -65,14 +65,14 @@ program main call gt(yac) deallocate (yac) call gt(yac) - if (j /= 2) call abort () + if (j /= 2) STOP 5 j = 0 call ht(yac) allocate (yac) yac%i = 489 call ht(yac) - if (j /= 1) call abort () + if (j /= 1) STOP 6 contains @@ -80,8 +80,8 @@ contains class(t), optional :: x(..) if (.not. present (x)) return - if (.not. SAME_TYPE_AS (x, yac)) call abort () - if (rank (x) /= 0) call abort + if (.not. SAME_TYPE_AS (x, yac)) STOP 7 + if (rank (x) /= 0) STOP 1 call check2 (x) j = j + 1 end subroutine @@ -90,8 +90,8 @@ contains class(t), pointer, intent(in) :: x(..) if (.not. associated (x)) return - if (.not. SAME_TYPE_AS (x, yac)) call abort () - if (rank (x) /= 0) call abort () + if (.not. SAME_TYPE_AS (x, yac)) STOP 8 + if (rank (x) /= 0) STOP 9 call check2 (x) j = j + 1 end subroutine @@ -100,8 +100,8 @@ contains class(t), allocatable :: x(..) if (.not. allocated (x)) return - if (.not. SAME_TYPE_AS (x, yac)) call abort () - if (rank (x) /= 0) call abort + if (.not. SAME_TYPE_AS (x, yac)) STOP 10 + if (rank (x) /= 0) STOP 2 call check2 (x) j = j + 1 end subroutine @@ -110,8 +110,8 @@ contains type(t), optional :: x(..) if (.not. present (x)) return - if (.not. SAME_TYPE_AS (x, yac)) call abort () - if (rank (x) /= 0) call abort + if (.not. SAME_TYPE_AS (x, yac)) STOP 11 + if (rank (x) /= 0) STOP 3 call check2 (x) j = j + 1 end subroutine @@ -120,8 +120,8 @@ contains type(t), pointer, intent(in) :: x(..) if (.not. associated (x)) return - if (.not. SAME_TYPE_AS (x, yac)) call abort () - if (rank (x) /= 0) call abort () + if (.not. SAME_TYPE_AS (x, yac)) STOP 12 + if (rank (x) /= 0) STOP 13 call check2 (x) j = j + 1 end subroutine @@ -130,8 +130,8 @@ contains type(t), allocatable :: x(..) if (.not. allocated (x)) return - if (.not. SAME_TYPE_AS (x, yac)) call abort () - if (rank (x) /= 0) call abort + if (.not. SAME_TYPE_AS (x, yac)) STOP 14 + if (rank (x) /= 0) STOP 4 call check2 (x) j = j + 1 end subroutine |