URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [erfc_scaled_2.f90] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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
Go to most recent revision | Compare with Previous | Blame | View Log