[Bug fortran/71068] New: ICE in check_data_variable(): Bad expression

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 71068
           Summary: ICE in check_data_variable(): Bad expression
           Product: gcc
           Version: 6.1.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

With this wrong code :

$ cat z1.f90
program p
   integer :: a(2)[*]
   data a(1)[1] /1/
   data a(2)[1] /2/
end

$ gfortran-6 -fcoarray=lib z1.f90
f951: internal compiler error: check_data_variable(): Bad expression



Whereas :

$ gfortran-6 -fcoarray=single z1.f90
z1.f90:4:7:

    data a(2)[1] /2/
       1
Error: DATA element âaâ at (1) cannot have a coindex
z1.f90:3:7:

    data a(1)[1] /1/
       1
Error: DATA element âaâ at (1) cannot have a coindex