coarray_41.f90: Add "-latomic" option if libatomic_available.

[official-gcc.git] / gcc / testsuite / gfortran.dg / gomp / declare-simd-2.f90

! { dg-do compile }

function f1 (a, b, c, d, e, f)
  integer, value :: a, b, c
  integer :: d, e, f, f1
!$omp declare simd (f1) uniform(b) linear(c, d) linear(uval(e)) linear(ref(f))
  a = a + 1
  b = b + 1
  c = c + 1
  d = d + 1
  e = e + 1
  f = f + 1
  f1 = a + b + c + d + e + f
end function f1
integer function f2 (a, b)
  integer :: a, b
!$omp declare simd uniform(b) linear(ref(a):b)
  a = a + 1
  f2 = a + b
end function f2