test_snum0 Subroutine

subroutine test_snum0()

Arguments

None

Variables

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

Source Code

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