[patch, libgfortran] Bug 83191 - [7/8 Regression] Writing a namelist with repeated complex numbers

[Jerry DeLisle]

Hi all,

I plan to commit the attached patch with a test case shortly.

It is relatively simple. Thanks to Dominique for pinpointing the location right
away.

Regression tested on x86_64-pc-linux-gnu.

Regards,

Jerry

2017-12-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
	    Dominique d'Humieres  <dominiq@lps.ens.fr>

	PR libgfortran/83191
	* io/transfer.c (list_formatted_read_scalar): Do not set
	namelist_mode bit here. (namelist_read): Likewise.
	(data_transfer_init): Clear the mode bit here.
	(finalize_transfer): Do set the mode bit just before any calls
	to namelist_read or namelist_write. It can now be referred to
	in complex_write.
	^ io/write.c (write_complex): Suppress the leading blanks when
	namelist_mode bit is not set to 1.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr83191.diff
Type: text/x-patch
Size: 2482 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/gcc-patches/attachments/20171203/b8ec136a/attachment.bin>