[to-be-committed] [RISC-V] Use Zbkb for general 64 bit constants when profitable

[official-gcc.git] / gcc / testsuite / gfortran.dg / pointer_check_13.f90

! { dg-do compile }
! { dg-options "-Wall -Wno-uninitialized" }
!
! PR fortran/56477
! The pointer target live range checking code used to trigger a NULL pointer
! dereference with the following case.
!
! Contributed by Andrew Benson <abensonca@gmail.com>
!
module s
contains
  function so()
    implicit none
    integer, target  :: so
    integer, pointer :: sp
    sp => so
    return
  end function So
end module s