| 1 |
12 |
jlechner |
! { dg-do run }
|
| 2 |
|
|
! Check real value edit descriptors
|
| 3 |
|
|
! Also checks that rounding is performed correctly
|
| 4 |
|
|
program edit_real_1
|
| 5 |
|
|
character(len=20) s
|
| 6 |
|
|
character(len=20) x
|
| 7 |
|
|
character(len=200) t
|
| 8 |
|
|
parameter (x = "xxxxxxxxxxxxxxxxxxxx")
|
| 9 |
|
|
|
| 10 |
|
|
! W append a "z" onto each test to check the field is the correct width
|
| 11 |
|
|
s = x
|
| 12 |
|
|
! G -> F format
|
| 13 |
|
|
write (s, '(G10.3,A)') 12.36, "z"
|
| 14 |
|
|
if (s .ne. " 12.4 z") call abort
|
| 15 |
|
|
s = x
|
| 16 |
|
|
! G -> E format
|
| 17 |
|
|
write (s, '(G10.3,A)') -0.0012346, "z"
|
| 18 |
|
|
if (s .ne. "-0.123E-02z") call abort
|
| 19 |
|
|
s = x
|
| 20 |
|
|
! Gw.eEe format
|
| 21 |
|
|
write (s, '(G10.3e1,a)') 12.34, "z"
|
| 22 |
|
|
if (s .ne. " 12.3 z") call abort
|
| 23 |
|
|
! E format with excessive precision
|
| 24 |
|
|
write (t, '(E199.192,A)') 1.5, "z"
|
| 25 |
|
|
if ((t(1:7) .ne. " 0.1500") .or. (t(194:200) .ne. "00E+01z")) call abort
|
| 26 |
|
|
! EN format
|
| 27 |
|
|
s = x
|
| 28 |
|
|
write (s, '(EN15.3,A)') 12873.6, "z"
|
| 29 |
|
|
if (s .ne. " 12.874E+03z") call abort
|
| 30 |
|
|
! EN format, negative exponent
|
| 31 |
|
|
s = x
|
| 32 |
|
|
write (s, '(EN15.3,A)') 12.345e-6, "z"
|
| 33 |
|
|
if (s .ne. " 12.345E-06z") call abort
|
| 34 |
|
|
! ES format
|
| 35 |
|
|
s = x
|
| 36 |
|
|
write (s, '(ES10.3,A)') 16.235, "z"
|
| 37 |
|
|
if (s .ne. " 1.624E+01z") call abort
|
| 38 |
|
|
! F format, small number
|
| 39 |
|
|
s = x
|
| 40 |
|
|
write (s, '(F10.8,A)') 1.0e-20, "z"
|
| 41 |
|
|
if (s .ne. "0.00000000z") call abort
|
| 42 |
|
|
! E format, very large number.
|
| 43 |
|
|
! Used to overflow with positive scale factor
|
| 44 |
|
|
s = x
|
| 45 |
|
|
write (s, '(1PE10.3,A)') huge(0d0), "z"
|
| 46 |
|
|
! The actual value is target specific, so just do a basic check
|
| 47 |
|
|
if ((s(1:1) .eq. "*") .or. (s(7:7) .ne. "+") .or. &
|
| 48 |
|
|
(s(11:11) .ne. "z")) call abort
|
| 49 |
|
|
! F format, round up with carry to most significant digit.
|
| 50 |
|
|
s = x
|
| 51 |
|
|
write (s, '(F10.3,A)') 0.9999, "z"
|
| 52 |
|
|
if (s .ne. " 1.000z") call abort
|
| 53 |
|
|
! F format, round up with carry to most significant digit < 0.1.
|
| 54 |
|
|
s = x
|
| 55 |
|
|
write (s, '(F10.3,A)') 0.0099, "z"
|
| 56 |
|
|
if (s .ne. " 0.010z") call abort
|
| 57 |
|
|
! E format, round up with carry to most significant digit.
|
| 58 |
|
|
s = x
|
| 59 |
|
|
write (s, '(E10.3,A)') 0.9999, "z"
|
| 60 |
|
|
if (s .ne. " 0.100E+01z") call abort
|
| 61 |
|
|
! EN format, round up with carry to most significant digit.
|
| 62 |
|
|
s = x
|
| 63 |
|
|
write (s, '(EN15.3,A)') 999.9999, "z"
|
| 64 |
|
|
if (s .ne. " 1.000E+03z") call abort
|
| 65 |
|
|
! E format, positive scale factor
|
| 66 |
|
|
s = x
|
| 67 |
|
|
write (s, '(2PE10.4,A)') 1.2345, "z"
|
| 68 |
|
|
if (s .ne. '12.345E-01z') call abort
|
| 69 |
|
|
! E format, negative scale factor
|
| 70 |
|
|
s = x
|
| 71 |
|
|
write (s, '(-2PE10.4,A)') 1.25, "z"
|
| 72 |
|
|
if (s .ne. '0.0013E+03z') call abort
|
| 73 |
|
|
! E format, single digit precision
|
| 74 |
|
|
s = x
|
| 75 |
|
|
write (s, '(E10.1,A)') 1.1, "z"
|
| 76 |
|
|
if (s .ne. ' 0.1E+01z') call abort
|
| 77 |
|
|
end
|
| 78 |
|
|
|
