14 lines · plain
1! RUN: %flang_fc1 -fopenmp -emit-hlfir -o - %s | FileCheck %s2 3! Regression test to ensure that the name /c/ in the flush argument list is4! resolved to the common block symbol and common blocks are allowed in the5! flush argument list.6 7! CHECK: %[[GLBL:.*]] = fir.address_of({{.*}}) : !fir.ref<!fir.array<4xi8>>8 common /c/ x9 real :: x10! CHECK: omp.flush(%[[GLBL]] : !fir.ref<!fir.array<4xi8>>)11 !$omp flush(/c/)12end13 14