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