1! { dg-do compile } 2! { dg-options "-Wall" } 3! 4! PR fortran/55476 5! 6! Contribued by Janus Weil 7! 8subroutine test 9 integer, pointer :: p 10 integer, target :: t 11 p => t 12contains 13 subroutine sub() 14 if (p /= 0) return 15 end subroutine 16end subroutine 17 18module m 19 integer, pointer :: p2 20contains 21 subroutine test 22 integer, target :: t2 23 p2 => t2 ! { dg-warning "Pointer at .1. in pointer assignment might outlive the pointer target" } 24 contains 25 subroutine sub() 26 if (p2 /= 0) return 27 end subroutine 28 end subroutine 29end module m 30