From a72750e643027648736f5adb1f89514b1d6e8ae3 Mon Sep 17 00:00:00 2001 From: Jeff Hammond Date: Fri, 19 May 2017 08:36:06 -0700 Subject: use INTENT(IN) to avoid violating Fortran aliasing rules see https://github.com/Reference-LAPACK/lapack/issues/152 for details. fixes issue #152 --- SRC/disnan.f | 2 +- SRC/dlaisnan.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'SRC') 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 * .. * * -- cgit v1.2.3