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.