diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocate_with_source_10.f08')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_with_source_10.f08 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocate_with_source_10.f08 b/gcc/testsuite/gfortran.dg/allocate_with_source_10.f08 index b9c68b4b45b..764ab31bc51 100644 --- a/gcc/testsuite/gfortran.dg/allocate_with_source_10.f08 +++ b/gcc/testsuite/gfortran.dg/allocate_with_source_10.f08 @@ -37,8 +37,8 @@ contains type(t1_t), dimension(:), allocatable :: p_born allocate (p_born(1:size(t3%int_born%func ())), & source = t3%int_born%func ()) - if (.not. allocated(p_born)) call abort() - if (size(p_born) /= 5) call abort() + if (.not. allocated(p_born)) STOP 1 + if (size(p_born) /= 5) STOP 2 end subroutine evaluate end module processes |