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