1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s 2! CHECK: PRINT *, 2_4 3! CHECK: PRINT *, 1_4 4#define a ,3 5 print *, mod(5 a) 6 print *, mod(4 a 7 +) 8 end 9