xref: /llvm-project/flang/test/Semantics/OpenMP/declare-target-common-block.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f) 
1! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
2
3PROGRAM 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/)
10END
11