15 lines · plain
1!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s2 3program p4 ! 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.738 ! CHECK: a: AssocEntity type: REAL(4) expr:b9 ! CHECK: b: AssocEntity type: LOGICAL(4) expr:a10 associate (b => a, a => b)11 print*, a, b12 end associate13 print*, a, b14end15