! 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