gcc/testsuite/gfortran.dg/erfc_scaled_2.f90

   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