From b8204015f520ebf2b6ec54547e4e290074413042 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 23 Sep 2019 06:29:32 -0700
Subject: [PATCH] wrong type (math_range returns integers)

---
 src/math.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/math.f90 b/src/math.f90
index 9ffd0c325..18ea9ba50 100644
--- a/src/math.f90
+++ b/src/math.f90
@@ -1401,7 +1401,7 @@ subroutine unitTest
   integer, dimension(2,4), parameter :: &
     sort_out_  = reshape([-1,-1,  +1,+5,  +5,+6,  +3,-2],[2,4])
     
-  real(pReal), dimension(5) :: range_out_ = [1.0_pReal,2.0_pReal,3.0_pReal,4.0_pReal,5.0_pReal]
+  integer,     dimension(5) :: range_out_ = [1,2,3,4,5]
 
   real(pReal)                 :: det
   real(pReal), dimension(6)   :: v6