pointer_init_12.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/pointer_init_12.f90

blob: b2bce01ab577d8bfbad4c31194c9ed5737b537db (plain)

! { 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