diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pointer_target_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_target_2.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/pointer_target_2.f90 b/gcc/testsuite/gfortran.dg/pointer_target_2.f90 index 95c3e5f7956..339278ed36a 100644 --- a/gcc/testsuite/gfortran.dg/pointer_target_2.f90 +++ b/gcc/testsuite/gfortran.dg/pointer_target_2.f90 @@ -8,14 +8,14 @@ program test integer, target :: a a = 66 call foo(a) ! { dg-error "Fortran 2008: Non-pointer actual argument" } - if (a /= 647) call abort() + if (a /= 647) STOP 1 contains subroutine foo(p) integer, pointer, intent(in) :: p - if (a /= 66) call abort() - if (p /= 66) call abort() + if (a /= 66) STOP 2 + if (p /= 66) STOP 3 p = 647 - if (p /= 647) call abort() - if (a /= 647) call abort() + if (p /= 647) STOP 4 + if (a /= 647) STOP 5 end subroutine foo end program test |