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