https://gcc.gnu.org/bugzilla/show_bug.cgi?id=126968
Bug ID: 126968
Summary: ICE on invalid use of ASSOCIATE
Product: gcc
Version: 17.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: jvdelisle at gcc dot gnu.org
Target Milestone: ---
I think this is new. Found while looking at other issues.
$ cat test.f90
module mib
type :: ta
integer :: x = 1
integer :: pad = 0
end type
type :: tb
real :: junk = 0
real :: x = 2.5
end type
end module
program pib
use mib
implicit none
real :: r
associate (pp => make())
r = pp%x
end associate
print *, r ! expect 2.5
contains
function make() result(q)
type(tb) :: q
end function
end program
$ gfc test.f90
test.f90:16:13:
16 | r = pp%x
| 1
internal compiler error: in gfc_conv_component_ref, at
fortran/trans-expr.cc:3010
0x27073df internal_error(char const*, ...)
../../trunk/gcc/diagnostic-global-context.cc:787
0x6aa1f3 fancy_abort(char const*, int, char const*)
../../trunk/gcc/diagnostics/context.cc:1813
0x414e6f gfc_conv_component_ref(gfc_se*, gfc_ref*)
../../trunk/gcc/fortran/trans-expr.cc:3010
0x85906f gfc_conv_variable
../../trunk/gcc/fortran/trans-expr.cc:3461
0x857c96 gfc_conv_expr_val(gfc_se*, gfc_expr*)
../../trunk/gcc/fortran/trans-expr.cc:10797
0x8651d7 gfc_conv_intrinsic_function_args
../../trunk/gcc/fortran/trans-intrinsic.cc:238
0x86baee gfc_conv_intrinsic_conversion
../../trunk/gcc/fortran/trans-intrinsic.cc:296
0x8610a1 gfc_trans_assignment_1
../../trunk/gcc/fortran/trans-expr.cc:13445
0x7fe677 trans_code
../../trunk/gcc/fortran/trans.cc:2363
0x8b8f6f gfc_trans_block_construct(gfc_code*)
../../trunk/gcc/fortran/trans-stmt.cc:2580
0x7fe737 trans_code
../../trunk/gcc/fortran/trans.cc:2463
0x83af24 gfc_generate_function_code(gfc_namespace*)
../../trunk/gcc/fortran/trans-decl.cc:8328
0x791e26 translate_all_program_units
../../trunk/gcc/fortran/parse.cc:7707
0x791e26 gfc_parse_file()
../../trunk/gcc/fortran/parse.cc:8037
0x7fb02f gfc_be_parse_file
../../trunk/gcc/fortran/f95-lang.cc:249
/home/jerry/dev/usr/libexec/gcc/x86_64-pc-linux-gnu/17.0.0/f951 test.f90 -quiet
-dumpdir a- -dumpbase test.f90 -dumpbase-ext .f90 -mtune=generic -march=x86-64
-fintrinsic-modules-path
/home/jerry/dev/usr/lib/gcc/x86_64-pc-linux-gnu/17.0.0/finclude
-fpre-include=/usr/include/finclude/math-vector-fortran.h -o /tmp/ccGGl3GY.s
Please submit a full bug report, with preprocessed source (by using
-freport-bug).
Please include the complete backtrace with any bug report.
See <https://gcc.gnu.org/bugs/> for instructions.
