blob: 047398859d651659e92933edf1c53497e0b5abb9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! RUN: %flang -I%S '-DFILE="defines.F90"' -DFOO=1 -DBAR=2 -E %s 2>&1 | FileCheck %s
#include FILE
! CHECK: integer :: a = 1
! CHECK: integer :: b = 2
#define SAME(x) x
#undef FOO
#undef BAR
#define FOO 3
#define BAR 4
#include SAME(FILE)
! CHECK: integer :: a = 3
! CHECK: integer :: b = 4
#define TOSTR(x) #x
#undef FOO
#undef BAR
#define FOO 5
#define BAR 6
#include TOSTR(defines.F90)
! CHECK: integer :: a = 5
! CHECK: integer :: b = 6
|
