| ! { dg-do compile } | |
| ! { dg-options "-O3 -fno-early-inlining --param large-stack-frame=4000" } | |
| subroutine sub3noiso(a, b) | |
| use iso_c_binding | |
| implicit none | |
| character(len=1,kind=c_char) :: a(*), b | |
| character(len=1,kind=c_char):: x,z | |
| integer(c_int) :: y | |
| value :: b | |
| print *, a(1:2), b | |
| entry sub3noisoEntry(x,y,z) | |
| x = 'd' | |
| end subroutine sub3noiso |