public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/28390] New: Broken !$omp parallel do lastprivate(iterationvar)
@ 2006-07-15 18:22 jakub at redhat dot com
2006-07-16 20:19 ` [Bug fortran/28390] " jakub at gcc dot gnu dot org
2006-07-16 22:24 ` pinskia at gcc dot gnu dot org
0 siblings, 2 replies; 3+ messages in thread
From: jakub at redhat dot com @ 2006-07-15 18:22 UTC (permalink / raw)
To: gcc-bugs
! see OpenMP 2.5 spec, page 64 and A.30 on page 175
program tst_lastpriv
integer nc
parameter (nc=100)
integer a(nc),i
!$omp parallel do lastprivate(i)
do i=1,nc
a(i) = i
end do
if (i.ne.nc+1) then
print *,'failed, i=',i
else
print *,'success ',a(nc),i
endif
end
fails with current trunk and -fopenmp.
--
Summary: Broken !$omp parallel do lastprivate(iterationvar)
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: jakub at redhat dot com
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28390
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Bug fortran/28390] Broken !$omp parallel do lastprivate(iterationvar)
2006-07-15 18:22 [Bug fortran/28390] New: Broken !$omp parallel do lastprivate(iterationvar) jakub at redhat dot com
@ 2006-07-16 20:19 ` jakub at gcc dot gnu dot org
2006-07-16 22:24 ` pinskia at gcc dot gnu dot org
1 sibling, 0 replies; 3+ messages in thread
From: jakub at gcc dot gnu dot org @ 2006-07-16 20:19 UTC (permalink / raw)
To: gcc-bugs
------- Comment #1 from jakub at gcc dot gnu dot org 2006-07-16 20:19 -------
Subject: Bug 28390
Author: jakub
Date: Sun Jul 16 20:19:27 2006
New Revision: 115504
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=115504
Log:
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.
Added:
trunk/libgomp/testsuite/libgomp.fortran/pr28390.f
Modified:
trunk/gcc/fortran/ChangeLog
trunk/gcc/fortran/trans-openmp.c
trunk/libgomp/ChangeLog
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28390
^ permalink raw reply [flat|nested] 3+ messages in thread
* [Bug fortran/28390] Broken !$omp parallel do lastprivate(iterationvar)
2006-07-15 18:22 [Bug fortran/28390] New: Broken !$omp parallel do lastprivate(iterationvar) jakub at redhat dot com
2006-07-16 20:19 ` [Bug fortran/28390] " jakub at gcc dot gnu dot org
@ 2006-07-16 22:24 ` pinskia at gcc dot gnu dot org
1 sibling, 0 replies; 3+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2006-07-16 22:24 UTC (permalink / raw)
To: gcc-bugs
------- Comment #2 from pinskia at gcc dot gnu dot org 2006-07-16 22:24 -------
Fixed.
--
pinskia at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |RESOLVED
Resolution| |FIXED
Target Milestone|--- |4.2.0
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=28390
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2006-07-16 22:24 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2006-07-15 18:22 [Bug fortran/28390] New: Broken !$omp parallel do lastprivate(iterationvar) jakub at redhat dot com
2006-07-16 20:19 ` [Bug fortran/28390] " jakub at gcc dot gnu dot org
2006-07-16 22:24 ` pinskia at gcc dot gnu dot org
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).