flang/test/Preprocessing/pp134.F90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

! 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