[Bug libfortran/48852] Invalid spaces in list-directed output of complex constants

["jvdelisle at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=48852

--- Comment #17 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Thu Jun 23 15:58:05 2016
New Revision: 237735

URL: https://gcc.gnu.org/viewcvs?rev=237735&root=gcc&view=rev
Log:
2016-06-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/48852
        * io/write.c: Cleaned up whitespace.
        (write_d, write_e, write_f, write_es, write_en): Use new helper
function
        write_float_0. (write_float_0): New helper function.
        (get_precision, select_buffer, select_string, write_float_string): New
        helper functions used in remaining float writing functions. Helper
function
        write_float_string now contains code for writing to kind=4 character
        internal units.
        (write_real): Modified to establish working buffers at this level and
to
        use new helper functions.
        (write_real_g0): Likewise modified.
        (write_complex): Likewise modified. Gets both float strings before
        output so that final lengths can be determined which allows right
        justifying the complex number with no intervening spaces.
        * io/write_float.def (build_float_string): Renamed from previosly
        output_float, modified to use buffers passed in from higher functions,
        builds a null terminated string of the floating point value. Character
        kind=4 code eliminated.
        (write_infnan): Likewise modified to use incoming buffers and eliminate
        kind=4 related code.
        (OUTPUT_FLOAT_FMT_G): Deleted, functionality moved into FORMAT_FLOAT.
        (FORMAT_FLOAT): Renamed macro from WRITE_FLOAT. Use build_float_string.
        (get_float_string): Renamed from write_float, uses FORMAT_FLOAT macro.
        Buffer allocation removed, now at higher level.

        PR libgfortran/48852
        * gfortran.dg/char4_iunit_1.f03: Update test.
        * gfortran.dg/f2003_io_5.f03: Update test.
        * gfortran.dg/real_const_3.f90: Update test.

Modified:
    trunk/gcc/testsuite/ChangeLog
    trunk/gcc/testsuite/gfortran.dg/char4_iunit_1.f03
    trunk/gcc/testsuite/gfortran.dg/f2003_io_5.f03
    trunk/gcc/testsuite/gfortran.dg/real_const_3.f90
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/write.c
    trunk/libgfortran/io/write_float.def