jf_test_4 Program

Fourth unit test.


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

© 2015 JSON-Fortran was written by Jacob Williams.
Documentation generated by FORD.