1! { dg-do compile }
2! { dg-options "-fdec-structure" }
3!
4! Test a regression where union components could compare equal to structure/map
5! components, causing an ICE in gfc_conv_component_ref.
6!
7
8implicit none
9
10structure /s1/
11  integer(4) i
12end structure
13
14structure /s2/
15  union
16    map
17      record /s1/ r
18    end map
19  end union
20end structure
21
22record /s2/ x
23
24x.r.i = 0
25
26end
27