https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85221
Bug ID: 85221
Summary: [openacc] ICE in install_var_field, at omp-low.c:657
Product: gcc
Version: 8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: middle-end
Assignee: unassigned at gcc dot gnu.org
Reporter: vries at gcc dot gnu.org
Target Milestone: ---
When compiling the og7 testcase declare-allocatable-1.f with trunk, we get:
...
libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90:8:0: Error:
'b' requires a 'declare' directive for use in a 'routine' function^M
...
during GIMPLE pass: omplower^M
libgomp/testsuite/libgomp.oacc-fortran/declare-allocatable-1.f90:157:0:
internal compiler error: in install_var_field, at omp-low.c:657^M
0xbb3323 install_var_field^M
gcc/omp-low.c:656^M
0xbb9b4d scan_sharing_clauses^M
gcc/omp-low.c:1260^M
0xbbc337 scan_omp_target^M
gcc/omp-low.c:2365^M
0xbbc337 scan_omp_1_stmt^M
gcc/omp-low.c:3162^M
0xa2f66e walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)^M
gcc/gimple-walk.c:568^M
0xa2f8b8 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)^M
gcc/gimple-walk.c:51^M
0xa2f762 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)^M
gcc/gimple-walk.c:596^M
0xa2f8b8 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)^M
gcc/gimple-walk.c:51^M
0xa2f7d2 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)^M
gcc/gimple-walk.c:632^M
0xa2f8b8 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)^M
gcc/gimple-walk.c:51^M
0xa2f762 walk_gimple_stmt(gimple_stmt_iterator*, tree_node*
(*)(gimple_stmt_iterator*, bool*, walk_stmt_info*), tree_node* (*)(tree_node**,
int*, void*), walk_stmt_info*)^M
gcc/gimple-walk.c:596^M
0xa2f8b8 walk_gimple_seq_mod(gimple**, tree_node* (*)(gimple_stmt_iterator*,
bool*, walk_stmt_info*), tree_node* (*)(tree_node**, int*, void*),
walk_stmt_info*)^M
gcc/gimple-walk.c:51^M
0xbb04c7 scan_omp^M
gcc/omp-low.c:3205^M
0xbc695a execute_lower_omp^M
gcc/omp-low.c:8999^M
0xbc695a execute^M
gcc/omp-low.c:9056^M
Please submit a full bug report,^M
with preprocessed source if appropriate.^M
Please include the complete backtrace with any bug report.^M
See <https://gcc.gnu.org/bugs/> for instructions.^M
compiler exited with status 1
...
