1! RUN: %flang -E %s 2>&1 | FileCheck %s
2! CHECK: subroutine test_b_wrapper_c() bind(C, name="test_b_c_f")
3#define TEMP_LETTER b
4#define VAL c
5subroutine test_&
6TEMP_LETTER&
7_wrapper_&
8VAL&
9 () bind(C, name="test_&
10 &TEMP_LETTER&
11 &_&
12 &VAL&
13 &_f")
14end
15