https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93113
Bug ID: 93113
Summary: [10 Regression] ICE in gfc_check_resolver with complex
arrays
Product: gcc
Version: 10.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: tkoenig at gcc dot gnu.org
Target Milestone: ---
$ cat matmul.f90
program main
complex, dimension(:,:), allocatable :: a,b,c
read (*,*) n
allocate (a(n,n), b(n,n), c(n,n))
call random_number(a%re); a%re = a%re - 0.5
call random_number(a%im); a%im = a%im - 0.5
call random_number(b%re); b%re = b%re - 0.5
call random_number(b%im); b%im = b%im - 0.5
c = matmul(transpose(conjg(a)), b)
end program main
$ !gf
gfortran -O matmul.f90
f951: interner Compiler-Fehler: in gfc_dep_resolver, bei
fortran/dependency.c:2290
0x614828 gfc_dep_resolver(gfc_ref*, gfc_ref*, gfc_reverse*, bool)
../../trunk/gcc/fortran/dependency.c:2290
0x8c683a gfc_check_dependency(gfc_expr*, gfc_expr*, bool)
../../trunk/gcc/fortran/dependency.c:1297
0x966857 optimize_assignment
../../trunk/gcc/fortran/frontend-passes.c:1684
0x966857 optimize_code
../../trunk/gcc/fortran/frontend-passes.c:329
0x96c329 gfc_code_walker(gfc_code**, int (*)(gfc_code**, int*, void*), int
(*)(gfc_expr**, int*, void*), void*)
../../trunk/gcc/fortran/frontend-passes.c:5044
0x96d632 optimize_namespace
../../trunk/gcc/fortran/frontend-passes.c:1479
0x96da27 gfc_run_passes(gfc_namespace*)
../../trunk/gcc/fortran/frontend-passes.c:169
0x88b417 gfc_resolve(gfc_namespace*)
../../trunk/gcc/fortran/resolve.c:17221
0x88b417 gfc_resolve(gfc_namespace*)
../../trunk/gcc/fortran/resolve.c:17194
0x87dff8 resolve_all_program_units
../../trunk/gcc/fortran/parse.c:6241
0x87dff8 gfc_parse_file()
../../trunk/gcc/fortran/parse.c:6488
0x8ce5cf gfc_be_parse_file
../../trunk/gcc/fortran/f95-lang.c:210
Bitte senden Sie einen vollständigen Fehlerbericht auf Englisch ein;
inclusive vorverarbeitetem Quellcode, wenn es dienlich ist.
Please include the complete backtrace with any bug report.
Weitere Hinweise finden Sie unter »<https://gcc.gnu.org/bugs/>«.
