1!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s 2 3program 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 14end 15