gcc/testsuite/gfortran.dg/gomp/order-2.f90

! { dg-do compile }

module m
  integer :: i
end module m
subroutine f1
  call f2
contains
  subroutine f2
    use m
    implicit none
    integer, save :: t
    t = 1
    !$omp threadprivate (t1)	! { dg-error "Unexpected" }
  end subroutine f2
  subroutine f3
    use m
    implicit none
    integer :: j
    j = 1
    !$omp declare reduction (foo:real:omp_out = omp_out + omp_in)	! { dg-error "Unexpected" }
  end subroutine f3
  subroutine f4
    use m
    implicit none
    !$omp declare target
    integer, save :: f4_1
    f4_1 = 1
    !$omp declare target (f4_1)	! { dg-error "Unexpected" }
    !$omp declare target	! { dg-error "Unexpected" }
  end subroutine f4
  integer function f5 (a, b)
    integer :: a, b
    a = 1; b = 2
    !$omp declare simd (f5) notinbranch	! { dg-error "Unexpected" }
  end function f5
end subroutine f1