! { dg-do compile } | |
! { dg-options "-fcheck=pointer -fdump-tree-original" } | |
! | |
! PR fortran/99602 | |
! | |
module m | |
implicit none | |
contains | |
subroutine wr(y) | |
class(*), pointer :: y | |
if (associated (y)) stop 1 | |
end | |
end module m | |
use m | |
implicit none | |
class(*), pointer :: cptr | |
nullify (cptr) | |
call wr(cptr) | |
end | |
! { dg-final { scan-tree-dump-not "_gfortran_runtime_error_at" "original" } } | |
! { dg-final { scan-tree-dump-not "Pointer actual argument" "original" } } |