! RUN: %python %S/test_folding.py %s %flang_fc1
module m
  real(4), parameter :: x20_4 = erfc_scaled(20._4)
  logical, parameter :: t20_4 = x20_4 == 0.02817435003817081451416015625_4
  real(8), parameter :: x20_8 = erfc_scaled(20._8)
  logical, parameter :: t20_8 = x20_8 == 0.0281743487410513193669459042212110944092273712158203125_8
end