https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88048
Bug ID: 88048
Summary: [8/9 Regression] ICE in check_data_variable, at
fortran/resolve.c:15491
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: ---
With invalid code :
$ cat z1.f90
program p
integer, parameter :: a(2) = 1
data a(2) /a(1)/
print *, a
end
$ gfortran-7 -g -O0 -Wall -Wextra -fcheck=all z1.f90
$ a.out
1 1
$ gfortran-9-20181111 -c z1.f90
f951: internal compiler error: check_data_variable(): Bad expression
0x61a4a1 gfc_internal_error(char const*, ...)
../../gcc/fortran/error.c:1362
0x68fb31 check_data_variable
../../gcc/fortran/resolve.c:15491
0x68fd42 traverse_data_var
../../gcc/fortran/resolve.c:15764
0x6817f1 resolve_data
../../gcc/fortran/resolve.c:15819
0x6817f1 resolve_types
../../gcc/fortran/resolve.c:16644
0x68656c gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.c:16733
0x674337 resolve_all_program_units
../../gcc/fortran/parse.c:6064
0x674337 gfc_parse_file()
../../gcc/fortran/parse.c:6314
0x6bc89f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:204
---
$ cat z2.f90
program p
integer, parameter :: a(2) = [1, 2]
data a /a(2), a(1)/
print *, a
end
$ gfortran-9-20181111 z2.f90 -static-libgfortran
$ a.out
2 1
$
