diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/defined_assignment_9.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/defined_assignment_9.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/defined_assignment_9.f90 b/gcc/testsuite/gfortran.dg/defined_assignment_9.f90 index 50fa0070f18..b5be91e5458 100644 --- a/gcc/testsuite/gfortran.dg/defined_assignment_9.f90 +++ b/gcc/testsuite/gfortran.dg/defined_assignment_9.f90 @@ -32,7 +32,7 @@ program main ! print *, right%foo left = right ! print *, left%foo - if (left%foo%i /= 20) call abort() + if (left%foo%i /= 20) STOP 1 end block block type(parent), allocatable :: left(:) @@ -40,6 +40,6 @@ program main ! print *, right%foo left = right ! print *, left%foo - if (any (left%foo%i /= 20)) call abort() + if (any (left%foo%i /= 20)) STOP 2 end block end |