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