eoshift_9.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/eoshift_9.f90

blob: f711b04a7da2d379897f0642721f41ca24703542 (plain)

! { dg-do compile }
! PR fortran/104331 - ICE in gfc_simplify_eoshift
! Contributed by G.Steinmetz

program p
  character(3), parameter :: a(:) = ['123'] ! { dg-error "deferred shape" }
  character(3), parameter :: b(*) = eoshift(a, 1)
end