[flang] Fix ASSOCIATE statement name resolution
[lldb.git] / flang / test / Semantics / resolve100.f90
1 !RUN: %f18 -fdebug-dump-symbols -fparse-only %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