[Fortran, Patch] PR 33232 - Reject comma in "READ(...)," with -std=f95

[Tobias Burnus]

Tobias Schlüter wrote:
> Tobias Burnus wrote:
>> read *, a    ! valid
> From looking over the code, I think this will break the second case
> you mentioned.

Well, it does not. (I wondered myself, but as it did not break, I
ignored it.)
Thanks for being pedantic; I now remove the whole k == M_* check as
comma_flag is what matters.

> Do we have any testcases for this?
I could find only the following:
gfortran.dg/vect/vect-1.f90:READ*, X, Y
gfortran.dg/vect/vect-2.f90:READ*, X, Y

which however does not test for
  READ '(format-string)', ...
and which are
  ! { dg-require-effective-target vect_float }
thus I added another test case.

Rebuild and check-gfortraned. Now ok for the trunk?

Tobias
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: io_comma.diff
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20070831/5344f3fb/attachment.ksh>