[Bug fortran/78260] New: ICE in gimplify_expr, at gimplify.c:11939

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

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

            Bug ID: 78260
           Summary: ICE in gimplify_expr, at gimplify.c:11939
           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: ---

With invalid code and option -fopenacc, affects version 6 and 7 :


$ cat z1.f90
module m
   integer :: n = 0
contains
   subroutine s
!$acc declare present(m)
      n = n + 1
   end
end


$ gfortran-7-20161106 -fopenacc -c z1.f90
z1.f90:1:0:

 module m

internal compiler error: in gimplify_expr, at gimplify.c:11939
0x9d8d8b gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11939
0x9e4647 gimplify_addr_expr
        ../../gcc/gimplify.c:5665
0x9d6fdf gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11050
0x9e30af gimplify_modify_expr
        ../../gcc/gimplify.c:5262
0x9d60ed gimplify_expr(tree_node**, gimple**, gimple**, bool (*)(tree_node*),
int)
        ../../gcc/gimplify.c:11004
0x9d9966 gimplify_stmt(tree_node**, gimple**)
        ../../gcc/gimplify.c:6259
0x9db5a1 gimplify_and_add(tree_node*, gimple**)
        ../../gcc/gimplify.c:428
0x9db5a1 gimplify_assign(tree_node*, tree_node*, gimple**)
        ../../gcc/gimplify.c:12518
0xb364ac lower_omp_target
        ../../gcc/omp-low.c:16193
0xb364ac lower_omp_1
        ../../gcc/omp-low.c:17084
0xb364ac lower_omp
        ../../gcc/omp-low.c:17177
0xb3200c lower_omp_1
        ../../gcc/omp-low.c:17025
0xb3200c lower_omp
        ../../gcc/omp-low.c:17177
0xb391ef execute_lower_omp
        ../../gcc/omp-low.c:17912
0xb391ef execute
        ../../gcc/omp-low.c:17949