jf_test_1 Program

program~~jf_test_1~~UsesGraph program~jf_test_1 jf_test_1 module~jf_test_1_mod jf_test_1_mod module~jf_test_1_mod->program~jf_test_1 iso_fortran_env iso_fortran_env iso_fortran_env->module~jf_test_1_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_1_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


First unit test.

Calls

program~~jf_test_1~~CallsGraph program~jf_test_1 jf_test_1 proc~test_1 test_1 program~jf_test_1->proc~test_1
Help

Source Code


Variables

Type AttributesNameInitial
integer :: n_errors

Source Code

program jf_test_1

    !! First unit test.

    use jf_test_1_mod , only: test_1
    implicit none
    integer :: n_errors
    n_errors = 0
    call test_1(n_errors)
    if (n_errors /= 0) stop 1

end program jf_test_1