Fix fortran/PR23151 - illegal print syntax

[Thomas Koenig <Thomas dot Koenig at online dot de>]

:ADDPATCH fortran:

Hello world,

this fixes PR 23131, where we were accepting an illegal print
syntax.  Regression-testing actually found one such instance
in the testsuite :-)  There are two test cases, one for fixed
and the other one for free format.

To make sense of the patch by looking at it, you'll have to go
back to the "if" that the "else" in the patch refers to, which is

  if (gfc_match_char ('(') == MATCH_NO)

OK for trunk?  Do we want this for 4.1?

	Thomas

2006-05-25  Thomas Koenig  <Thomas.Koenig@online.de>

	PR fortran/23151
	* io.c (match_io):  print (1,*) is an error.

2006-05-25  Thomas Koenig  <Thomas.Koenig@online.de>

	PR fortran/23151
	* gfortran.dg/inquire_9.f90:  Fix illegal print syntax.
	* gfortran.dg/print_parentheses_1.f:  New test.
	* gfortran.dg/print_parentheses_2.f90:  New test.

Attachment: print-diff
Description: Text document

Attachment: print_parentheses_1.f
Description: Text document

Attachment: print_parentheses_2.f90
Description: Text document