#  ddtest.icn -- test ddump
#
#  Calls a simple C function that prints out its arguments.

$include "libnames.icn"

global ddump

procedure main()
   ddump := loadfunc(FUNCLIB, "ddump")
   ddump(-1, 51, 11213)
   write()
   ddump(&null, 1, "a", 3.4, 'cset')
end