https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77371
--- Comment #2 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
Related :
$ cat z6.f90
program p
integer, allocatable :: n
!$acc parallel reduction (+:n) private(n)
!$acc end parallel
end
$ gfortran-7-20160821 -fopenacc z6.f90
z6.f90:3:0:
!$acc parallel reduction (+:n) private(n)
Error: invalid private reduction on 'n'
z6.f90:3:0: internal compiler error: in scan_sharing_clauses, at omp-low.c:2374
0xb05762 scan_sharing_clauses
../../gcc/omp-low.c:2373
0xb127d8 scan_omp_target
../../gcc/omp-low.c:3191
0xb127d8 scan_omp_1_stmt
../../gcc/omp-low.c:3982
0x9a308a 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
0x9a32a8 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
0x9a31e2 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:632
0x9a32a8 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
0x9a3162 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
0x9a32a8 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
0xae78e9 scan_omp
../../gcc/omp-low.c:4025
0xb1c88a execute_lower_omp
../../gcc/omp-low.c:17902
0xb1c88a execute
../../gcc/omp-low.c:17949
