gcc/testsuite/gfortran.dg/gomp/nowait-8.f90

   1 subroutine foo
   2 implicit none
   3 integer :: i, a(5)
   4
   5 !$omp do nowait nowait  ! { dg-error "Duplicated 'nowait' clause" }
   6 do i = 1, 5
   7 end do
   8
   9 !$omp do
  10 do i = 1, 5
  11 end do
  12 !$omp do nowait nowait  ! { dg-error "Duplicated 'nowait' clause" }
  13
  14 !$omp do nowait
  15 do i = 1, 5
  16 end do
  17 !$omp end do nowait  ! { dg-error "Duplicated NOWAIT clause" }
  18
  19 !$omp do simd nowait
  20 do i = 1, 5
  21 end do
  22 !$omp end do simd nowait  ! { dg-error "Duplicated NOWAIT clause" }
  23
  24 !$omp scope nowait
  25 !$omp end scope nowait  ! { dg-error "Duplicated NOWAIT clause" }
  26
  27 !$omp sections nowait
  28   !$omp section
  29   block; end block
  30 !$omp end sections nowait  ! { dg-error "Duplicated NOWAIT clause" }
  31
  32 !$omp single nowait
  33 !$omp end single nowait  ! { dg-error "Duplicated NOWAIT clause" }
  34
  35 !$omp target nowait
  36 !$omp end target nowait  ! { dg-error "Duplicated NOWAIT clause" }
  37
  38 !$omp target parallel nowait
  39 !$omp end target parallel nowait  ! { dg-error "Duplicated NOWAIT clause" }
  40
  41 !$omp target parallel do nowait
  42 do i = 1, 5
  43 end do
  44 !$omp end target parallel do nowait  ! { dg-error "Duplicated NOWAIT clause" }
  45
  46 !$omp target parallel do simd nowait
  47 do i = 1, 5
  48 end do
  49 !$omp end target parallel do simd nowait  ! { dg-error "Duplicated NOWAIT clause" }
  50
  51 !$omp target parallel loop nowait
  52 do i = 1, 5
  53 end do
  54 !$omp end target parallel loop nowait  ! { dg-error "Duplicated NOWAIT clause" }
  55
  56 !$omp target teams distribute parallel do nowait
  57 do i = 1, 5
  58 end do
  59 !$omp end target teams distribute parallel do nowait  ! { dg-error "Duplicated NOWAIT clause" }
  60
  61 !$omp target teams distribute parallel do simd nowait
  62 do i = 1, 5
  63 end do
  64 !$omp end target teams distribute parallel do simd nowait  ! { dg-error "Duplicated NOWAIT clause" }
  65
  66 !$omp target simd nowait
  67 do i = 1, 5
  68 end do
  69 !$omp end target simd nowait  ! { dg-error "Duplicated NOWAIT clause" }
  70
  71 !$omp target teams nowait
  72 !$omp end target teams nowait  ! { dg-error "Duplicated NOWAIT clause" }
  73
  74 !$omp target teams distribute nowait
  75 do i = 1, 5
  76 end do
  77 !$omp end target teams distribute nowait  ! { dg-error "Duplicated NOWAIT clause" }
  78
  79 !$omp target teams distribute simd nowait
  80 do i = 1, 5
  81 end do
  82 !$omp end target teams distribute simd nowait  ! { dg-error "Duplicated NOWAIT clause" }
  83
  84 !$omp target teams loop nowait
  85 do i = 1, 5
  86 end do
  87 !$omp end target teams loop nowait  ! { dg-error "Duplicated NOWAIT clause" }
  88
  89 !$omp workshare nowait
  90 A(:) = 5
  91 !$omp end workshare nowait  ! { dg-error "Duplicated NOWAIT clause" }
  92 end