[Bug fortran/107214] New: [13 Regression] ICE: base pointer cycle detected

[gscfq--- via Gcc-bugs]

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

            Bug ID: 107214
           Summary: [13 Regression] ICE: base pointer cycle detected
           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 between 20220911 and 20220918 :


$ cat z1.f90
program p
   integer, allocatable :: a
   !$omp target map(tofrom: a, a)
   !$omp end target
end


$ gfortran-13-20221009 -c z1.f90 -fopenmp
when processing group:
map(tofrom:*a) map(alloc:a [pointer assign, bias: 0])
z1.f90:3:33:

    3 |    !$omp target map(tofrom: a, a)
      |                                 ^
internal compiler error: base pointer cycle detected
0xaee0b3 omp_tsort_mapping_groups_1
        ../../gcc/gimplify.cc:9571
0xaeded5 omp_tsort_mapping_groups_1
        ../../gcc/gimplify.cc:9614
0xb02820 omp_tsort_mapping_groups
        ../../gcc/gimplify.cc:9652
0xb02820 gimplify_scan_omp_clauses
        ../../gcc/gimplify.cc:10739
0xb08a0e gimplify_omp_workshare
        ../../gcc/gimplify.cc:15357
0xaf47ab gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16870
0xaf7ad8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.cc:7187
0xaf59cb gimplify_statement_list
        ../../gcc/gimplify.cc:2021
0xaf59cb gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16773
0xaf7ad8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.cc:7187
0xaf8031 gimplify_bind_expr
        ../../gcc/gimplify.cc:1430
0xaf503b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.cc:16529
0xaf7ad8 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.cc:7187
0xaf8b7b gimplify_body(tree_node*, bool)
        ../../gcc/gimplify.cc:17588
0xaf8fcd gimplify_function_tree(tree_node*)
        ../../gcc/gimplify.cc:17787
0x9808d7 cgraph_node::analyze()
        ../../gcc/cgraphunit.cc:676
0x983267 analyze_functions
        ../../gcc/cgraphunit.cc:1240
0x983c1d symbol_table::finalize_compilation_unit()
        ../../gcc/cgraphunit.cc:2500