forked from OSchip/llvm-project
15 lines
406 B
Fortran
15 lines
406 B
Fortran
!RUN: %flang_fc1 -fdebug-dump-symbols %s | FileCheck %s
|
|
|
|
program p
|
|
! CHECK: a size=4 offset=0: ObjectEntity type: LOGICAL(4)
|
|
! CHECK: b size=4 offset=4: ObjectEntity type: REAL(4)
|
|
logical :: a = .false.
|
|
real :: b = 9.73
|
|
! CHECK: a: AssocEntity type: REAL(4) expr:b
|
|
! CHECK: b: AssocEntity type: LOGICAL(4) expr:a
|
|
associate (b => a, a => b)
|
|
print*, a, b
|
|
end associate
|
|
print*, a, b
|
|
end
|