You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
function add2(a,b,i,fact,alc) result(c)
!$omp declare simd(add2) uniform(a,b,fact)
integer :: i
integer,pointer::alc
double precision :: a(*),b(*),fact,c
c = a(i) + b(i) + fact
end function
print *,'pass'
end
Reproduce with flang -fopenmp.
I think the problem here is that DECLARE SIMD is in the specification part before the declarations of the symbols used in the UNIFORM clause.