jf_test_8 Program

Eighth unit test.


Variables

Type AttributesNameInitial
integer :: n_errors

Source Code

program jf_test_8

    !! Eighth unit test.
    
    use jf_test_8_mod , only: test_8
    implicit none
    integer :: n_errors
    n_errors = 0
    call test_8(n_errors)
    if (n_errors /= 0) stop 1
end program jf_test_8

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