be133ff4c4
For numeric kind suffixes like 1_foo, the preprocessor should be able to perform macro replacement for macros named either "_foo" or "foo". Fixes https://github.com/llvm/llvm-project/issues/133399.
10 lines
149 B
Fortran
10 lines
149 B
Fortran
! RUN: %flang -E %s 2>&1 | FileCheck %s
|
|
#define n k
|
|
#define _m _p
|
|
parameter(n=4)
|
|
!CHECK: print *,1_k
|
|
print *,1_n
|
|
!CHECK: print *,1_p
|
|
print *,1_m
|
|
end
|