[Bug libfortran/47284] New: G format outputs wrong number of asterixes

[brendanarnold at gmail dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47284

           Summary: G format outputs wrong number of asterixes
           Product: gcc
           Version: 4.4.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: libfortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: brendanarnold@gmail.com


Try this simple program


       PROGRAM FOO
       WRITE(*,100) -0.1

100    FORMAT(G5.1)

       STOP
       END

Result is a single '*    ' and not '*****' as expected


Could test for asterix in previously written data before outputting blanks in
line 687 of libgfortran/io/write_float.def, if they are present then output
asterix instead of blanks.