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).