[Bug fortran/18827] ICE on assign to common variable

["Thomas dot Koenig at online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

------- Additional Comments From Thomas dot Koenig at online dot de  2004-12-04 14:56 -------
The same bug is triggered if the assigned variable
is equivalenced:

$ cat assign4.f
      program main
      integer i
      integer j
      equivalence (i,j)
      assign 1000 to i
      goto j
 1000 continue
      end
$ gfortran assign4.f
 In file assign4.f:5

      assign 1000 to i
                                                                       1
Warning: Obsolete: ASSIGN statement at (1)
 In file assign4.f:6

      goto j
           1
Warning: Obsolete: Assigned GOTO statement at (1)
assign4.f: In function 'MAIN__':
assign4.f:5: internal compiler error: tree check: expected class
'declaration',have 'reference' (component_ref) in gfc_trans_label_assign, at
fortran/trans-stmt.c:101
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.


-- 


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