| ! { dg-do compile } | |
| ! { dg-options "-Wtarget-lifetime" } | |
| ! | |
| ! PR fortran/81770: [5/6/7 Regression] Bogus warning: Pointer in pointer assignment might outlive the pointer target | |
| ! | |
| ! Contributed by Janus Weil <janus@gcc.gnu.org> | |
| module m | |
| type t | |
| integer, allocatable :: l | |
| end type | |
| contains | |
| subroutine sub(c_in, list) | |
| type(t), target, intent(in) :: c_in | |
| integer, pointer, intent(out) :: list | |
| type(t), pointer :: container | |
| container => c_in | |
| list => container%l | |
| end subroutine | |
| end |