15 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2! CHECK: subroutine test_b_wrapper_c() bind(C, name="test_b_c_f")3#define TEMP_LETTER b4#define VAL c5subroutine test_&6TEMP_LETTER&7_wrapper_&8VAL&9 () bind(C, name="test_&10 &TEMP_LETTER&11 &_&12 &VAL&13 &_f")14end15