Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=:), | public, | allocatable | :: | string |
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