gcc/testsuite/gfortran.dg/erfc_scaled_2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do compile }
!
! Check that ERFC_SCALED can be used in initialization expressions
  real, parameter :: r = 100*erfc_scaled(12.7)
  integer(kind=int(r)) :: i

  real(kind=8), parameter :: r8 = 100*erfc_scaled(6.77)
  integer(kind=int(r8)) :: j

  i = 12
  j = 8
  print *, i, j

  end