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