diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/alloc_comp_basics_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/alloc_comp_basics_2.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_basics_2.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_basics_2.f90 index 170a8871f71..f10eaf7c932 100644 --- a/gcc/testsuite/gfortran.dg/alloc_comp_basics_2.f90 +++ b/gcc/testsuite/gfortran.dg/alloc_comp_basics_2.f90 @@ -19,21 +19,21 @@ program main allocate (mol(1))
allocate (mol(1), stat=i)
!print *, i ! /= 0
- if (i == 0) call abort()
+ if (i == 0) STOP 1
allocate (mol(1)%array(5))
allocate (mol(1)%array(5),stat=i)
!print *, i ! /= 0
- if (i == 0) call abort()
+ if (i == 0) STOP 2
allocate (molp(1))
allocate (molp(1), stat=i)
!print *, i ! == 0
- if (i /= 0) call abort()
+ if (i /= 0) STOP 3
allocate (molp(1)%array(5))
allocate (molp(1)%array(5),stat=i)
!print *, i ! /= 0
- if (i == 0) call abort()
+ if (i == 0) STOP 4
end program main
|