29 lines · plain
1! Test early privatization for multiple allocatable variables.2 3! RUN: %flang_fc1 -emit-hlfir -fopenmp -mmlir --enable-delayed-privatization=false \4! RUN: -o - %s 2>&1 | FileCheck %s5 6! RUN: bbc -emit-hlfir -fopenmp --enable-delayed-privatization=false -o - %s 2>&1 |\7! RUN: FileCheck %s8 9subroutine delayed_privatization_allocatable10 implicit none11 integer, allocatable :: var1, var212 13!$omp parallel private(var1, var2)14 var1 = 1015 var2 = 2016!$omp end parallel17end subroutine18 19! Verify that private versions of each variable are both allocated and freed20! within the parallel region.21 22! CHECK: omp.parallel {23! CHECK: fir.allocmem24! CHECK: fir.allocmem25! CHECK: fir.freemem26! CHECK: fir.freemem27! CHECK: omp.terminator28! CHECK-NEXT: }29