Sign in
llvm
/
llvm-archive
/
089ca8750d7cd1f1ec96968922bf4bcfe223bb3a
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
comma_format_extension_4.f
blob: 3053d3fb14566f49b7b73e3ccc3073499bcf46c4 [
file
] [
log
] [
blame
]
!
PR fortran
/
13257
!
Note
the missing
,
before i1
in
the format
.
!
{
dg
-
do
run
}
!
{
dg
-
options
""
}
character
*
6
c
write
(
c
,
1001
)
1
if
(
c
.
ne
.
' 1 '
)
call abort
1001
format
(
' '
,
i4
' '
)
end