https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85685
Bug ID: 85685
Summary: [7/8/9 Regression] ICE in
gfc_deallocate_scalar_with_status, at
fortran/trans.c:1598
Product: gcc
Version: 9.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Affects versions 7/8/9, if source contains an unused class variable.
Compiles without that line "... unused".
$ cat z1.f90
program p
type t
integer, pointer :: z
end type
class(t), allocatable :: unused
contains
subroutine s(x)
type(t) :: x[*]
if ( associated(x%z) ) deallocate(x%z)
end
end
$ gfortran-6 -c z1.f90 -fcoarray=lib
$
$ gfortran-9-20180506 -c z1.f90 -fcoarray=single
$ gfortran-9-20180506 -c z1.f90 -fcoarray=lib
z1.f90:9:0:
if ( associated(x%z) ) deallocate(x%z)
internal compiler error: in gfc_deallocate_scalar_with_status, at
fortran/trans.c:1598
0x74e610 gfc_deallocate_scalar_with_status(tree_node*, tree_node*, tree_node*,
bool, gfc_expr*, gfc_typespec, bool)
../../gcc/fortran/trans.c:1598
0x7bc806 gfc_trans_deallocate(gfc_code*)
../../gcc/fortran/trans-stmt.c:6943
0x74af27 trans_code
../../gcc/fortran/trans.c:2000
0x7b03f3 gfc_trans_if_1
../../gcc/fortran/trans-stmt.c:1433
0x7b81da gfc_trans_if(gfc_code*)
../../gcc/fortran/trans-stmt.c:1464
0x74b017 trans_code
../../gcc/fortran/trans.c:1916
0x772499 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6507
0x772317 gfc_generate_contained_functions
../../gcc/fortran/trans-decl.c:5519
0x772317 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6436
0x7015e0 translate_all_program_units
../../gcc/fortran/parse.c:6121
0x7015e0 gfc_parse_file()
../../gcc/fortran/parse.c:6324
0x74832f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:204
