Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr20480.f90
blob: 12e53009d916f3870369443d892037664ded9edd [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR libfortran
/
20480
!
fxcoudert@gcc
.
gnu
.
org
character
(
len
=
80
)
c
write
(
c
,
'(ES12.3)'
)
0.0
if
(
trim
(
adjustl
(
c
))
.
ne
.
'0.000E+00'
)
call abort
()
write
(
c
,
'(EN12.3)'
)
0.0
if
(
trim
(
adjustl
(
c
))
.
ne
.
'0.000E+00'
)
call abort
()
end