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