diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/recursive_alloc_comp_1.f08')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/recursive_alloc_comp_1.f08 | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/gcc/testsuite/gfortran.dg/recursive_alloc_comp_1.f08 b/gcc/testsuite/gfortran.dg/recursive_alloc_comp_1.f08 index 383eff49106..62787d29ca1 100644 --- a/gcc/testsuite/gfortran.dg/recursive_alloc_comp_1.f08 +++ b/gcc/testsuite/gfortran.dg/recursive_alloc_comp_1.f08 @@ -23,22 +23,22 @@ d%ia = 3 call move_alloc (d, a%c%c) - if (a%ia .ne. 1) call abort - if (a%c%ia .ne. 2) call abort - if (a%c%c%ia .ne. 3) call abort + if (a%ia .ne. 1) STOP 1 + if (a%c%ia .ne. 2) STOP 2 + if (a%c%c%ia .ne. 3) STOP 3 ! Check that we can point anywhere in the chain b => a%c%c - if (b%ia .ne. 3) call abort + if (b%ia .ne. 3) STOP 4 b => a%c - if (b%ia .ne. 2) call abort + if (b%ia .ne. 2) STOP 5 ! Check that the pointer can be used as if it were an element in the chain. - if (.not.allocated (b%c)) call abort + if (.not.allocated (b%c)) STOP 6 b => a%c%c if (.not.allocated (b%c)) allocate (b%c) b%c%ia = 4 - if (a%c%c%c%ia .ne. 4) call abort + if (a%c%c%c%ia .ne. 4) STOP 7 ! A rudimentary iterator. b => a @@ -46,12 +46,12 @@ total = total + b%ia b => b%c end do - if (total .ne. 10) call abort + if (total .ne. 10) STOP 8 ! Take one element out of the chain. call move_alloc (a%c%c, d) call move_alloc (d%c, a%c%c) - if (d%ia .ne. 3) call abort + if (d%ia .ne. 3) STOP 9 deallocate (d) ! Checkcount of remaining chain. @@ -61,7 +61,7 @@ total = total + b%ia b => b%c end do - if (total .ne. 7) call abort + if (total .ne. 7) STOP 10 ! Deallocate to check that there are no memory leaks. deallocate (a%c%c) |