[Bug fortran/87752] New: ICE in omp_add_variable, at gimplify.c:6776

[gscfq@t-online.de]

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

            Bug ID: 87752
           Summary: ICE in omp_add_variable, at gimplify.c:6776
           Product: gcc
           Version: 9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Affects versions down to at least version 5 :


$ cat z1.f90
subroutine foo (n, u, v)
   integer :: n
   real, pointer :: u(:), v(:)
   !$omp parallel do simd
   do i = 1, n
      u(:) = v(:)
   end do
end


$ gfortran -9-20181021 -c z1.f90 -fopenmp -O3
$ gfortran -9-20181021 -c z1.f90 -fopenmp -Ofast
z1.f90:6:0:

    6 |       u(:) = v(:)
      |
internal compiler error: Segmentation fault
0xb1c86f crash_signal
        ../../gcc/toplev.c:325
0x8f6510 omp_add_variable
        ../../gcc/gimplify.c:6776
0x8fd2ad gimplify_bind_expr
        ../../gcc/gimplify.c:1300
0x8fa41a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11805
0x8fc208 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6614
0x8f96eb gimplify_statement_list
        ../../gcc/gimplify.c:1763
0x8f96eb gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12033
0x8fc208 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6614
0x907d2b gimplify_and_add(tree_node*, gimple**)
        ../../gcc/gimplify.c:441
0x907d2b gimplify_and_return_first
        ../../gcc/gimplify.c:453
0x907d2b gimplify_omp_for
        ../../gcc/gimplify.c:10400
0x8f940a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12091
0x8fc208 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6614
0x8fcb61 gimplify_bind_expr
        ../../gcc/gimplify.c:1331
0x8fa41a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11805
0x8fc208 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6614
0x907d2b gimplify_and_add(tree_node*, gimple**)
        ../../gcc/gimplify.c:441
0x907d2b gimplify_and_return_first
        ../../gcc/gimplify.c:453
0x907d2b gimplify_omp_for
        ../../gcc/gimplify.c:10400
0x8f940a gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:12091