diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pdt_20.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pdt_20.f03 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/pdt_20.f03 b/gcc/testsuite/gfortran.dg/pdt_20.f03 index a8028a227af..b712ed59dbb 100644 --- a/gcc/testsuite/gfortran.dg/pdt_20.f03 +++ b/gcc/testsuite/gfortran.dg/pdt_20.f03 @@ -14,7 +14,7 @@ program p end type type(t2(:)), allocatable :: x allocate (t2(3) :: x) ! Used to segfault in trans-array.c. - if (x%b .ne. 3) call abort - if (x%b .ne. size (x%r, 1)) call abort - if (any (x%r%a .ne. 1)) call abort + if (x%b .ne. 3) STOP 1 + if (x%b .ne. size (x%r, 1)) STOP 2 + if (any (x%r%a .ne. 1)) STOP 3 end |