diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/class_52.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/class_52.f90 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_52.f90 b/gcc/testsuite/gfortran.dg/class_52.f90 index 42cb86db4a3..33c03729e02 100644 --- a/gcc/testsuite/gfortran.dg/class_52.f90 +++ b/gcc/testsuite/gfortran.dg/class_52.f90 @@ -13,7 +13,7 @@ Type(t),Target :: x Call sub(x) ! { dg-error "Fortran 2008: Non-pointer actual argument" } Print *,x%c - if (x%c /= 3) call abort () + if (x%c /= 3) STOP 1 Contains Subroutine sub(p) Class(t),Pointer,Intent(In) :: p |