jf_test_12 Program

Source File

Variables

n_errors

Source Code

jf_test_12

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_12_mod

12th unit test.

Variables

Type	Attributes		Name		Initial
integer		::	n_errors

Source Code

program jf_test_12

    !! 12th unit test.
    
    use jf_test_12_mod, only: test_12
    implicit none
    integer :: n_errors
    n_errors = 0
    call test_12(n_errors)
    if ( n_errors /= 0) stop 1
    
end program jf_test_12