test fix

jacobwilliams · May 25, 2024 · 3603368 · 3603368
1 parent ccd709e
commit 3603368
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/tests/jf_test_50.F90 b/src/tests/jf_test_50.F90
@@ -34,7 +34,7 @@ subroutine test_50(error_cnt)
     call json%initialize(compress_vectors = .true.) ! so it will print each col on one line
 
     call json%create_object(p,'')   !create the root
-    call json_value_add_real_vec_2d(json, p, 'Pcir', pcir, by_col=.true.)
+    call json_value_add_real_vec_2d(json, p, CK_'Pcir', pcir, by_col=.true.)
     call json%print(p)
 
     error_cnt = 0
@@ -48,7 +48,7 @@ subroutine json_value_add_real_vec_2d(json, p, name, val, by_col)
         class(json_core),intent(inout)      :: json
         type(json_value),pointer            :: p
         character(kind=CK,len=*),intent(in) :: name   !! name of the variable
-        real(wp),dimension(:,:),intent(in)    :: val    !! value
+        real(wp),dimension(:,:),intent(in)  :: val    !! value
         logical,intent(in) :: by_col !! if true, write by column. if false, write by row
 
         type(json_value),pointer :: var