| ! RUN: %flang_fc1 -E %s 2>&1 | FileCheck %s | |
| ! CHECK: subroutine test(ARG1, FA, FB, ARG2) | |
| ! CHECK: end | |
| subroutine test( & | |
| ARG1, & | |
| ! test | |
| #ifndef SWAP | |
| #define ARG1 FA | |
| #define ARG2 FB | |
| #else | |
| #define ARG1 FB | |
| #define ARG2 FA | |
| #endif | |
| ARG1, ARG2, & | |
| ! test | |
| #undef ARG1 | |
| #undef ARG2 | |
| &ARG2) | |
| ! comment | |
| end |