diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocate_alloc_opt_10.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocate_alloc_opt_10.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocate_alloc_opt_10.f90 b/gcc/testsuite/gfortran.dg/allocate_alloc_opt_10.f90 index f5dae1ac6e8..f9d92381f95 100644 --- a/gcc/testsuite/gfortran.dg/allocate_alloc_opt_10.f90 +++ b/gcc/testsuite/gfortran.dg/allocate_alloc_opt_10.f90 @@ -24,10 +24,10 @@ allocate(x,MOLD=z) select type (x) type is (t2) print *,x%j - if (x%j/=4) call abort + if (x%j/=4) STOP 1 x%j = 5 class default - call abort() + STOP 1 end select @@ -38,9 +38,9 @@ allocate(y,MOLD=x) select type (y) type is (t2) print *,y%j - if (y%j/=4) call abort + if (y%j/=4) STOP 2 class default - call abort() + STOP 2 end select end |