1!----------------------------------------------------------------------- 2 program test 3 implicit none 4 include 'ceedf.h' 5 6 integer ceed,mtype,err 7 character arg*32 8 mtype = 1024 9 10 11 call getarg(1,arg) 12 13 call ceedinit(trim(arg)//char(0),ceed,err) 14 15 call ceedgetpreferredmemtype(ceed,mtype,err) 16 17 if (mtype == 1024) then 18! LCOV_EXCL_START 19 write(*,*) 'Error getting preferred memory type.' 20! LCOV_EXCL_STOP 21 endif 22 23 call ceeddestroy(ceed,err) 24 25 end 26!----------------------------------------------------------------------- 27