Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/factory-monroe-5140.B
/
.
/
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