[Bug fortran/77783] ICE in gfc_compare_union_types, at fortran/interface.c:545

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

Some variations :


$ cat z2.f90
subroutine f(x)
  structure /s1/
    union
      integer i
    end union
  end structure
  record /s1/ x
  x.i = 0
end
subroutine g
  structure /s1/
    union
    end union
  end structure
  record /s1/ x
  call f(x)
end


$ cat z3.f90
subroutine f(x)
  structure /s1/
    union
    end union
  end structure
  record /s1/ x
  x.i = 0
end
subroutine g
  structure /s1/
    union
    end union
  end structure
  record /s1/ x
  call f(x)
end


$ gfortran-7-20160925 -fdec -c z3.f90
z3.f90:7:5:

   x.i = 0
     1
Error: 'i' at (1) is not a member of the 'S1' structure
f951: internal compiler error: Segmentation fault
0xc28c9f crash_signal
        ../../gcc/toplev.c:337
0x694783 gfc_compare_union_types(gfc_symbol*, gfc_symbol*)
        ../../gcc/fortran/interface.c:544
0x69469a compare_components
        ../../gcc/fortran/interface.c:502
#...