Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr92874.f90
blob: a1fca3d7718968cceed0111eaa79a8fa6f58c652 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2"
}
!
PR fortran
/
92874
program p
call s
(
'a'
)
call s
(
'abc'
)
end
subroutine s
(
x
)
character
(*)
::
x
print
*,
(
x
(
1
:
1
)
==
x
(
1
:))
end