[Bug middle-end/103643] New: [12 Regression][OpenMP] ICE in create_tmp_var, at gimple-expr.c:482 - via gimplify_omp_affinity

[burnus at gcc dot gnu.org]

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

            Bug ID: 103643
           Summary: [12 Regression][OpenMP] ICE in create_tmp_var, at
                    gimple-expr.c:482 - via gimplify_omp_affinity
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Keywords: ice-on-valid-code, openmp
          Severity: normal
          Priority: P3
         Component: middle-end
          Assignee: unassigned at gcc dot gnu.org
          Reporter: burnus at gcc dot gnu.org
                CC: jakub at gcc dot gnu.org
  Target Milestone: ---

Did compile in November but now ICEs.

Long testcase:
https://github.com/SOLLVE/sollve_vv/blob/master/tests/5.0/task/test_task_affinity_device.F90


./tests/5.0/task/test_task_affinity_device.F90:47:51:

   47 |     !$omp task depend(out: B) shared(B) affinity(A)
      |                                                   ^
internal compiler error: in create_tmp_var, at gimple-expr.c:482
0x6dd612 create_tmp_var(tree_node*, char const*)
        ../../repos/gcc/gcc/gimple-expr.c:482
0xcfada0 create_tmp_from_val
        ../../repos/gcc/gcc/gimplify.c:570
0xcfada0 lookup_tmp_var
        ../../repos/gcc/gcc/gimplify.c:588
0xcfada0 internal_get_tmp_var
        ../../repos/gcc/gcc/gimplify.c:641
0xcf4597 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../repos/gcc/gcc/gimplify.c:15954
0xd0a714 gimplify_omp_affinity
        ../../repos/gcc/gcc/gimplify.c:8125
0xd0a714 gimplify_scan_omp_clauses
        ../../repos/gcc/gcc/gimplify.c:10184


Reduced testcase:

PROGRAM test_task_affinity
  INTEGER,ALLOCATABLE:: A(:), B(:)
  !$omp target map(from: B)
    !$omp task depend(out: B) shared(B) affinity(A)
    !$omp end task
  !$omp end target
END PROGRAM test_task_affinity