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