77 lines · plain
1! RUN: %python %S/../test_symbols.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.15.3.6 Reduction Clause Positive cases.4!DEF: /OMP_REDUCTION MainProgram5program OMP_REDUCTION6 !DEF: /OMP_REDUCTION/i ObjectEntity INTEGER(4)7 integer i8 !DEF: /OMP_REDUCTION/k ObjectEntity INTEGER(4)9 integer :: k = 1010 !DEF: /OMP_REDUCTION/a ObjectEntity INTEGER(4)11 integer a(10)12 !DEF: /OMP_REDUCTION/b ObjectEntity INTEGER(4)13 integer b(10,10,10)14 15 !$omp parallel shared(k)16 !$omp do reduction(+:k)17 !DEF: /OMP_REDUCTION/OtherConstruct1/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)18 do i=1,1019 !DEF: /OMP_REDUCTION/OtherConstruct1/OtherConstruct1/k (OmpReduction, OmpExplicit) HostAssoc INTEGER(4)20 k = k+121 end do22 !$omp end do23 !$omp end parallel24 25 26 !$omp parallel do reduction(+:a(10))27 !DEF: /OMP_REDUCTION/OtherConstruct2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)28 do i=1,1029 !DEF: /OMP_REDUCTION/OtherConstruct2/k (OmpShared) HostAssoc INTEGER(4)30 k = k+131 end do32 !$omp end parallel do33 34 35 !$omp parallel do reduction(+:a(1:10:1))36 !DEF: /OMP_REDUCTION/OtherConstruct3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)37 do i=1,1038 !DEF: /OMP_REDUCTION/OtherConstruct3/k (OmpShared) HostAssoc INTEGER(4)39 k = k+140 end do41 !$omp end parallel do42 43 !$omp parallel do reduction(+:b(1:10:1,1:5,2))44 !DEF: /OMP_REDUCTION/OtherConstruct4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)45 do i=1,1046 !DEF: /OMP_REDUCTION/OtherConstruct4/k (OmpShared) HostAssoc INTEGER(4)47 k = k+148 end do49 !$omp end parallel do50 51 !$omp parallel do reduction(+:b(1:10:1,1:5,2:5:1))52 !DEF: /OMP_REDUCTION/OtherConstruct5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)53 do i=1,1054 !DEF: /OMP_REDUCTION/OtherConstruct5/k (OmpShared) HostAssoc INTEGER(4)55 k = k+156 end do57 !$omp end parallel do58 59 !$omp parallel private(i)60 !$omp do reduction(+:k) reduction(+:j)61 !DEF: /OMP_REDUCTION/OtherConstruct6/OtherConstruct1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)62 do i=1,1063 !DEF: /OMP_REDUCTION/OtherConstruct6/OtherConstruct1/k (OmpReduction, OmpExplicit) HostAssoc INTEGER(4)64 k = k+165 end do66 !$omp end do67 !$omp end parallel68 69 !$omp do reduction(+:k) reduction(*:j) reduction(+:l)70 !DEF: /OMP_REDUCTION/OtherConstruct7/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)71 do i=1,1072 !DEF: /OMP_REDUCTION/OtherConstruct7/k (OmpReduction, OmpExplicit) HostAssoc INTEGER(4)73 k = k+174 end do75 !$omp end do76end program OMP_REDUCTION77