[Bug fortran/78618] New: ICE in gfc_check_rank, at fortran/check.c:3670

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

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

            Bug ID: 78618
           Summary: ICE in gfc_check_rank, at fortran/check.c:3670
           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: ---

With invalid code, down to at least 4.8 :


$ cat z1.f90
program p
   character, parameter :: c = char(256,4)
   print *, rank(c)
end


$ gfortran-7-20161127 z1.f90
f951: internal compiler error: Segmentation fault
0xc4532f crash_signal
        ../../gcc/toplev.c:333
0x66bb6b gfc_check_rank(gfc_expr*)
        ../../gcc/fortran/check.c:3670
0x6a0f34 check_specific
        ../../gcc/fortran/intrinsic.c:4506
0x6aad94 gfc_intrinsic_func_interface(gfc_expr*, int)
        ../../gcc/fortran/intrinsic.c:4721
0x6f2814 resolve_unknown_f
        ../../gcc/fortran/resolve.c:2733
0x6f2814 resolve_function
        ../../gcc/fortran/resolve.c:3035
0x6f291a gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.c:6482
0x6f8f32 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:10818
0x6f8c07 gfc_resolve_blocks(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:9865
0x6f903b gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.c:10808
0x6fba22 resolve_codes
        ../../gcc/fortran/resolve.c:16025
0x6fbb1e gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:16060
0x6e609a resolve_all_program_units
        ../../gcc/fortran/parse.c:5977
0x6e609a gfc_parse_file()
        ../../gcc/fortran/parse.c:6224
0x729ee2 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:202