Skip to content

Commit

Permalink
240410.015518.HKT revise comments on consts.F90
Browse files Browse the repository at this point in the history
  • Loading branch information
zaikunzhang committed Apr 9, 2024
1 parent 3b455eb commit 161df49
Showing 1 changed file with 4 additions and 5 deletions.
9 changes: 4 additions & 5 deletions fortran/common/consts.F90
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ module consts_mod
!
! Started: July 2020
!
! Last Modified: Wednesday, April 10, 2024 AM01:23:33
! Last Modified: Wednesday, April 10, 2024 AM01:55:03
!--------------------------------------------------------------------------------------------------!

!--------------------------------------------------------------------------------------------------!
Expand Down Expand Up @@ -155,11 +155,10 @@ module consts_mod
integer, parameter :: HALF_MAXPOW10 = floor(real(MAXPOW10) / 2.0)

! TINYCV is used in LINCOA. Powell set TINYCV = 1.0D-60. What about setting TINYCV = REALMIN?
#if (defined __llvm__ && defined __flang__)
! This is a workaround for the following issue with LLVM flang 19.0:
! N.B.: The `if` is a workaround for the following issues with LLVM flang 19.0.0 and nvfortran 24.3.0:
! https://fortran-lang.discourse.group/t/flang-new-19-0-warning-overflow-on-power-with-integer-exponent/7801
! Note that the following line will cause nvfortran to fail with
! nvfortran-Fatal-/opt/nvidia/hpc_sdk/Linux_x86_64/24.3/compilers/bin/tools/fort1 TERMINATED by signal 11
! https://forums.developer.nvidia.com/t/bug-of-nvfortran-24-3-0-fort1-terminated-by-signal-11/289026
#if (defined __llvm__ && defined __flang__)
real(RP), parameter :: TINYCV = TEN**max(-60.0, -real(MAXPOW10))
#else
real(RP), parameter :: TINYCV = TEN**max(-60, -MAXPOW10)
Expand Down

0 comments on commit 161df49

Please sign in to comment.