[Bug fortran/78866] New: ICE in gimplify_adjust_omp_clauses_1, at gimplify.c:8721

[gerhard.steinmetz.fortran@t-online.de]

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

            Bug ID: 78866
           Summary: ICE in gimplify_adjust_omp_clauses_1, at
                    gimplify.c:8721
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

Follow-up of pr77973 :


$ cat z1.f90
subroutine s(x)
   integer :: x(*)
!$omp parallel
!$omp target
   x(1) = 1
!$omp end target
!$omp end parallel
end


$ gfortran-7-20161218 -fopenmp -c z1.f90
z1.f90:4:0:

 !$omp target

internal compiler error: Segmentation fault
0xc513cf crash_signal
        ../../gcc/toplev.c:333
0x9e6ab1 gimplify_adjust_omp_clauses_1
        ../../gcc/gimplify.c:8721
0x148d28e splay_tree_foreach_helper
        ../../libiberty/splay-tree.c:242
0x148d28e splay_tree_foreach
        ../../libiberty/splay-tree.c:566
0x9d4e07 gimplify_adjust_omp_clauses
        ../../gcc/gimplify.c:9130
0x9f3909 gimplify_omp_workshare
        ../../gcc/gimplify.c:10528
0x9d85ba gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11682
0x9dcef6 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6460
0x9de1dd gimplify_bind_expr
        ../../gcc/gimplify.c:1277
0x9d98ed gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11384
0x9dcef6 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6460
0x9de1dd gimplify_bind_expr
        ../../gcc/gimplify.c:1277
0x9d98ed gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11384
0x9dcef6 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6460
0x9db735 gimplify_and_add(tree_node*, gimple**)
        ../../gcc/gimplify.c:435
0x9db735 gimplify_and_return_first
        ../../gcc/gimplify.c:447
0x9db735 gimplify_omp_parallel
        ../../gcc/gimplify.c:9287
0x9db735 gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11644
0x9dcef6 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6460
0x9de1dd gimplify_bind_expr
        ../../gcc/gimplify.c:1277