Merge pull request #290 from jacobwilliams/duplicates

Check for duplicate keys.

Author: jacobwilliams

src/json_file_module.F90

@@ -338,7 +338,8 @@ subroutine initialize_json_core_in_file(me,verbose,compact_reals,&
                                             comment_char,&
                                             path_mode,&
                                             path_separator,&
-                                            compress_vectors)
+                                            compress_vectors,&
+                                            allow_duplicate_keys)
 
     implicit none
 
@@ -355,7 +356,8 @@ subroutine initialize_json_core_in_file(me,verbose,compact_reals,&
                             comment_char,&
                             path_mode,&
                             path_separator,&
-                            compress_vectors)
+                            compress_vectors,&
+                            allow_duplicate_keys)
 
     end subroutine initialize_json_core_in_file
 !*****************************************************************************************
@@ -419,7 +421,8 @@ function initialize_json_file(p,verbose,compact_reals,&
                                   comment_char,&
                                   path_mode,&
                                   path_separator,&
-                                  compress_vectors) result(file_object)
+                                  compress_vectors,&
+                                  allow_duplicate_keys) result(file_object)
 
     implicit none
 
@@ -438,7 +441,8 @@ function initialize_json_file(p,verbose,compact_reals,&
                                 comment_char,&
                                 path_mode,&
                                 path_separator,&
-                                compress_vectors)
+                                compress_vectors,&
+                                allow_duplicate_keys)
 
     if (present(p)) file_object%p => p
 

src/json_initialize_arguments.inc

@@ -59,3 +59,10 @@ logical(LK),intent(in),optional :: compress_vectors
   !! [Note: `no_whitespace` will
   !! override this option if necessary].
   !! (Default is False).
+logical(LK),intent(in),optional :: allow_duplicate_keys
+  !! * If True [default] then no special checks
+  !!   are done to check for duplicate keys.
+  !! * If False, then after parsing, if any duplicate
+  !!   keys are found, an error is thrown. A call to
+  !!   [[json_value_validate]] will also check for
+  !!   duplicates.