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

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

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

Another name clash :


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


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

 module m

internal compiler error: in get, at cgraph.h:2479
0xf39b15 varpool_node::get(tree_node const*)
        ../../gcc/cgraph.h:2479
0xf39b15 varpool_node::get_create(tree_node*)
        ../../gcc/varpool.c:144
0xb20d77 scan_sharing_clauses
        ../../gcc/omp-low.c:2068
0xb2e7f8 scan_omp_target
        ../../gcc/omp-low.c:3193
0xb2e7f8 scan_omp_1_stmt
        ../../gcc/omp-low.c:3984
0x9ba87a walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../gcc/gimple-walk.c:568
0x9baa98 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../gcc/gimple-walk.c:51
0x9ba952 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)
        ../../gcc/gimple-walk.c:596
0x9baa98 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)
        ../../gcc/gimple-walk.c:51
0xb037e9 scan_omp
        ../../gcc/omp-low.c:4027
0xb388aa execute_lower_omp
        ../../gcc/omp-low.c:17902
0xb388aa execute
        ../../gcc/omp-low.c:17949