28 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2! CHECK: print *, ADC, 13! CHECK: print *, AD, 24! CHECK: print *, DC, 35! CHECK: print *, AD(1), 46! CHECK: print *, AD7! CHECK: print *, AB8#define B D9implicit none10real ADC11print *, A&12 &B&13 &C, 114print *, A&15 &B&16 &, 217print *, &18 &B&19 &C, 320print *, A&21 &B &22 &(1), 423print *, A&24 &B25print *, A&26 &B ! but not this27end28