1! { dg-do compile } 2! { dg-options "-Wall -Wno-uninitialized" } 3! 4! PR fortran/56477 5! The pointer target live range checking code used to trigger a NULL pointer 6! dereference with the following case. 7! 8! Contributed by Andrew Benson <abensonca@gmail.com> 9! 10module s 11contains 12 function so() 13 implicit none 14 integer, target :: so 15 integer, pointer :: sp 16 sp => so 17 return 18 end function So 19end module s 20