https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85506
Bug ID: 85506
Summary: ICE in gfc_assign_data_value, at fortran/data.c:448
Product: gcc
Version: 8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Extracted from pr70870, in consequence of pr70870 comment 7.
$ cat z1.f90
program p
type t
integer :: n
end type
type(t), pointer :: z => null()
data z%n / 3 /
print *, z%n
end
$ gfortran-8-20180422 -c z1.f90
f951: internal compiler error: in gfc_assign_data_value, at fortran/data.c:448
0x68e5a9 gfc_assign_data_value(gfc_expr*, gfc_expr*, __mpz_struct*,
__mpz_struct (*) [1])
../../gcc/fortran/data.c:448
0x711339 check_data_variable
../../gcc/fortran/resolve.c:15477
0x711682 traverse_data_var
../../gcc/fortran/resolve.c:15606
0x71c151 resolve_data
../../gcc/fortran/resolve.c:15661
0x71c151 resolve_types
../../gcc/fortran/resolve.c:16479
0x7177ec gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.c:16568
0x700f4a resolve_all_program_units
../../gcc/fortran/parse.c:6060
0x700f4a gfc_parse_file()
../../gcc/fortran/parse.c:6310
0x747e2f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:204
