jf_test_4 Program

program~~jf_test_4~~UsesGraph program~jf_test_4 jf_test_4 module~jf_test_4_mod jf_test_4_mod module~jf_test_4_mod->program~jf_test_4 iso_fortran_env iso_fortran_env iso_fortran_env->module~jf_test_4_mod module~json_file_module json_file_module iso_fortran_env->module~json_file_module module~json_value_module json_value_module iso_fortran_env->module~json_value_module module~json_kinds json_kinds iso_fortran_env->module~json_kinds module~json_module json_module module~json_module->module~jf_test_4_mod module~json_file_module->module~json_module module~json_value_module->module~json_module module~json_value_module->module~json_file_module module~json_kinds->module~json_module module~json_kinds->module~json_file_module module~json_kinds->module~json_value_module module~json_parameters json_parameters module~json_kinds->module~json_parameters module~json_string_utilities json_string_utilities module~json_kinds->module~json_string_utilities module~json_parameters->module~json_module module~json_parameters->module~json_file_module module~json_parameters->module~json_value_module module~json_parameters->module~json_string_utilities module~json_string_utilities->module~json_file_module module~json_string_utilities->module~json_value_module
Help


Fourth unit test.

Calls

program~~jf_test_4~~CallsGraph program~jf_test_4 jf_test_4 proc~test_4 test_4 program~jf_test_4->proc~test_4
Help

Source Code


Variables

Type AttributesNameInitial
integer :: n_errors

Source Code

program jf_test_4

    !! Fourth unit test.

    use jf_test_4_mod , only: test_4
    implicit none
    integer :: n_errors
    n_errors = 0
    call test_4(n_errors)
    if (n_errors /= 0) stop 1
end program jf_test_4