mirror of
https://github.com/autc04/Retro68.git
synced 2024-07-06 22:29:13 +00:00
43 lines
846 B
Fortran
43 lines
846 B
Fortran
! { dg-do run }
|
|
interface
|
|
integer function foo ()
|
|
end function
|
|
integer function bar ()
|
|
end function
|
|
integer function baz ()
|
|
end function
|
|
end interface
|
|
procedure(foo), pointer :: ptr
|
|
integer :: i
|
|
ptr => foo
|
|
!$omp parallel shared (ptr)
|
|
if (ptr () /= 1) STOP 1
|
|
!$omp end parallel
|
|
ptr => bar
|
|
!$omp parallel firstprivate (ptr)
|
|
if (ptr () /= 2) STOP 2
|
|
!$omp end parallel
|
|
!$omp parallel sections lastprivate (ptr)
|
|
!$omp section
|
|
ptr => foo
|
|
if (ptr () /= 1) STOP 3
|
|
!$omp section
|
|
ptr => bar
|
|
if (ptr () /= 2) STOP 4
|
|
!$omp section
|
|
ptr => baz
|
|
if (ptr () /= 3) STOP 5
|
|
!$omp end parallel sections
|
|
if (ptr () /= 3) STOP 6
|
|
if (.not.associated (ptr, baz)) STOP 7
|
|
end
|
|
integer function foo ()
|
|
foo = 1
|
|
end function
|
|
integer function bar ()
|
|
bar = 2
|
|
end function
|
|
integer function baz ()
|
|
baz = 3
|
|
end function
|