jf_test_9 Program

  1. jf_test_9.f90
  2. jf_test_9
program~~jf_test_9~~UsesGraph program~jf_test_9 jf_test_9 module~jf_test_9_mod jf_test_9_mod module~jf_test_9_mod->program~jf_test_9 module~json_module json_module module~json_module->module~jf_test_9_mod iso_fortran_env iso_fortran_env iso_fortran_env->module~jf_test_9_mod iso_fortran_env->module~json_module
Help


Ninth unit test.

Calls

program~~jf_test_9~~CallsGraph program~jf_test_9 jf_test_9 proc~test_9 test_9 program~jf_test_9->proc~test_9 proc~json_initialize json_initialize proc~test_9->proc~json_initialize proc~read_file read_file proc~test_9->proc~read_file proc~json_failed json_failed proc~test_9->proc~json_failed proc~json_print_error_message json_print_error_message proc~test_9->proc~json_print_error_message proc~json_clear_exceptions json_clear_exceptions proc~json_initialize->proc~json_clear_exceptions interface~throw_exception throw_exception proc~json_initialize->interface~throw_exception proc~json_print_error_message->proc~json_clear_exceptions proc~json_check_for_errors json_check_for_errors proc~json_print_error_message->proc~json_check_for_errors proc~json_throw_exception json_throw_exception interface~throw_exception->proc~json_throw_exception
Help

Variables

Type AttributesNameInitial
integer :: n_errors

Source Code

program jf_test_9

    !! Ninth unit test.
    
    use jf_test_9_mod , only: test_9
    implicit none
    integer :: n_errors
    n_errors = 0
    call test_9(n_errors)
    if (n_errors /= 0) stop 1
end program jf_test_9