1! { dg-do compile }
2! { dg-options "-fdec-structure" }
3!
4! PR fortran/77764
5!
6! Test an ICE due to a map with zero components.
7!
8
9program p
10
11structure /s1/
12  union
13    map
14    end map
15    map
16      real :: a = 2.0
17    end map
18  end union
19end structure
20
21end
22