procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/33439 (OpenMP: Incorrect error message for chunksize variable)

Browse source 
PR fortran/33439
	* gfortran.dg/gomp/pr33439.f90: New test.

From-SVN: r128649
This commit is contained in:
Jakub Jelinek 2007-09-21 13:17:13 +02:00 • committed by Jakub Jelinek
parent b65d72ab86
commit 5bc31e4207
2 changed files with 43 additions and 0 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 @@
2007-09-21 Jakub Jelinek <jakub@redhat.com>
PR fortran/33439
* gfortran.dg/gomp/pr33439.f90: New test.
2007-09-21 Tobias Burnus <burnus@net-b.de>
PR fortran/33455

38
gcc/testsuite/gfortran.dg/gomp/pr33439.f90 Normal file
View file

@ -0,0 +1,38 @@
! PR fortran/33439
! { dg-do compile }
! { dg-options "-fopenmp" }
subroutine pr33439_1
integer :: s, i
s = 4
!$omp parallel default(none) ! { dg-error "enclosing parallel" }
call somethingelse
!$omp do schedule(static, s) ! { dg-error "not specified in enclosing parallel" }
do i = 1, 8
call something
end do
!$omp end do
!$omp end parallel
end subroutine pr33439_1
subroutine pr33439_2
integer :: s, i
s = 4
!$omp parallel default(none) ! { dg-error "enclosing parallel" }
!$omp do schedule(static, s) ! { dg-error "not specified in enclosing parallel" }
do i = 1, 8
call something
end do
!$omp end do
!$omp end parallel
end subroutine pr33439_2
subroutine pr33439_3
integer :: s, i
s = 4
!$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing parallel" }
do i = 1, 8
call something
end do
!$omp end parallel do
end subroutine pr33439_3