mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
65 lines
1.6 KiB
Fortran
65 lines
1.6 KiB
Fortran
! { dg-do run }
|
|
! PR39304 write of 0.0 with F0.3 gives **
|
|
! PR47567 Small absolute values.
|
|
! 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.") STOP 1
|
|
write (str,'(f0.1)') x
|
|
if (str.ne.".0") STOP 2
|
|
write (str,'(f0.2)') x
|
|
if (str.ne.".00") STOP 3
|
|
write (str,'(f0.3)') x
|
|
if (str.ne.".000") STOP 4
|
|
write (str,'(f0.4)') x
|
|
if (str.ne.".0000") STOP 5
|
|
write (str,'(F0.0)') 0.0
|
|
if (str.ne."0.") STOP 6
|
|
write (str,'(F0.0)') 0.001
|
|
if (str.ne."0.") STOP 7
|
|
write (str,'(F0.0)') 0.01
|
|
if (str.ne."0.") STOP 8
|
|
write (str,'(F0.0)') 0.1
|
|
if (str.ne."0.") STOP 9
|
|
write (str,'(F1.0)') -0.0
|
|
if (str.ne."*") STOP 10
|
|
write (str,'(F1.0)') 0.001
|
|
if (str.ne."*") STOP 11
|
|
write (str,'(F1.0)') 0.01
|
|
if (str.ne."*") STOP 12
|
|
write (str,'(F1.0)') 0.1
|
|
if (str.ne."*") STOP 13
|
|
write (str,'(F2.0)') -0.001
|
|
if (str.ne."**") STOP 14
|
|
write (str,'(F2.0)') -0.01
|
|
if (str.ne."**") STOP 15
|
|
write (str,'(F2.0)') -0.1
|
|
if (str.ne."**") STOP 16
|
|
write (str,'(F0.2)') 0.0
|
|
if (str.ne.".00") STOP 17
|
|
write (str,'(F0.0)') -0.0
|
|
if (str.ne."-0.") STOP 18
|
|
write (str,'(F0.1)') -0.0
|
|
if (str.ne."-.0") STOP 19
|
|
write (str,'(F0.2)') -0.0
|
|
if (str.ne."-.00") STOP 20
|
|
write (str,'(F0.3)') -0.0
|
|
if (str.ne."-.000") STOP 21
|
|
write (str,'(F3.0)') -0.0
|
|
if (str.ne."-0.") STOP 22
|
|
write (str,'(F2.0)') -0.0
|
|
if (str.ne."**") STOP 23
|
|
write (str,'(F1.0)') -0.0
|
|
if (str.ne."*") STOP 24
|
|
write (str,'(F0.1)') -0.0
|
|
if (str.ne."-.0") STOP 25
|
|
write (str,'(F3.1)') -0.0
|
|
if (str.ne."-.0") STOP 26
|
|
write (str,'(F2.1)') -0.0
|
|
if (str.ne."**") STOP 27
|
|
write (str,'(F1.1)') -0.0
|
|
if (str.ne."*") STOP 28
|
|
END
|