[Bug fortran/72716] New: ICE in gfc_resolve_omp_declare_simd, at fortran/openmp.c:5156

["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=72716

            Bug ID: 72716
           Summary: ICE in gfc_resolve_omp_declare_simd, at
                    fortran/openmp.c:5156
           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: ---

The error message tells the story :


$ cat z1.f90
block data
!$omp declare simd (z)
end block data


$ gfortran-7-20160724 -fopenmp -c z1.f90
z1.f90:2:22:

 !$omp declare simd (z)
                      1
Error: !$OMP DECLARE SIMD statement is not allowed inside of BLOCK DATA at (1)
f951: internal compiler error: Segmentation fault
0xc137cf crash_signal
        ../../gcc/toplev.c:335
0x6c8e55 gfc_resolve_omp_declare_simd(gfc_namespace*)
        ../../gcc/fortran/openmp.c:5156
0x6f0b3b resolve_types
        ../../gcc/fortran/resolve.c:15630
0x6ec10f gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:15699
0x6d7974 gfc_parse_file()
        ../../gcc/fortran/parse.c:6061
0x719b82 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198