unit test update

Author: jacobwilliams

src/tests/jf_test_46.F90

@@ -30,6 +30,7 @@ subroutine test_46(error_cnt)
     logical(LK) :: found
     integer(IK) :: ival
     real(RK) :: rval
+    real :: r32val
     logical(LK) :: lval
     character(kind=CK,len=:),allocatable :: cval
     character(kind=CK,len=1),dimension(:),allocatable :: cvec
@@ -59,6 +60,12 @@ subroutine test_46(error_cnt)
         error_cnt = error_cnt + 1
     end if
 
+    call json%get(p, CK_'not_there', r32val, found, default=99.0)  ! real32
+    if (json%failed() .or. found .or. r32val-99.0>0.0) then
+        write(error_unit,'(A)') 'Error using json_get_real_by_path default'
+        error_cnt = error_cnt + 1
+    end if
+
     call json%get(p, CK_'not_there', rval, found, default=99.0_RK)
     if (json%failed() .or. found .or. rval-99.0_RK>0.0_RK) then
         write(error_unit,'(A)') 'Error using json_get_real_by_path default'