simon
Joined: 05 Jul 2006 Posts: 294
|
Posted: Sun Mar 23, 2025 8:40 pm Post subject: LAPACK la_constants will not compile |
|
|
I am unsure at which compiler version this started, but using version 9, la_constants.f90 from LAPACK generates a compiler time error of "Divide by zero". The problem is reproduced in the following snippet:
Code: | module LA_CONSTANTS
! Standard constants for
integer, parameter :: sp = kind(1.e0)
real(sp), parameter :: sone = 1.0_sp
! Scaling constants
real(sp), parameter :: sulp = epsilon(0._sp)
real(sp), parameter :: ssafmin = real(radix(0._sp),sp)**max( &
minexponent(0._sp)-1, &
1-maxexponent(0._sp) &
)
real(sp), parameter :: ssafmax = sone / ssafmin
end module LA_CONSTANTS
|
|
|