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