1! { dg-do compile }
2! { dg-options "-Wtarget-lifetime" }
3!
4! PR fortran/54301
5!
6function f()
7 integer, pointer :: f
8 integer, target :: t
9 f => t ! { dg-warning "Pointer at .1. in pointer assignment might outlive the pointer target" }
10end
11