procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove incorrect warning for parallel implicit firstprivate clause

Browse source 
2016-04-08  Tom de Vries  <tom@codesourcery.com>

	* omp-low.c (lower_omp_target): Set TREE_NO_WARNING for oacc
	implicit firstprivate clause.

	* c-c++-common/goacc/uninit-firstprivate-clause.c: New test.
	* gfortran.dg/goacc/uninit-firstprivate-clause.f95: New test.

From-SVN: r234826
This commit is contained in:
Tom de Vries 2016-04-08 09:41:16 +00:00 • committed by Tom de Vries
parent bae7adda10
commit 9f1b833bc3
5 changed files with 59 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ChangeLog
View file

@ -1,3 +1,8 @@
2016-04-08 Tom de Vries <tom@codesourcery.com>
* omp-low.c (lower_omp_target): Set TREE_NO_WARNING for oacc
implicit firstprivate clause.
2016-04-08 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
PR target/70566

7
gcc/omp-low.c
View file

@ -16077,7 +16077,12 @@ lower_omp_target (gimple_stmt_iterator *gsi_p, omp_context *ctx)
{
gcc_assert (is_gimple_omp_oacc (ctx->stmt));
if (!is_reference (var))
var = build_fold_addr_expr (var);
{
if (is_gimple_reg (var)
&& OMP_CLAUSE_FIRSTPRIVATE_IMPLICIT (c))
TREE_NO_WARNING (var) = 1;
var = build_fold_addr_expr (var);
}
else
talign = TYPE_ALIGN_UNIT (TREE_TYPE (TREE_TYPE (ovar)));
gimplify_assign (x, var, &ilist);

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2016-04-08 Tom de Vries <tom@codesourcery.com>
* c-c++-common/goacc/uninit-firstprivate-clause.c: New test.
* gfortran.dg/goacc/uninit-firstprivate-clause.f95: New test.
2016-04-08 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
PR target/70566

25
gcc/testsuite/c-c++-common/goacc/uninit-firstprivate-clause.c Normal file
View file

@ -0,0 +1,25 @@
/* { dg-do compile } */
/* { dg-additional-options "-Wuninitialized" } */
void
foo (void)
{
int i;
#pragma acc parallel
{
i = 1;
}
}
void
foo2 (void)
{
int i;
#pragma acc parallel firstprivate (i) /* { dg-warning "is used uninitialized in this function" } */
{
i = 1;
}
}

18
gcc/testsuite/gfortran.dg/goacc/uninit-firstprivate-clause.f95 Normal file
View file

@ -0,0 +1,18 @@
! { dg-do compile }
! { dg-additional-options "-Wuninitialized" }
subroutine test
INTEGER :: i
!$acc parallel
i = 1
!$acc end parallel
end subroutine test
subroutine test2
INTEGER :: i
!$acc parallel firstprivate (i) ! { dg-warning "is used uninitialized in this function" }
i = 1
!$acc end parallel
end subroutine test2