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

            Bug ID: 93464
           Summary: [10 Regression] ICE in
                    gfc_omp_check_optional_argument, at
                    fortran/trans-openmp.c:104
           Product: gcc
           Version: 10.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Changed between 20191215 and 20200105 :


$ cat z1.f90
program p
   character :: c(2) = 'a'
   character, allocatable :: z(:)
   !$acc parallel
   z = c
   !$acc end parallel
   print *, z
end


$ gfortran-10-20191215 -c z1.f90 -fopenacc
$
$ gfortran-10-20200126 -c z1.f90 -fopenacc
z1.f90:4:0:

    4 |    !$acc parallel
      |
internal compiler error: Segmentation fault
0xbac5cf crash_signal
        ../../gcc/toplev.c:328
0x758818 gfc_omp_check_optional_argument(tree_node*, bool)
        ../../gcc/fortran/trans-openmp.c:104
0x75a57c gfc_omp_finish_clause(tree_node*, gimple**)
        ../../gcc/fortran/trans-openmp.c:1278
0x9521b9 gimplify_adjust_omp_clauses_1
        ../../gcc/gimplify.c:10094
0x1511863 splay_tree_foreach_helper
        ../../libiberty/splay-tree.c:244
0x1511863 splay_tree_foreach
        ../../libiberty/splay-tree.c:577
0x943ec5 gimplify_adjust_omp_clauses
        ../../gcc/gimplify.c:10584
0x948d08 gimplify_omp_workshare
        ../../gcc/gimplify.c:12803
0x94a35a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14110
0x94d198 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6822
0x94b46b gimplify_statement_list
        ../../gcc/gimplify.c:1869
0x94b46b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:14025
0x94d198 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6822
0x94db31 gimplify_bind_expr
        ../../gcc/gimplify.c:1424
0x94ac8a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:13782
0x94d198 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6822
0x94e5da gimplify_body(tree_node*, bool)
        ../../gcc/gimplify.c:14830
0x94e8c5 gimplify_function_tree(tree_node*)
        ../../gcc/gimplify.c:14974
0x7f4ae7 cgraph_node::analyze()
        ../../gcc/cgraphunit.c:669
0x7f7597 analyze_functions
        ../../gcc/cgraphunit.c:1210

Reply via email to