15 lines
291 B
Fortran
15 lines
291 B
Fortran
|
! { 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
|