Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr99204.f90
blob: 9b6f27fa3d21ec0ee6bf326c1f9351d1ce772ee1 [
file
] [
log
] [
blame
]
!
PR tree
-
optimization
/
99204
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2 -w"
}
program pr99204
character
::
c
integer
::
i
=
-
12345678
c
=
'abc'
(
i
:
i
)
print
*,
c
end