Retro68/gcc/libgomp/testsuite/libgomp.fortran/reference2.f90

22 lines
397 B
Fortran
Raw Normal View History

2012-03-27 23:13:14 +00:00
! { dg-do run }
real, dimension (5) :: b
b = 5
call foo (b)
contains
subroutine foo (a)
real, dimension (5) :: a
logical :: l
l = .false.
!$omp parallel private (a) reduction (.or.:l)
a = 15
l = bar (a)
!$omp end parallel
2018-12-28 15:30:48 +00:00
if (l) STOP 1
2012-03-27 23:13:14 +00:00
end subroutine
function bar (a)
real, dimension (5) :: a
logical :: bar
bar = any (a .ne. 15)
end function
end