test_rnum0 Subroutine

subroutine test_rnum0()

Arguments

None

Variables

Type Visibility Attributes Name Initial
character(len=:), public, allocatable :: string

Source Code

subroutine test_rnum0()
character(len=:),allocatable :: string

   call unit_test_start('rnum0',msg='')
   string='10/2'
   call unit_test('rnum0', rnum0(string).eq.5, 'checking',string,'==>',rnum0(string)+bug,'expected',5)
   call unit_test_end('rnum0',msg='')
end subroutine test_rnum0