Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
fmt_read_2.f90
blob: 0f7f4d7ccff0a72ca354b8c5b7affb14f6a7bb0c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
32483
implicit
none
integer
::
r
real
::
a
write
(*,
'(i0)'
)
r
read
(*,
'(i0)'
)
r
!
{
dg
-
warning
"Positive width required"
}
read
(*,
'(f0.2)'
)
a
!
{
dg
-
warning
"Positive width required"
}
print
*,
r
,
a
END