1! { dg-do compile }
2
3subroutine fn1 (x)
4  integer :: x
5!$omp declare simd (fn1) inbranch notinbranch uniform (x) ! { dg-error "Unclassifiable OpenMP directive" }
6end subroutine fn1
7subroutine fn2 (x)
8!$omp declare simd (fn100)	! { dg-error "should refer to containing procedure" }
9end subroutine fn2
10