1*5d15f606SPeter Klausler! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s 2*5d15f606SPeter Klausler! CHECK: subroutine test(ARG1, FA, FB, ARG2) 3*5d15f606SPeter Klausler! CHECK: end 4*5d15f606SPeter Klausler 5*5d15f606SPeter Klauslersubroutine test( & 6*5d15f606SPeter KlauslerARG1, & 7*5d15f606SPeter Klausler! test 8*5d15f606SPeter Klausler#ifndef SWAP 9*5d15f606SPeter Klausler#define ARG1 FA 10*5d15f606SPeter Klausler#define ARG2 FB 11*5d15f606SPeter Klausler#else 12*5d15f606SPeter Klausler#define ARG1 FB 13*5d15f606SPeter Klausler#define ARG2 FA 14*5d15f606SPeter Klausler#endif 15*5d15f606SPeter KlauslerARG1, ARG2, & 16*5d15f606SPeter Klausler! test 17*5d15f606SPeter Klausler#undef ARG1 18*5d15f606SPeter Klausler#undef ARG2 19*5d15f606SPeter Klausler&ARG2) 20*5d15f606SPeter Klausler! comment 21*5d15f606SPeter Klauslerend 22