call unit_test(‘juown1’, 0.eq.0, ‘checking’,100)
subroutine test_juown1() call unit_test_start('juown1',msg='') !!call unit_test('juown1', 0.eq.0, 'checking',100) call unit_test_end('juown1',msg='') end subroutine test_juown1