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

re PR fortran/28390 (Broken !$omp parallel do lastprivate(iterationvar)) 

PR fortran/28390
	* trans-openmp.c (gfc_trans_omp_do): Look for LASTPRIVATE in
	code->exp.omp_clauses rather than in the 3rd function argument.

	* testsuite/libgomp.fortran/pr28390.f: New test.

From-SVN: r115504
This commit is contained in:
Jakub Jelinek 2006-07-16 22:19:27 +02:00 committed by Jakub Jelinek
parent 42ccbf3d11
commit 742fae059b
4 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2006-07-16 Jakub Jelinek <jakub@redhat.com>
PR fortran/28390
* trans-openmp.c (gfc_trans_omp_do): Look for LASTPRIVATE in
code->exp.omp_clauses rather than in the 3rd function argument.
2006-07-16 Paul Thomas <pault@gcc.gnu.org>
PR fortran/28384

5
gcc/fortran/trans-openmp.c
View File

@ -888,7 +888,7 @@ gfc_trans_omp_critical (gfc_code *code)
static tree
gfc_trans_omp_do (gfc_code *code, stmtblock_t *pblock,
gfc_omp_clauses *clauses)
gfc_omp_clauses *do_clauses)
{
gfc_se se;
tree dovar, stmt, from, to, step, type, init, cond, incr;
@ -897,6 +897,7 @@ gfc_trans_omp_do (gfc_code *code, stmtblock_t *pblock,
stmtblock_t body;
int simple = 0;
bool dovar_found = false;
gfc_omp_clauses *clauses = code->ext.omp_clauses;
code = code->block->next;
gcc_assert (code->op == EXEC_DO);
@ -907,7 +908,7 @@ gfc_trans_omp_do (gfc_code *code, stmtblock_t *pblock,
pblock = &block;
}
omp_clauses = gfc_trans_omp_clauses (pblock, clauses, code->loc);
omp_clauses = gfc_trans_omp_clauses (pblock, do_clauses, code->loc);
if (clauses)
{
gfc_namelist *n;

5
libgomp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-07-16 Jakub Jelinek <jakub@redhat.com>
PR fortran/28390
* testsuite/libgomp.fortran/pr28390.f: New test.
2006-07-05 Eric Christopher <echristo@apple.com>
* configure.ac: Depend addition of -pthread on host OS.

8
libgomp/testsuite/libgomp.fortran/pr28390.f Normal file
View File

@ -0,0 +1,8 @@
! PR fortran/28390
program pr28390
integer i
!$omp parallel do lastprivate(i)
do i=1,100
end do
if (i.ne.101) call abort
end