[Bug fortran/78781] New: ICE in gfc_deallocate_scalar_with_status, at fortran/trans.c:1588

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

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

            Bug ID: 78781
           Summary: ICE in gfc_deallocate_scalar_with_status, at
                    fortran/trans.c:1588
           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
module m
   type t
      class(t), pointer :: z
   end type
contains
   function f(x)
      class(t) :: x[*]
      if ( associated(x%z) ) deallocate(x%z)
   end
end


$ gfortran-7-20161211 -fcoarray=lib -c z1.f90
z1.f90:8:0:

       if ( associated(x%z) ) deallocate(x%z)

internal compiler error: in gfc_deallocate_scalar_with_status, at
fortran/trans.c:1588
0x734160 gfc_deallocate_scalar_with_status(tree_node*, tree_node*, tree_node*,
bool, gfc_expr*, gfc_typespec, bool)
        ../../gcc/fortran/trans.c:1588
0x7bf82c gfc_trans_deallocate(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:6558
0x72f587 trans_code
        ../../gcc/fortran/trans.c:1970
0x7b1dc3 gfc_trans_if_1
        ../../gcc/fortran/trans-stmt.c:1303
0x7b977a gfc_trans_if(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:1334
0x72f677 trans_code
        ../../gcc/fortran/trans.c:1906
0x760568 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6307
0x7344d9 gfc_generate_module_code(gfc_namespace*)
        ../../gcc/fortran/trans.c:2192
0x6e83bd translate_all_program_units
        ../../gcc/fortran/parse.c:5995
0x6e83bd gfc_parse_file()
        ../../gcc/fortran/parse.c:6208
0x72c312 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:202