[clangd] Re-land "support outgoing calls in call hierarchy" (#117673)
[llvm-project.git] / flang / test / Semantics / OpenMP / declare-target-common-block.f90
blob33a093a03a2276392ba16bf48c022304812e77b5
1 ! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
3 PROGRAM main
4 !CHECK: one (OmpDeclareTarget) size=4 offset=0: ObjectEntity type: REAL(4)
5 !CHECK: two (OmpDeclareTarget) size=4 offset=4: ObjectEntity type: REAL(4)
6 !CHECK: numbers size=8 offset=0: CommonBlockDetails alignment=4: one two
7 REAL :: one, two
8 COMMON /numbers/ one, two
9 !$omp declare target(/numbers/)
10 END