blob: 166846b87fe6dd06dbd599994bd135cca5c8fe14 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
! { dg-do run )
! PR39304 write of 0.0 with F0.3 gives **
! Test case developed from case provided by reporter.
REAL :: x
CHARACTER(80) :: str
x = 0.0
write (str,'(f0.0)') x
if (str.ne."0.") call abort
write (str,'(f0.1)') x
if (str.ne."0.0") call abort
write (str,'(f0.2)') x
if (str.ne."0.00") call abort
write (str,'(f0.3)') x
if (str.ne."0.000") call abort
write (str,'(f0.4)') x
if (str.ne."0.0000") call abort
END
|
