diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2007-09-21 13:17:13 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2007-09-21 13:17:13 +0200 |
| commit | 5bc31e42071e1cc19560dab58d5e574c44b464f9 (patch) | |
| tree | 91332e670e060820c1751d224738f92a4cac01e5 /gcc | |
| parent | b65d72ab8642181fb7ed9ed337e3aeff7c25007f (diff) | |
| download | gcc-5bc31e42071e1cc19560dab58d5e574c44b464f9.zip gcc-5bc31e42071e1cc19560dab58d5e574c44b464f9.tar.gz gcc-5bc31e42071e1cc19560dab58d5e574c44b464f9.tar.bz2 | |
re PR fortran/33439 (OpenMP: Incorrect error message for chunksize variable)
PR fortran/33439
* gfortran.dg/gomp/pr33439.f90: New test.
From-SVN: r128649
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/pr33439.f90 | 38 |
2 files changed, 43 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a033d18..70ec4b7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 diff --git a/gcc/testsuite/gfortran.dg/gomp/pr33439.f90 b/gcc/testsuite/gfortran.dg/gomp/pr33439.f90 new file mode 100644 index 0000000..f7db759 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/gomp/pr33439.f90 @@ -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 |