Skip to content
Snippets Groups Projects
Commit a51506aa authored by Sergey Kosukhin's avatar Sergey Kosukhin
Browse files

NVHPC 25.3 is affected as well

parent 8f6e9c54
No related branches found
No related tags found
No related merge requests found
......@@ -1220,7 +1220,7 @@ CONTAINS
! double precision real and gfortran warns about that. For that
! reason the below expression limits scale_val to those 1-bits
! which can be represented in a double precision constant
#if ! defined __PGI || __PGIC__ > 24
#if ! defined __PGI || __PGIC__ > 25
INTEGER(i8), PARAMETER :: scale_val &
= IAND(HUGE(a), NOT(ISHFT(1_i8, BIT_SIZE(1_i8) &
& - DIGITS(0.0_c_double)) - 1 ) )
......@@ -1230,7 +1230,7 @@ CONTAINS
REAL(c_double) :: rand_nums(block_len), sc
n = SIZE(a)
nb = n/block_len
#if defined __PGI && __PGIC__ <= 24
#if defined __PGI && __PGIC__ <= 25
scale_val &
= IAND(HUGE(a), NOT(ISHFT(1_i8, BIT_SIZE(1_i8) &
& - DIGITS(0.0_c_double)) - 1 ) )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment