15 lines
356 B
Fortran
15 lines
356 B
Fortran
! { 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
|