c: gimplefe: Only allow an identifier before ? [PR117445]

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

! { dg-do compile }
! PR 94347 - this used to cause an ICE.
! Original test case by "Serghei".
program main
    character(10), target :: a
    character(:), pointer :: p => null()
    p => a
end program main