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

! { 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) STOP 1
  end subroutine
  function bar (a)
    real, dimension (5) :: a
    logical :: bar
    bar = any (a .ne. 15)
  end function
end
add gcc 4.70 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`
upgrade to gcc 8.2.0 and newlib 3.0.0 2018-12-28 15:30:48 +00:00			`if (l) STOP 1`
add gcc 4.70 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`