(j3.2006) Undefinition and DO CONCURRENT

[Van Snyder]

According to 16.6.6p1(17):

        When a DO CONCURRENT construct terminates, a variable that is
        defined or becomes undefined during more than one iteration of
        the construct becomes undefined.

  integer :: I
  integer :: A(10)
  do concurrent ( i = 1:size(a) )
    a(i) = i
  end do

causes A to become undefined.

I think "variable" needs to be "scalar variable".

Does this need an interp, or can we just repair it in the course of
revision?