flang/test/Preprocessing/disable-expansion.F90

   1 ! RUN: %flang -E %s | FileCheck %s
   2 #define KWM a
   3 #define FLM(x) b FLM2(x) KWM c
   4 #define FLM2(x) d FLM(x) e
   5 ! CHECK: a
   6 KWM
   7 ! CHECK: b d FLM(y) e a c
   8 FLM(y)
   9 ! CHECK: b d FLM(a) e a c
  10 FLM(KWM)
  11 ! CHECK: b d FLM(b d FLM(y) e a c) e a c
  12 FLM(FLM(y))
  13 ! CHECK: b d FLM(b d FLM(a) e a c) e a c
  14 FLM(FLM(KWM))