flang/test/Evaluate/big-expr-tree.F90

   1 ! RUN: %python %S/test_folding.py %s %flang_fc1
   2 ! Exercise parsing, expression analysis, and folding on a very tall expression tree
   3 ! 32*32 = 1024 repetitions
   4 #define M0(x) x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x
   5 #define M1(x) x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x+x
   6 module m
   7   logical, parameter :: test_1 = 32**2 .EQ. M1(M0(1))
   8 end module