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