https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107706
Bug ID: 107706 Summary: ICE in gfc_conv_procedure_call, at fortran/trans-expr.cc:7572 Product: gcc Version: 13.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: gs...@t-online.de Target Milestone: --- Started with r13 between 20220925 and 20221009 : $ cat z1.f90 integer function f(i) implicit none integer, value :: i !$omp assume holds(i < g()) block end block f = 3 contains function g() integer :: g(2) g = 4 end end $ gfortran-13-20221106 -c z1.f90 -fopenmp z1.f90:4:30: 4 | !$omp assume holds(i < g()) | 1 internal compiler error: in gfc_conv_procedure_call, at fortran/trans-expr.cc:7572 0x8b373b gfc_conv_procedure_call(gfc_se*, gfc_symbol*, gfc_actual_arglist*, gfc_expr*, vec<tree_node*, va_gc, vl_embed>*) ../../gcc/fortran/trans-expr.cc:7572 0x8a506a gfc_conv_expr(gfc_se*, gfc_expr*) ../../gcc/fortran/trans-expr.cc:9452 0x8a5462 gfc_conv_expr_op ../../gcc/fortran/trans-expr.cc:3903 0x8a5462 gfc_conv_expr(gfc_se*, gfc_expr*) ../../gcc/fortran/trans-expr.cc:9448 0x8e8aad gfc_trans_omp_assume ../../gcc/fortran/trans-openmp.cc:4588 0x8e8aad gfc_trans_omp_directive(gfc_code*) ../../gcc/fortran/trans-openmp.cc:7532 0x873e17 trans_code ../../gcc/fortran/trans.cc:2245 0x89d4ce gfc_generate_function_code(gfc_namespace*) ../../gcc/fortran/trans-decl.cc:7659 0x81f57e translate_all_program_units ../../gcc/fortran/parse.cc:6696 0x81f57e gfc_parse_file() ../../gcc/fortran/parse.cc:7002 0x86ccbf gfc_be_parse_file ../../gcc/fortran/f95-lang.cc:229