OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR c++/34513 (static variable not found for C++ OpenMP) 

PR c++/34513
	* parser.c (cp_parser_omp_parallel): For non-combined parallel
	call cp_parser_statement rather than
	cp_parser_already_scoped_statement.

	* testsuite/libgomp.c/pr34513.c: New test.
	* testsuite/libgomp.c++/pr34513.C: New test.

From-SVN: r131059
This commit is contained in:
Jakub Jelinek 2007-12-19 13:58:32 +01:00 committed by Jakub Jelinek
parent 5141868dc0
commit 5259c81310
5 changed files with 79 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/cp/ChangeLog
View File

@ -1,3 +1,10 @@
2007-12-19 Jakub Jelinek <jakub@redhat.com>
PR c++/34513
* parser.c (cp_parser_omp_parallel): For non-combined parallel
call cp_parser_statement rather than
cp_parser_already_scoped_statement.
2007-12-18 Jason Merrill <jason@redhat.com>
PR c++/34206

2
gcc/cp/parser.c
View File

@ -20271,7 +20271,7 @@ cp_parser_omp_parallel (cp_parser *parser, cp_token *pragma_tok)
switch (p_kind)
{
case PRAGMA_OMP_PARALLEL:
cp_parser_already_scoped_statement (parser);
cp_parser_statement (parser, NULL_TREE, false, NULL);
par_clause = clauses;
break;

6
libgomp/ChangeLog
View File

@ -1,3 +1,9 @@
2007-12-19 Jakub Jelinek <jakub@redhat.com>
PR c++/34513
* testsuite/libgomp.c/pr34513.c: New test.
* testsuite/libgomp.c++/pr34513.C: New test.
2007-12-17 Jack Howarth <howarth@bromo.med.uc.edu>
PR target/32765

32
libgomp/testsuite/libgomp.c++/pr34513.C Normal file
View File

@ -0,0 +1,32 @@
// PR c++/34513
// { dg-do run }
#include <omp.h>
extern "C" void abort ();
static int errors = 0;
static int thrs = 4;
int
main ()
{
omp_set_dynamic (0);
#pragma omp parallel num_threads (thrs)
{
static int shrd = 0;
#pragma omp atomic
shrd += 1;
#pragma omp barrier
if (shrd != thrs)
#pragma omp atomic
errors += 1;
}
if (errors)
abort ();
}

33
libgomp/testsuite/libgomp.c/pr34513.c Normal file
View File

@ -0,0 +1,33 @@
/* PR c++/34513 */
/* { dg-do run } */
#include <omp.h>
extern void abort ();
static int errors = 0;
static int thrs = 4;
int
main ()
{
omp_set_dynamic (0);
#pragma omp parallel num_threads (thrs)
{
static int shrd = 0;
#pragma omp atomic
shrd += 1;
#pragma omp barrier
if (shrd != thrs)
#pragma omp atomic
errors += 1;
}
if (errors)
abort ();
return 0;
}