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