flang/test/Semantics/OpenMP/omp-common-block.f90

   1 ! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols %s | FileCheck %s
   2
   3 program main
   4   !CHECK: a size=4 offset=0: ObjectEntity type: REAL(4)
   5   !CHECK: b size=8 offset=4: ObjectEntity type: INTEGER(4) shape: 1_8:2_8
   6   !CHECK: c size=4 offset=12: ObjectEntity type: REAL(4)
   7   !CHECK: blk size=16 offset=0: CommonBlockDetails alignment=4: a b c
   8   real :: a, c
   9   integer :: b(2)
  10   common /blk/ a, b, c
  11   !$omp parallel private(/blk/)
  12     !CHECK: OtherConstruct scope: size=0 alignment=1
  13     !CHECK:   a (OmpPrivate): HostAssoc
  14     !CHECK:   b (OmpPrivate): HostAssoc
  15     !CHECK:   c (OmpPrivate): HostAssoc
  16     call sub(a, b, c)
  17   !$omp end parallel
  18 end program