[Bug fortran/49588] New: DATA statement with vector sections rejected (ICE: TODO)

["burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=49588

           Summary: DATA statement with vector sections rejected (ICE:
                    TODO)
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Keywords: rejects-valid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org
        Depends on: 49540


Follow up to PR 49540:

The following program never worked in gfortran, but it is valid. NAG and ifort
print:

 1 2 1 3 1 2

while gfortran just has:

END BLOCK DATA
             1
 Internal Error at (1):
 TODO: Vector sections in data statements


BLOCK DATA
  integer :: A(6)
  DATA A(::2)/3*1/
  DATA A([2,6])/2*2/
  DATA A([4])/3/
  COMMON /com/A
END BLOCK DATA

PROGRAM TEST
  integer :: A(6)
  COMMON /com/A
  print *, A
END PROGRAM TEST