23 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s3! Test declare simd with uniform clause4 5function add2(a,b,i,fact,alc) result(c)6 !$omp declare simd(add2) uniform(a,b,fact)7 integer :: i8 integer,pointer::alc9 double precision :: a(*),b(*),fact,c10 c = a(i) + b(i) + fact11end function12 13end14 15! CHECK-LABEL: Subprogram scope: add2 size=48 alignment=8 sourceRange=189 bytes16! CHECK-NEXT: a (OmpUniform): ObjectEntity dummy type: REAL(8) shape: 1_8:*17! CHECK-NEXT: add2 (Function): HostAssoc18! CHECK-NEXT: alc, POINTER size=24 offset=8: ObjectEntity dummy type: INTEGER(4)19! CHECK-NEXT: b (OmpUniform): ObjectEntity dummy type: REAL(8) shape: 1_8:*20! CHECK-NEXT: c size=8 offset=40: ObjectEntity funcResult type: REAL(8)21! CHECK-NEXT: fact (OmpUniform) size=8 offset=32: ObjectEntity dummy type: REAL(8)22! CHECK-NEXT: i size=4 offset=0: ObjectEntity dummy type: INTEGER(4)23