[Bug fortran/78277] New: ICE in is_anonymous_component, at fortran/interface.c:450

[gerhard.steinmetz.fortran@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78277

            Bug ID: 78277
           Summary: ICE in is_anonymous_component, at
                    fortran/interface.c:450
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Invalid code together with option -fdec, affects versions 6 and 7 :


$ cat z1.f90
subroutine sub1()
  structure /s/
    structure t
      integer i
    end structure
  end structure
  record /s/ u
  interface
    subroutine sub0(u)
      structure /s/
        structure t.
          integer i
        end structure
      end structure
      record /s/ u
    end
  end interface
  call sub0(u)
end


$ gfortran-7-20161106 -fdec -c z1.f90
z1.f90:11:19:

         structure t.
                   1
Error: Syntax error in data declaration at (1)
z1.f90:14:9:

       end structure
         1
Error: Expecting END SUBROUTINE statement at (1)
f951: internal compiler error: Segmentation fault
0xc3a64f crash_signal
        ../../gcc/toplev.c:338
0x6952d0 is_anonymous_component
        ../../gcc/fortran/interface.c:450
0x696cca compare_components
        ../../gcc/fortran/interface.c:479
0x697078 gfc_compare_derived_types(gfc_symbol*, gfc_symbol*)
        ../../gcc/fortran/interface.c:666
0x717e8b gfc_type_compatible(gfc_typespec*, gfc_typespec*)
        ../../gcc/fortran/symbol.c:4905
0x696c3d gfc_compare_types(gfc_typespec*, gfc_typespec*)
        ../../gcc/fortran/interface.c:727
0x696d2f compare_components
        ../../gcc/fortran/interface.c:513
0x697078 gfc_compare_derived_types(gfc_symbol*, gfc_symbol*)
        ../../gcc/fortran/interface.c:666
0x717e8b gfc_type_compatible(gfc_typespec*, gfc_typespec*)
        ../../gcc/fortran/symbol.c:4905
0x696c3d gfc_compare_types(gfc_typespec*, gfc_typespec*)
        ../../gcc/fortran/interface.c:727
0x69934b compare_parameter
        ../../gcc/fortran/interface.c:2252
0x69a0eb compare_actual_formal
        ../../gcc/fortran/interface.c:2924
0x69c09d gfc_procedure_use(gfc_symbol*, gfc_actual_arglist**, locus*)
        ../../gcc/fortran/interface.c:3661
0x6f8065 resolve_specific_s0
        ../../gcc/fortran/resolve.c:3303
0x6f8065 resolve_specific_s
        ../../gcc/fortran/resolve.c:3323
0x6f8065 resolve_call
        ../../gcc/fortran/resolve.c:3477
0x6f4f43 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:10994
0x6f75c2 resolve_codes
        ../../gcc/fortran/resolve.c:15994
0x6f76be gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:16029
0x6e1bba resolve_all_program_units
        ../../gcc/fortran/parse.c:5883