[Patch, libgfortran] PR59771, PR59774, and PR59836 Bugs in FORMATs Fw.0, Gw.0, and Gw.d

[Dominique d'Humières]

> Yes OK, and I will commit for you.

Thanks Jerry.

While trying to back port the patch, I have found a leftover of my previous attempts:

  if  (ft != FMT_F && before == 0 && w > 0 && d == 0 && p == 0)

should be

  if  (ft != FMT_F && w > 0 && d == 0 && p == 0)

The second change was needed for 4.7 (still one failure after it):

	if (nzero_real == d && digits[0] >= char)

changed to

	if (digits[0] >= char)

I am attaching the updated patch.

Dominique

-------------- next part --------------
A non-text attachment was scrubbed...
Name: patch-59774t2
Type: application/octet-stream
Size: 5885 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20140119/38fb1053/attachment.obj>