2 ! { dg-options "-fcheck=pointer -fdump-tree-original" }
11 class(*), pointer :: y
12 if (associated (y
)) stop 1
18 class(*), pointer :: cptr
24 ! { dg-final { scan-tree-dump-not "_gfortran_runtime_error_at" "original" } }
25 ! { dg-final { scan-tree-dump-not "Pointer actual argument" "original" } }