[Bug fortran/77785] New: ICE in gfc_get_caf_token_offset, at fortran/trans-expr.c:1990

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

            Bug ID: 77785
           Summary: ICE in gfc_get_caf_token_offset, at
                    fortran/trans-expr.c:1990
           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: ---

Since recently :

$ cat z1.f90
subroutine s(x)
   integer, allocatable :: x(:)[:]
   allocate (x(1)[*])
end


$ gfortran-7-20160925 -fcoarray=single -c z1.f90
$ gfortran-7-20160925 -fcoarray=lib -c z1.f90
z1.f90:3:0:

    allocate (x(1)[*])

internal compiler error: in gfc_get_caf_token_offset, at
fortran/trans-expr.c:1990
0x765017 gfc_get_caf_token_offset(gfc_se*, tree_node**, tree_node**,
tree_node*, tree_node*, gfc_expr*)
        ../../gcc/fortran/trans-expr.c:1989
0x7373d5 gfc_array_allocate(gfc_se*, gfc_expr*, tree_node*, tree_node*,
tree_node*, tree_node*, tree_node*, tree_node**, gfc_expr*, tree_node*, bool)
        ../../gcc/fortran/trans-array.c:5546
0x7ac165 gfc_trans_allocate(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:5799
0x723ff7 trans_code
        ../../gcc/fortran/trans.c:1870
0x753838 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6257
0x6de170 translate_all_program_units
        ../../gcc/fortran/parse.c:5940
0x6de170 gfc_parse_file()
        ../../gcc/fortran/parse.c:6146
0x720d82 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198