mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 22:11:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/47886 (ICE: OpenMP !$omp task if(omp_get_num_threads() > 0))

Browse Source 
PR fortran/47886
	* gfortran.dg/gomp/task-1.f90: Removed.

	* testsuite/libgomp.fortran/task3.f90: New test.

From-SVN: r170535
This commit is contained in:
Jakub Jelinek 2011-02-27 13:05:36 +01:00 committed by Jakub Jelinek
parent 6609216ea9
commit 113a53c142
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2011-02-27 Jakub Jelinek <jakub@redhat.com>
PR fortran/47886
* gfortran.dg/gomp/task-1.f90: Removed.
2011-02-26 Jason Merrill <jason@redhat.com>
* g++.dg/template/this-targ1.C: New.

5
libgomp/ChangeLog
View File

@ -1,3 +1,8 @@
2011-02-27 Jakub Jelinek <jakub@redhat.com>
PR fortran/47886
* testsuite/libgomp.fortran/task3.f90: New test.
2011-02-24 Tobias Burnus <burnus@net-b.de>
* libgomp.texi (GOMP_STACKSIZE): Fix @ref to OMP_STACKSIZE.

4
gcc/testsuite/gfortran.dg/gomp/task-1.f90 → libgomp/testsuite/libgomp.fortran/task3.f90
View File

@ -1,4 +1,4 @@
! { dg-do compile }
! { dg-do run }
! { dg-options "-fopenmp" }
!
! PR fortran/47886
@ -22,6 +22,6 @@ program F03_2_7_1d
!$omp end parallel
if (sum /= NT) then
print *, "FAIL - sum == ", sum, " (expected ", NT, ")"
stop 1;
call abort
end if
end program F03_2_7_1d