2 ! { dg-options "-fdec-structure" }
4 ! Test STRUCTUREs which share names with variables.
8 character(*), intent(in
) :: s
13 ! Special regression where shared names within a module caused an ICE
14 ! from gfc_get_module_backend_decl
15 module dec_structure_5m
23 program dec_structure_5
41 if (s7(1).r
.ne
. 1.0) then
42 call aborts("s7(1).r")
45 if (s7(2).r
.ne
. 2.0) then
46 call aborts("s7(2).r")