diff options
author | langou <julien.langou@ucdenver.edu> | 2017-05-22 11:29:53 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-05-22 11:29:53 +0200 |
commit | 13855a1bf046bb40ca82d193e54e3107a86235e6 (patch) | |
tree | 8cc0a5f86884a397f02608159e768ac065bf2c0c /SRC | |
parent | 934ac6149e23bf59f90e1d6206750b1237550285 (diff) | |
parent | a72750e643027648736f5adb1f89514b1d6e8ae3 (diff) | |
download | lapack-13855a1bf046bb40ca82d193e54e3107a86235e6.tar.gz lapack-13855a1bf046bb40ca82d193e54e3107a86235e6.tar.bz2 lapack-13855a1bf046bb40ca82d193e54e3107a86235e6.zip |
Merge pull request #155 from jeffhammond/fix_isnan_aliasing
use INTENT(IN) to avoid violating Fortran aliasing rules
Diffstat (limited to 'SRC')
-rw-r--r-- | SRC/disnan.f | 2 | ||||
-rw-r--r-- | SRC/dlaisnan.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/SRC/disnan.f b/SRC/disnan.f index da89158f..6d26254b 100644 --- a/SRC/disnan.f +++ b/SRC/disnan.f @@ -65,7 +65,7 @@ * December 2016 * * .. Scalar Arguments .. - DOUBLE PRECISION DIN + DOUBLE PRECISION, INTENT(IN) :: DIN * .. * * ===================================================================== diff --git a/SRC/dlaisnan.f b/SRC/dlaisnan.f index 4b5ebb4f..3886dc51 100644 --- a/SRC/dlaisnan.f +++ b/SRC/dlaisnan.f @@ -21,7 +21,7 @@ * LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) * * .. Scalar Arguments .. -* DOUBLE PRECISION DIN1, DIN2 +* DOUBLE PRECISION, INTENT(IN) :: DIN1, DIN2 * .. * * |