Sign in
gnu
/
gcc
/
04a040d907a83af54e0a98bdba5bfabc0ef4f700
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
fmt_e.f90
blob: 37ec86824d2b29c40aeab53cc995e7cb4f6e4948 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR83811 fortran
'e'
format broken
for
single digit exponents
program test
character
(
25
)
::
s
write
(
s
,
'(1pe5.0e1)'
)
1.e-4
if
(
s
.
ne
.
"1.E-4"
)
STOP
1
write
(
s
,
'(e5.1e1)'
)
1.e12
if
(
s
.
ne
.
"*****"
)
STOP
2
end