flang/test/Semantics/resolve100.f90

   1 !RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s
   2
   3 program p
   4   ! CHECK: a size=4 offset=0: ObjectEntity type: LOGICAL(4)
   5   ! CHECK: b size=4 offset=4: ObjectEntity type: REAL(4)
   6   logical :: a = .false.
   7   real :: b = 9.73
   8   ! CHECK: a: AssocEntity type: REAL(4) expr:b
   9   ! CHECK: b: AssocEntity type: LOGICAL(4) expr:a
  10   associate (b => a, a => b)
  11     print*, a, b
  12   end associate
  13   print*, a, b
  14 end