[patch,fortran] PR32928 DATA statement with array element as initializer is rejected

[Jerry DeLisle]

Tobias Burnus wrote:
> Jerry DeLisle wrote:
>> Jerry DeLisle wrote:
>>> OK for trunk?
> NOT OK. I just found out that it causes a regression by not accepting
> the following DATA statement. The error message is:
> 
> Error: DATA statement at (1) has more variables than values
> 
> The test case comes from Polyhedron's aermod.f90:
> 
>       IMPLICIT NONE
>       INTEGER , PARAMETER :: NTAB = 3
>       REAL :: SR(NTAB) , SR3(NTAB)
>       DATA SR/NTAB*0.0/ , SR3/NTAB*0.0/
> end
> 
> Tobias
> 

Attached is a revised patch.  Regression tested on x86-64.  I also compiled all 
of the Polyhedron test cases, NIST, and LAPACK.

OK for trunk?

Jerry


-------------- next part --------------
A non-text attachment was scrubbed...
Name: pr32928-3.diff
Type: text/x-patch
Size: 935 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20071127/6e4caad5/attachment.bin>