summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/erfc_scaled_2.f90
blob: 97fa91fb915af8282ac7df544c24a5b9bd8bd42c (plain)
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