added robodoc header to introspection program.

Author: jacobwilliams

src/tests/introspection/test_iso_10646_support.f90

@@ -1,19 +1,37 @@
-! 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
-  use iso_fortran_env ,only: output_unit, error_unit
-  implicit none
-  integer, parameter :: UCS4_K = selected_char_kind('ISO_10646')
+!*******************************************************************************************************
+!****u* JSON/test_iso_10646_support
+!
+!  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
 
-  if ( UCS4_K == -1 ) then !Not supported!
-     write(error_unit,'(A)') 'Your compiler does not support ISO 10646/UCS4 characters!'
-     write(error_unit,'(A)') 'JSON-Fortran must/will be configured to use the "DEFAULT"'
-     write(error_unit,'(A)') 'character set. (Should be "ASCII" on a reasonable system.)'
-     stop 2
-  else
-     write(error_unit,'(A)') 'Congratulations! Your compiler supports ISO 10646/UCS4!'
-     write(error_unit,'(A)') 'JSON-Fortran may be configured to enable UCS4 support.'
-     write(output_unit,'(A)') 'UCS4_SUPPORTED'
-  end if
-end program test_iso_10646_support
+    program test_iso_10646_support
+
+    use iso_fortran_env ,only: output_unit, error_unit
+
+    implicit none
+
+    integer, parameter :: UCS4_K = selected_char_kind('ISO_10646')
+
+    if ( UCS4_K == -1 ) then !Not supported!
+        write(error_unit,'(A)') 'Your compiler does not support ISO 10646/UCS4 characters!'
+        write(error_unit,'(A)') 'JSON-Fortran must/will be configured to use the "DEFAULT"'
+        write(error_unit,'(A)') 'character set. (Should be "ASCII" on a reasonable system.)'
+        stop 2
+    else
+        write(error_unit,'(A)') 'Congratulations! Your compiler supports ISO 10646/UCS4!'
+        write(error_unit,'(A)') 'JSON-Fortran may be configured to enable UCS4 support.'
+        write(output_unit,'(A)') 'UCS4_SUPPORTED'
+    end if
+
+    end program test_iso_10646_support
+!*******************************************************************************************************