minor documentation cleanups.

Author: jacobwilliams

src/json_module.F90

@@ -281,7 +281,7 @@ module json_module
     !    program test
     !     use json_module
     !     implicit none
-    !    type(json_value),pointer :: p
+    !     type(json_value),pointer :: p
     !     call json_initialize()         !initialize the module
     !     call json_create_object(p,'')  !create the root
     !     call json_add(p,'year',1805)   !add some data
@@ -440,16 +440,16 @@ module json_module
     !  Structure constructor to initialize a [[json_file(type)]] object
     !  with an existing [[json_value]] object
     !
-    ! # Example
+    !# Example
     !
-    ! ```fortran
+    !```fortran
     ! ...
     ! type(json_file)  :: my_file
     ! type(json_value) :: json_object
     ! ...
     ! ! Construct a json_object
     ! my_file = json_file(json_object)
-
+    !```
     interface json_file
        module procedure initialize_json_file
     end interface
@@ -924,8 +924,11 @@ end subroutine array_callback_func
 !  Cast a [[json_value]] object as a [[json_file(type)]] object
 
     function initialize_json_file(p) result(file_object)
-    type(json_value), pointer, optional, intent(in) :: p
-    !! `json_value` object to cast as a `json_file` object
+    
+    implicit none
+    
+    type(json_value), pointer, optional, intent(in) :: p    !! `json_value` object to cast
+                                                            !! as a `json_file` object
     type(json_file) :: file_object
 
     if (present(p)) file_object%p => p
@@ -936,7 +939,7 @@ end function initialize_json_file
 !*****************************************************************************************
 !> author: Jacob Williams
 !
-!  Destroy the data within a [[json_value]], and rest type to json_unknown.
+!  Destroy the data within a [[json_value]], and rest type to `json_unknown`.
 
     subroutine destroy_json_data(d)
 
@@ -1284,6 +1287,8 @@ end subroutine json_file_get_object
 !  date: 7/23/2015
 !
 !  Get a [[json_value]] pointer to the JSON file root.
+!
+!@note This is equivalent to calling ```[[json_file]]%get('$',p)```
 
     subroutine json_file_get_root(me,p)
 

src/tests/introspection/test_iso_10646_support.f90

@@ -1,18 +1,9 @@
 !*******************************************************************************************************
-!****u* JSON/test_iso_10646_support
+!> author: Izaak Beekman
 !
-!  NAME
-!    test_iso_10646_support
-!
-!  DESCRIPTION
-!    This program is run when configuring the json-fortran build,
-!    to determine whether or not ISO 10646/UCS4 characters are
-!    supported by the compiler.
-!
-!  AUTHOR
-!    Izaak Beekman
-!
-!  SOURCE
+! This program is run when configuring the json-fortran build,
+! to determine whether or not ISO 10646/UCS4 characters are
+! supported by the compiler.
 
     program test_iso_10646_support