21 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2#define STRINGIFY(x) #x3#define TOSTRING(x) STRINGIFY(x)4#define PREFIX(x) prefix ## x5#define NAME(x) PREFIX(foo ## x)6#define AUGMENT(x) NAME(x ## suffix)7 8! CHECK: subroutine prefixfoosuffix()9! CHECK: print *, "prefixfoosuffix"10! CHECK: end subroutine prefixfoosuffix11subroutine AUGMENT()()12 print *, TOSTRING(AUGMENT())13end subroutine AUGMENT()14 15! CHECK: subroutine prefixfoobarsuffix()16! CHECK: print *, "prefixfoobarsuffix"17! CHECK: end subroutine prefixfoobarsuffix18subroutine AUGMENT(bar)()19 print *, TOSTRING(AUGMENT(bar))20end subroutine AUGMENT(bar)21