[Bug fortran/108546] New: [11/12/13 Regression] ICE in expand_expr_real_1, at expr.cc:10910

[gscfq--- via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108546

            Bug ID: 108546
           Summary: [11/12/13 Regression] ICE in expand_expr_real_1, at
                    expr.cc:10910
           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 r10, between 20191110 and 20191117 :


$ cat z1.f90
module m
   use iso_c_binding
contains
   subroutine s(x)
      type(c_ptr), optional :: x
      !$omp target is_device_ptr(x)
      if (c_associated(x)) stop
      !$omp end target
   end
end


$ cat z2.f90            # compiles, for reference only
module m
   use iso_c_binding
contains
   subroutine s(x)
      type(c_ptr) :: x
      !$omp target is_device_ptr(x)
      if (c_associated(x)) stop
      !$omp end target
   end
end


$ gfortran-13-20230122 -c z2.f90 -fopenmp
$ gfortran-10-20191110 -c z1.f90 -fopenmp
$
$ gfortran-13-20230122 -c z1.f90 -fopenmp
during RTL pass: expand
z1.f90:6:35:

    6 |       !$omp target is_device_ptr(x)
      |                                   ^
internal compiler error: in expand_expr_real_1, at expr.cc:10910
0xa570bf expand_expr_real_1(tree_node*, rtx_def*, machine_mode,
expand_modifier, rtx_def**, bool)
        ../../gcc/expr.cc:10904
0xa5e66e expand_expr
        ../../gcc/expr.h:310
0xa5e66e expand_operands(tree_node*, tree_node*, rtx_def*, rtx_def**,
rtx_def**, expand_modifier)
        ../../gcc/expr.cc:8582
0xa6a23a do_store_flag
        ../../gcc/expr.cc:13113
0xa6574e expand_expr_real_2(separate_ops*, rtx_def*, machine_mode,
expand_modifier)
        ../../gcc/expr.cc:10259
0x94fba2 expand_gimple_stmt_1
        ../../gcc/cfgexpand.cc:3983
0x94fba2 expand_gimple_stmt
        ../../gcc/cfgexpand.cc:4044
0x9548d7 expand_gimple_basic_block
        ../../gcc/cfgexpand.cc:6096
0x95739e execute
        ../../gcc/cfgexpand.cc:6831