diff options
author | Jeff Hammond <jeff.science@gmail.com> | 2017-05-19 08:36:06 -0700 |
---|---|---|
committer | Jeff Hammond <jeff.science@gmail.com> | 2017-05-19 08:36:06 -0700 |
commit | a72750e643027648736f5adb1f89514b1d6e8ae3 (patch) | |
tree | 7ab0d47f71c17c921a419a03b1ddc6d4c3c08970 /SRC | |
parent | a1e853bd005a2107a0a43f92782a158a9fd6e56c (diff) | |
download | lapack-a72750e643027648736f5adb1f89514b1d6e8ae3.tar.gz lapack-a72750e643027648736f5adb1f89514b1d6e8ae3.tar.bz2 lapack-a72750e643027648736f5adb1f89514b1d6e8ae3.zip |
use INTENT(IN) to avoid violating Fortran aliasing rules
see https://github.com/Reference-LAPACK/lapack/issues/152 for details.
fixes issue #152
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 * .. * * |