! 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 |