diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/class_allocate_14.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/class_allocate_14.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_allocate_14.f90 b/gcc/testsuite/gfortran.dg/class_allocate_14.f90 index 0eed2bd3c85..d2514772a03 100644 --- a/gcc/testsuite/gfortran.dg/class_allocate_14.f90 +++ b/gcc/testsuite/gfortran.dg/class_allocate_14.f90 @@ -11,12 +11,12 @@ contains subroutine sub type(t), save, allocatable :: x class(t), save,allocatable :: y - if (.not. same_type_as(x,y)) call abort() + if (.not. same_type_as(x,y)) STOP 1 end subroutine sub subroutine sub2 type(t), save, allocatable :: a(:) class(t), save,allocatable :: b(:) - if (.not. same_type_as(a,b)) call abort() + if (.not. same_type_as(a,b)) STOP 2 end subroutine sub2 end module m |