! 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