diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/class_allocate_19.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/class_allocate_19.f03 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_allocate_19.f03 b/gcc/testsuite/gfortran.dg/class_allocate_19.f03 index 719be3e0718..6d948efab61 100644 --- a/gcc/testsuite/gfortran.dg/class_allocate_19.f03 +++ b/gcc/testsuite/gfortran.dg/class_allocate_19.f03 @@ -8,12 +8,12 @@ real, target :: e class(*), allocatable, target :: a(:) e = 1.0 call add_element_poly(a,e) -if (size(a) /= 1) call abort() +if (size(a) /= 1) STOP 1 call add_element_poly(a,e) -if (size(a) /= 2) call abort() +if (size(a) /= 2) STOP 2 select type (a) type is (real) - if (any (a /= [ 1, 1])) call abort() + if (any (a /= [ 1, 1])) STOP 3 end select contains subroutine add_element_poly(a,e) |