Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr46884.f
blob: 54ae57d5c76eedeb1a7a812d86cfe0f09d5435e9 [
file
] [
log
] [
blame
]
C PR fortran
/
46884
C
{
dg
-
do
compile
}
C
{
dg
-
options
""
}
SUBROUTINE F
IMPLICIT CHARACTER
*
12
(
C
)
CALL G
(
C1
)
CALL H
(
C1
(
1
:
4
))
END