gcc/testsuite/gfortran.dg/dec_union_8.f90

   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
   9 program p
  10
  11 structure /s1/
  12   union
  13     map
  14     end map
  15     map
  16       real :: a = 2.0
  17     end map
  18   end union
  19 end structure
  20
  21 end