Fortran/gfortran/regression/dec_structure_17.f90

! { dg-do compile }
! { dg-options "-fdec-structure" }
!
! PR fortran/78277
!
! Fix ICE for invalid structure declaration code.
!

subroutine sub1()
  structure /s/
    structure t
      integer i
    end structure
  end structure
  record /s/ u
  interface
    subroutine sub0(u)
      structure /s/
        structure t. ! { dg-error "Syntax error in anonymous structure decl" }
          integer i
        end structure
      end structure
      record /s/ u
    end
  end interface
  call sub0(u)
end