subroutine test_inum0()
character(len=:),allocatable :: string
call unit_test_start('inum0',msg='')
string='10/3'
call unit_test('inum0', inum0(string).eq.3, 'checking',string,'==>',inum0(string)+bug,'expected',3)
string='(444/111+1)*10-5.0'
call unit_test('inum0', inum0(string).eq.45, 'checking',string,'==>',inum0(string)+bug,'expected',45)
string='-10'
call unit_test('inum0', inum0(string).eq.-10, 'checking',string,'==>',inum0(string)+bug,'expected',-10)
string='+10'
call unit_test('inum0', inum0(string).eq.+10, 'checking',string,'==>',inum0(string)+bug,'expected',+10)
call unit_test_end('inum0',msg='')
end subroutine test_inum0