jf_test_13 Program

Source File

Variables

n_errors

Source Code

jf_test_13

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

Uses:
jf_test_13_mod

13th unit test.

Variables

Type	Attributes		Name		Initial
integer		::	n_errors

Source Code

program jf_test_13

    !! 13th unit test.
    
    use jf_test_13_mod, only: test_13
    implicit none
    integer :: n_errors
    call test_13(n_errors)
    if ( n_errors /= 0) stop 1
    
end program jf_test_13