From 5bc31e42071e1cc19560dab58d5e574c44b464f9 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Fri, 21 Sep 2007 13:17:13 +0200 Subject: [PATCH] re PR fortran/33439 (OpenMP: Incorrect error message for chunksize variable) PR fortran/33439 * gfortran.dg/gomp/pr33439.f90: New test. From-SVN: r128649 --- gcc/testsuite/ChangeLog | 5 ++++ gcc/testsuite/gfortran.dg/gomp/pr33439.f90 | 38 ++++++++++++++++++++++++++++++ 2 files changed, 43 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/gomp/pr33439.f90 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 + + PR fortran/33439 + * gfortran.dg/gomp/pr33439.f90: New test. + 2007-09-21 Tobias Burnus 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 -- 2.7.4