When running fixed-form source through the compiler under -E, don't aggressively remove space characters, since the parser won't be parsing the result and some tools might need to see the spaces in the -E preprocessed output. Fixes https://github.com/llvm/llvm-project/issues/112279.
9 lines
294 B
Fortran
9 lines
294 B
Fortran
! RUN: %flang -E %s | FileCheck %s
|
|
! CHECK: ((1) * 10000 + (11) * 100)
|
|
! Ensure that a keyword-like macro can be used to rename a
|
|
! function-like macro.
|
|
#define TO_VERSION2(MAJOR, MINOR) ((MAJOR) * 10000 + (MINOR) * 100)
|
|
#define TO_VERSION TO_VERSION2
|
|
print *, TO_VERSION(1,11)
|
|
end
|