flang/test/Preprocessing/pp134.F90

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: print *, ADC, 1
   3 ! CHECK: print *, AD, 2
   4 ! CHECK: print *, DC, 3
   5 ! CHECK: print *, AD(1), 4
   6 ! CHECK: print *, AD
   7 ! CHECK: print *, AB
   8 #define B D
   9 implicit none
  10 real ADC
  11 print *, A&
  12   &B&
  13   &C, 1
  14 print *, A&
  15   &B&
  16   &, 2
  17 print *, &
  18   &B&
  19   &C, 3
  20 print *, A&
  21   &B &
  22   &(1), 4
  23 print *, A&
  24   &B
  25 print *, A&
  26   &B ! but not this
  27 end