This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/77371] ICE in force_constant_size, at gimplify.c:671 (... and others)
- From: "gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Wed, 24 Aug 2016 18:46:56 +0000
- Subject: [Bug fortran/77371] ICE in force_constant_size, at gimplify.c:671 (... and others)
- Auto-submitted: auto-generated
- References: <bug-77371-4@http.gcc.gnu.org/bugzilla/>
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77371
--- Comment #2 from Gerhard Steinmetz <gerhard.steinmetz.fortran@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