subroutine f1 (a)
  integer :: a(*)
  integer i
  !$omp do order(concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp simd order ( concurrent )
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp do simd order(concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
end

subroutine f2 (a)
  integer :: a(*)
  integer i
  !$omp parallel do order(concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp parallel do simd order (concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute parallel do order(concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute parallel do simd order(concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams distribute order(concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
  !$omp teams
    !$omp distribute parallel do order(concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
    !$omp distribute parallel do simd order(concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
    !$omp distribute order(concurrent)
    do i = 1, 128
      a(i) = a(i) + 1
    end do
  !$omp end teams
  !$omp taskloop simd order (concurrent)
  do i = 1, 128
    a(i) = a(i) + 1
  end do
end