[Bug fortran/69741] forall array scalar loop counters

[anlauf at gmx dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69741

Harald Anlauf <anlauf at gmx dot de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gmx dot de

--- Comment #3 from Harald Anlauf <anlauf at gmx dot de> ---
(In reply to Dominique d'Humieres from comment #1)
> Confirmed from 4.8 up to trunk (6.0). I don't see why the code should be
> invalid.

Sunf95 rejects it with:

  forall (ii(1)=1:3 , ii(2)=1:2)
            ^                    
"pr69741.f90", Line = 5, Column = 13: ERROR: The index-name in a FORALL header
must be a named scalar variable of type INTEGER.
                        ^        
"pr69741.f90", Line = 5, Column = 25: ERROR: The index-name in a FORALL header
must be a named scalar variable of type INTEGER.


F2008 has:

R751 forall-construct-stmt is [forall-construct-name :] FORALL
concurrent-header

The scope and attributes of an index-name in a concurrent-header in a FORALL
construct or statement are described in 16.4.

16.4, par.5:

The name of a variable that appears as an index-name in a DO CONCURRENT
construct, FORALL statement, or FORALL construct has a scope of the statement
or construct. It is a scalar variable.


Thus invalid.