! PR 25048 | |
! { dg-do compile } | |
! Originally contributed by Joost VandeVondele | |
INTEGER, POINTER :: I | |
CALL S1((I)) ! { dg-error "Actual argument for .i. at .1. must be a pointer or a valid target" } | |
CONTAINS | |
SUBROUTINE S1(I) | |
INTEGER, POINTER ::I | |
END SUBROUTINE S1 | |
END | |