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

            Bug ID: 83274
           Summary: [PDT] ICE in delete_root and missing error
           Product: gcc
           Version: 8.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

One remaining issue is that a PDT definition statement cannot have
an additional component-spec-list or a second type-param-name-list.


$ cat z1.f90
program p
   type t(a)(b)
      integer, kind :: a
      integer, len :: b
   end type
end


$ cat z2.f90
program p
   type t(a)()
      integer, len :: a
   end type
end


$ cat z3.f90
program p
   type t(a)(:)
      integer :: a
   end type
end


$ cat z4.f90
program p
   type t(a)(b)(c)
      integer, len :: a
      integer, kind :: b
      integer :: c
   end type
end

#...


$ gfortran-8-20171203 -c z1.f90
f951: internal compiler error: Segmentation fault
0xb6a96f crash_signal
        ../../gcc/toplev.c:325
0x66ce9b delete_root
        ../../gcc/fortran/bbt.c:150
0x66d06e gfc_delete_bbt(void*, void*, int (*)(void*, void*))
        ../../gcc/fortran/bbt.c:197
0x725c48 gfc_delete_symtree(gfc_symtree**, char const*)
        ../../gcc/fortran/symbol.c:2925
0x727416 gfc_restore_last_undo_checkpoint()
        ../../gcc/fortran/symbol.c:3694
0x6e5f67 reject_statement
        ../../gcc/fortran/parse.c:2546
0x6e607c match_word_omp_simd
        ../../gcc/fortran/parse.c:98
0x6ea06b match_word
        ../../gcc/fortran/parse.c:565
0x6ea06b decode_statement
        ../../gcc/fortran/parse.c:565
0x6eb544 next_free
        ../../gcc/fortran/parse.c:1225
0x6eb544 next_statement
        ../../gcc/fortran/parse.c:1457
0x6ed34c parse_spec
        ../../gcc/fortran/parse.c:3651
0x6ef323 parse_progunit
        ../../gcc/fortran/parse.c:5638
0x6f08e4 gfc_parse_file()
        ../../gcc/fortran/parse.c:6178
0x73537f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204

Reply via email to