Mercurial > hg > CbC > CbC_gcc

view libgomp/testsuite/libgomp.fortran/reference2.f90 @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 84e7813d76e9
line wrap: on
line source

! { 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
    if (l) call abort
  end subroutine
  function bar (a)
    real, dimension (5) :: a
    logical :: bar
    bar = any (a .ne. 15)
  end function
end