fixing unit test 15

Author: jacobwilliams

src/tests/jf_test_11.F90

@@ -12,7 +12,7 @@ module jf_test_11_mod
     implicit none
 
     character(len=*),parameter :: dir = '../files/inputs/'  !! working directory
-# ifdef USE_UCS4
+#ifdef USE_UCS4
     character(len=*),parameter :: unicode_file = 'hello-world-ucs4.json'
 #endif
     character(len=*),parameter :: ascii_equivalent = 'hello-world-ascii.json'

src/tests/jf_test_15.f90

@@ -7,8 +7,8 @@
 
 module jf_test_15_mod
 
-    use json_module
-    use, intrinsic :: iso_fortran_env , only: error_unit,output_unit
+    use json_module, CK => json_CK
+    use, intrinsic :: iso_fortran_env , only: error_unit,output_unit,wp=>real64
 
     implicit none
 
@@ -27,7 +27,7 @@ subroutine test_15(error_cnt)
     type(json_file) :: file1, file2
     logical :: found,status_ok
     integer :: var_type,i,n_children
-    real(RK) :: d
+    real(wp) :: d
     logical :: tf
     character(kind=CK,len=:),allocatable :: error_msg