[Bug fortran/77763] New: ICE in parse_struct_map, at fortran/parse.c:3064

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

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

            Bug ID: 77763
           Summary: ICE in parse_struct_map, at fortran/parse.c:3064
           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: ---

Doing some tests now with lately introduced DEC extensions.
Needs option -fdec, affects version 6 and 7 :


$ cat z1.f90
block data
   structure /s1/
   end structure
end block data


$ gfortran-7-20160925 -fdec -c z1.f90
z1.f90:2:17:

    structure /s1/
                 1
Error: STRUCTURE statement is not allowed inside of BLOCK DATA at (1)
f951: internal compiler error: Segmentation fault
0xc28c9f crash_signal
        ../../gcc/toplev.c:337
0x6d9bff parse_struct_map
        ../../gcc/fortran/parse.c:3064
0x6da781 parse_spec
        ../../gcc/fortran/parse.c:3688
0x6de3e0 parse_block_data
        ../../gcc/fortran/parse.c:5679
0x6de3e0 gfc_parse_file()
        ../../gcc/fortran/parse.c:6049
0x720d82 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198

---

Replacing "structure" with "type" :

$ cat y1.f90
block data
   type s1
   end type
end block data

$ gfortran-7-20160925 -c y1.f90
$