Sign in
llvm
/
llvm-archive
/
261104aacb9ea48cf3a0dc7bfb461760b894944b
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
print_fmt_1.f90
blob: f7622b57d80ffdf2587980f3d6e8a5121f356309 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
23661
!
PRINT
with
a character format was broken
character
(
5
)
::
f
=
"(a)"
!
{
dg
-
output
"check"
}
print
f
,
"check"
end