[patch, fortran] PR52393 I/O: "READ format" statement with parenthesized default-char-expr

[Jerry DeLisle]

The attached patch fixes this by adding code to match a default character
expression if the left paren is first matched on a READ statement.  If the
expression is matched the dt-format is set and processing continues.  Otherwise
execution drops through to match a control list as usual.

Regression tested on x86-64-linux. Test case attached.

OK for trunk?

Regards,

Jerry

2016-05-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/52393
	* io.c (match_io): For READ, try to match a default character
	expression. If found, set the dt format expression to this,
	otherwise go back and try control list.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr52393.diff
Type: text/x-patch
Size: 2185 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20160531/b8349a1f/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: fmt_read_3.f90
Type: text/x-fortran
Size: 300 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20160531/b8349a1f/attachment-0001.bin>