| ! RUN: %flang -E %s 2>&1 | FileCheck --strict-whitespace %s | |
| !CHECK: program Main | |
| program Main | |
| #define ADD(x,y) (x)+(y) | |
| !CHECK: integer :: j = (1)+( 2) | |
| integer :: j = ADD(1,& | |
| 2) | |
| !CHECK:1 format('This is a very long output literal edit descriptor for a F& | |
| !CHECK: &ORMAT statement, and it will require statement continuation.') | |
| 1 format('This is a very long output literal edit descriptor for a FORMAT statement, and it will require statement continuation.') | |
| !CHECK: #line 25 | |
| !CHECK: end PROGRAM Main | |
| end PROGRAM Main |