13 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12module m3 integer, parameter :: j = 24 ! standard cases5 logical, parameter :: test_1 = -j**2 == -46 logical, parameter :: test_2 = 4-j**2 == 07 ! extension cases8 logical, parameter :: test_3 = 4+-j**2 == 0 ! not 89 logical, parameter :: test_4 = 2*-j**2 == -8 ! not 810 logical, parameter :: test_5 = -j**2+-j**2 == -8 ! not 811 logical, parameter :: test_6 = j**2*-j**2 == -16 ! not 1612end13