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
|
