wrong type (math_range returns integers)

This commit is contained in:
Martin Diehl 2019-09-23 06:29:32 -07:00
parent 02fef16b38
commit b8204015f5
1 changed files with 1 additions and 1 deletions

View File

@ -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