https://gcc.gnu.org/bugzilla/show_bug.cgi?id=78260
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@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
