diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/alloc_comp_assign_13.f08')
-rw-r--r-- | gcc/testsuite/gfortran.dg/alloc_comp_assign_13.f08 | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_assign_13.f08 b/gcc/testsuite/gfortran.dg/alloc_comp_assign_13.f08 index fe697908a2d..d6a22475ad1 100644 --- a/gcc/testsuite/gfortran.dg/alloc_comp_assign_13.f08 +++ b/gcc/testsuite/gfortran.dg/alloc_comp_assign_13.f08 @@ -15,11 +15,11 @@ program test_allocatable_components Me= A(X= 1, Y= 2, C="correctly allocated") - if (Me%X /= 1) call abort() - if (.not. allocated(Me%y) .or. Me%y /= 2) call abort() - if (.not. allocated(Me%c)) call abort() - if (len(Me%c) /= 19) call abort() - if (Me%c /= "correctly allocated") call abort() + if (Me%X /= 1) STOP 1 + if (.not. allocated(Me%y) .or. Me%y /= 2) STOP 2 + if (.not. allocated(Me%c)) STOP 3 + if (len(Me%c) /= 19) STOP 4 + if (Me%c /= "correctly allocated") STOP 5 ! Now check explicitly allocated components. Ea%X = 9 @@ -28,16 +28,16 @@ program test_allocatable_components ! Implicit allocate on assign in the next line Ea%c = "13 characters" - if (Ea%X /= 9) call abort() - if (.not. allocated(Ea%y) .or. Ea%y /= 42) call abort() - if (.not. allocated(Ea%c)) call abort() - if (len(Ea%c) /= 13) call abort() - if (Ea%c /= "13 characters") call abort() + if (Ea%X /= 9) STOP 6 + if (.not. allocated(Ea%y) .or. Ea%y /= 42) STOP 7 + if (.not. allocated(Ea%c)) STOP 8 + if (len(Ea%c) /= 13) STOP 9 + if (Ea%c /= "13 characters") STOP 10 deallocate(Ea%y) deallocate(Ea%c) - if (allocated(Ea%y)) call abort() - if (allocated(Ea%c)) call abort() + if (allocated(Ea%y)) STOP 11 + if (allocated(Ea%c)) STOP 12 end program ! vim:ts=4:sts=4:sw=4: |