10 lines
254 B
Fortran
10 lines
254 B
Fortran
|
! { 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
|