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.fort...@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
