test_c Subroutine

subroutine test_c()

call unit_test(‘c’, 0.eq.0, ‘checking’,100)

Arguments

None

Source Code

subroutine test_c()

   call unit_test_start('c',msg='')
   !!call unit_test('c', 0.eq.0, 'checking',100)
   call unit_test_end('c',msg='')
end subroutine test_c