jf_test_4 Program

Source File

Variables

n_errors

Source Code

All Programs

jf_test_1 jf_test_10 jf_test_11 jf_test_12 jf_test_13 jf_test_14 jf_test_2 jf_test_3 jf_test_4 jf_test_5 jf_test_6 jf_test_7 jf_test_8 jf_test_9 test_iso_10646_support

Fourth unit test.

Variables

Type	Attributes		Name		Initial
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