! { dg-do compile }
! { dg-options "-fopenmp" }

module m
implicit none
integer :: i

contains

subroutine foo (x, y)
  integer :: x, y

  !$omp simd linear (x: step (y + 1), ref)		! { dg-error "LINEAR clause modifier other than VAL used on DO or SIMD construct" }
  do i = 0, 10
    x = x + y + 1
  end do

  !$omp simd linear (x: uval, step (y + 1))		! { dg-error "LINEAR clause modifier other than VAL used on DO or SIMD construct" }
  do i = 0, 10
    x = x + y + 1
  end do

  !$omp parallel do linear (x: ref, step (y + 1))	! { dg-error "LINEAR clause modifier other than VAL used on DO or SIMD construct" }
  do i = 0, 10
    x = x + y + 1
  end do

  !$omp parallel do linear (x: step (y + 1), uval)	! { dg-error "LINEAR clause modifier other than VAL used on DO or SIMD construct" }
  do i = 0, 10
    x = x + y + 1
  end do

  !$omp parallel do simd linear (x: step (y + 1), ref)	! { dg-error "LINEAR clause modifier other than VAL used on DO or SIMD construct" }
  do i = 0, 10
    x = x + y + 1
  end do

  !$omp parallel do simd linear (x: uval, step (y + 1))	! { dg-error "LINEAR clause modifier other than VAL used on DO or SIMD construct" }
  do i = 0, 10
    x = x + y + 1
  end do
end
end