Merge pull request #155 from jeffhammond/fix_isnan_aliasing

langou · web-flow · commit 13855a1bf046 · 2017-05-22T11:29:53.000+02:00
use INTENT(IN) to avoid violating Fortran aliasing rules
diff --git a/SRC/disnan.f b/SRC/disnan.f
@@ -65,7 +65,7 @@ LOGICAL FUNCTION DISNAN( DIN )
 *     December 2016
 *
 *     .. Scalar Arguments ..
-      DOUBLE PRECISION   DIN
+      DOUBLE PRECISION, INTENT(IN) :: DIN
 *     ..
 *
 *  =====================================================================
diff --git 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
 *       ..
 *
 *

Original file line number	Diff line number	Diff line change
`@@ -65,7 +65,7 @@ LOGICAL FUNCTION DISNAN( DIN )`
`65`	`65`	`* December 2016`
`66`	`66`	`*`
`67`	`67`	`* .. Scalar Arguments ..`
`68`		`- DOUBLE PRECISION DIN`
	`68`	`+ DOUBLE PRECISION, INTENT(IN) :: DIN`
`69`	`69`	`* ..`
`70`	`70`	`*`
`71`	`71`	`* =====================================================================`
Original file line number	Diff line number	Diff line change
`@@ -21,7 +21,7 @@`
`21`	`21`	`* LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 )`
`22`	`22`	`*`
`23`	`23`	`* .. Scalar Arguments ..`
`24`		`-* DOUBLE PRECISION DIN1, DIN2`
	`24`	`+* DOUBLE PRECISION, INTENT(IN) :: DIN1, DIN2`
`25`	`25`	`* ..`
`26`	`26`	`*`
`27`	`27`	`*`