1! { dg-do compile }
2!
3! Check that ERFC_SCALED can be used in initialization expressions
4  real, parameter :: r = 100*erfc_scaled(12.7)
5  integer(kind=int(r)) :: i
6
7  real(kind=8), parameter :: r8 = 100*erfc_scaled(6.77)
8  integer(kind=int(r8)) :: j
9
10  i = 12
11  j = 8
12  print *, i, j
13
14  end
15