22 lines · plain
1! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s2! CHECK: subroutine test(ARG1, FA, FB, ARG2)3! CHECK: end4 5subroutine test( &6ARG1, &7! test8#ifndef SWAP9#define ARG1 FA10#define ARG2 FB11#else12#define ARG1 FB13#define ARG2 FA14#endif15ARG1, ARG2, &16! test17#undef ARG118#undef ARG219&ARG2)20! comment21end22