[Bug fortran/83191] [7/8 Regression] Writing a namelist with repeated complex numbers

[dominiq at lps dot ens.fr]

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

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |NEW
      Known to work|                            |6.4.0
           Keywords|                            |wrong-code
   Last reconfirmed|                            |2017-11-28
                 CC|                            |jvdelisle at gcc dot gnu.org
     Ever confirmed|0                           |1
            Summary|Writing a namelist with     |[7/8 Regression] Writing a
                   |repeated complex numbers    |namelist with repeated
                   |                            |complex numbers
   Target Milestone|---                         |7.3
      Known to fail|                            |7.2.0, 8.0

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Likely caused by r237735 (pr48852).

The test in pr48852 comment 0 prints now

             (1.00000000,0.00000000)

It should probably be

(1.00000000,0.00000000)

If I read the code correctly, it is caused by the lines

  lblanks = width - res_len1 - res_len2 - 3;

  write_x (dtp, lblanks, lblanks);

needed to have right justified outputs (case C in pr48852 comment 12).