Module for the 14th unit test.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=*), | public, | parameter | :: | dir | = | '../files/inputs/' | working directory |
| character(len=*), | public, | parameter | :: | filename1 | = | 'test1.json' | the file to read |
| integer, | public | :: | icount | = | 0 | a count of the number of "name" variables found |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(out) | :: | error_cnt | report number of errors to caller |
Tests the traversal of a JSON structure
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(json_value), | intent(in), | pointer | :: | p | ||
| logical, | intent(out) | :: | finished |
change all "name" variable values to "Fred"