24 lines · plain
1! This test checks the lowering of REQUIRES inside of an unnamed BLOCK DATA.2! The symbol of the `symTab` scope of the `BlockDataUnit` PFT node is null in3! this case, resulting in the inability to store the REQUIRES flags gathered in4! it.5 6! RUN: %flang_fc1 -emit-fir -fopenmp %s -o - | FileCheck %s7! RUN: %flang_fc1 -emit-fir -fopenmp -fopenmp-is-target-device %s -o - | FileCheck %s8! RUN: bbc -fopenmp -emit-fir %s -o - | FileCheck %s9! RUN: bbc -fopenmp -fopenmp-is-target-device -emit-fir %s -o - | FileCheck %s10! XFAIL: *11 12!CHECK: module attributes {13!CHECK-SAME: omp.requires = #omp<clause_requires unified_shared_memory>14block data15 !$omp requires unified_shared_memory16 integer :: x17 common /block/ x18 data x / 10 /19end20 21subroutine f22 !$omp declare target23end subroutine f24