! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: print *, ADC, 1
! CHECK: print *, AD, 1
! CHECK: print *, DC, 1
! CHECK: print *, AD
! CHECK: print *, AB
#define B D
implicit none
real ADC
print *, A&
  &B&
  &C, 1
print *, A&
  &B&
  &, 1
print *, &
  &B&
  &C, 1
print *, A&
  &B
print *, A&
  &B ! but not this
end