jf_test_14 Program

Source File

Variables

n_errors

Source Code

jf_test_14

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_14_mod

14th unit test.

Variables

Type	Attributes		Name		Initial
integer		::	n_errors

Source Code

program jf_test_14

    !! 14th unit test.
    
    use jf_test_14_mod, only: test_14
    implicit none
    integer :: n_errors
    call test_14(n_errors)
    if ( n_errors /= 0) stop 1
    
end program jf_test_14