1c907536fSjeremylt!----------------------------------------------------------------------- 2c907536fSjeremylt program test 31f9a83abSJed Brown implicit none 4*ec3da8bcSJed Brown include 'ceed/fortran.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) 13cd1fe911SJeremy L Thompson 14cd1fe911SJeremy L Thompson! Test double destroy is safe 15cc85b9c9SJeremy L Thompson call ceeddestroy(ceed,err) 16c907536fSjeremylt 17c907536fSjeremylt end 18c907536fSjeremylt!----------------------------------------------------------------------- 19