Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
guality
/
pr41558.f90
blob: 34288377334a9e8aa3ded9d8e073c2fb9203a9ab [
file
] [
log
] [
blame
]
!
PR debug
/
41558
!
{
dg
-
do
run
}
!
{
dg
-
skip
-
if
"PR testsuite/51875"
{
{
hppa
*-*-
hpux
*
}
&&
{
!
lp64
}
}
}
!
{
dg
-
options
"-g"
}
subroutine f
(
s
)
character
(
len
=
3
)
::
s
write
(*,*)
s
!
{
dg
-
final
{
gdb
-
test
7
"s"
"'foo'"
}
}
end
call f
(
'foo'
)
end
