blob: d993429a76f88fa4cff6580ded1852f90766313e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
procedure(foo), pointer :: ptr
integer :: i
ptr => foo
!$omp do reduction (+ : ptr) ! { dg-error "Procedure pointer|not found" }
do i = 1, 10
end do
!$omp simd linear (ptr) ! { dg-error "must be INTEGER" }
do i = 1, 10
end do
contains
subroutine foo
end subroutine
end
|
