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