Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=:), | public, | allocatable | :: | string |
subroutine test_snum0() character(len=:),allocatable :: string call unit_test_start('snum0',msg='') string='$str(10/2)' call unit_test('snum0', snum0(string).eq.'5', 'checking',string,'==>',snum0(string)//'','expected','5') call unit_test_end('snum0',msg='') end subroutine test_snum0