23 lines · plain
1! RUN: %flang_fc1 -fopenmp -emit-hlfir %s -o - | FileCheck %s2 3program p4 type y3; integer, allocatable :: x; end type5 type(y3) :: v6 integer :: s, n, i7 s = 1; n = 108 allocate(v%x); v%x = 09!$omp parallel10 if (.not. allocated(v%x)) print *, '101', allocated(v%x)11!$omp do schedule(dynamic) lastprivate(v)12 do i = s, n13 v%x = i14 end do15!$omp end do16!$omp end parallel17end program18 19! CHECK: omp.parallel {20! CHECK-NOT: private(21! CHECK: omp.wsloop22! CHECK-SAME: private(23