gcc/testsuite/gfortran.dg/pr97673.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O3 -fno-early-inlining --param large-stack-frame=4000" }
   3
   4 subroutine sub3noiso(a, b)
   5   use iso_c_binding
   6   implicit none
   7   character(len=1,kind=c_char) :: a(*), b
   8   character(len=1,kind=c_char):: x,z
   9   integer(c_int) :: y
  10   value :: b
  11   print *, a(1:2), b
  12 entry sub3noisoEntry(x,y,z)
  13   x = 'd'
  14 end subroutine sub3noiso