1! { dg-do compile } 2! { dg-options "-fdec-structure" } 3! 4! PR fortran/78277 5! 6! Fix ICE for invalid structure declaration code. 7! 8 9subroutine sub1() 10 structure /s/ 11 structure t 12 integer i 13 end structure 14 end structure 15 record /s/ u 16 interface 17 subroutine sub0(u) 18 structure /s/ 19 structure t. ! { dg-error "Syntax error in anonymous structure decl" } 20 integer i 21 end structure 22 end structure 23 record /s/ u 24 end 25 end interface 26 call sub0(u) 27end 28