[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
> 
I will investigate this further.  Thanks for review.

Jerry