26 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck --strict-whitespace %s2!CHECK: program Main3program Main4#define ADD(x,y) (x)+(y)5!CHECK: integer :: j = (1)+( 2)6 integer :: j = ADD(1,&7 2)8!CHECK:1 format('This is a very long output literal edit descriptor for a F&9!CHECK: &ORMAT statement, and it will require statement continuation.')101 format('This is a very long output literal edit descriptor for a FORMAT statement, and it will require statement continuation.')11 12 13 14 15 16 17 18 19 20 21 22 23!CHECK: #line 2524!CHECK: end PROGRAM Main25end PROGRAM Main26