60860079ec
Ensure that #include FOO undergoes macro replacement. But, as is the case with C/C++, continue to not perform macro replacement in a #include directive with <angled brackets>.
21 lines
440 B
Fortran
21 lines
440 B
Fortran
! 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
|