blob: 2cb38fca0fa1ee3e46bf36ce867295e193ec2e1f [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fdec-structure" }
!
! Test a regression where union components could compare equal to structure/map
! components, causing an ICE in gfc_conv_component_ref.
!
implicit none
structure /s1/
integer(4) i
end structure
structure /s2/
union
map
record /s1/ r
end map
end union
end structure
record /s2/ x
x.r.i = 0
end