1c907536fSjeremylt!----------------------------------------------------------------------- 2c907536fSjeremylt program test 31f9a83abSJed Brown implicit none 4c907536fSjeremylt include 'ceedf.h' 5c907536fSjeremylt 6c907536fSjeremylt integer ceed,err 7c907536fSjeremylt character arg*32 8c907536fSjeremylt 9c907536fSjeremylt call getarg(1,arg) 10c907536fSjeremylt 11c907536fSjeremylt call ceedinit(trim(arg)//char(0),ceed,err) 12c907536fSjeremylt call ceeddestroy(ceed,err) 13*cd1fe911SJeremy L Thompson 14*cd1fe911SJeremy L Thompson! Test double destroy is safe 15cc85b9c9SJeremy L Thompson call ceeddestroy(ceed,err) 16c907536fSjeremylt 17c907536fSjeremylt end 18c907536fSjeremylt!----------------------------------------------------------------------- 19