Cast a json_value pointer and a json_core object as a json_file object.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(json_value), | intent(in), | pointer | :: | json_value_object | ||
| type(json_core), | intent(in) | :: | json_core_object |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
function initialize_json_file_v2(json_value_object, json_core_object) &
result(file_object)
implicit none
type(json_file) :: file_object
type(json_value),pointer,intent(in) :: json_value_object
type(json_core),intent(in) :: json_core_object
file_object%p => json_value_object
file_object%core = json_core_object
end function initialize_json_file_v2