!-----------------------------------------------------------------------
      program test
      implicit none
      include 'ceed/fortran.h'

      integer ceed,mtype,err
      character arg*32
      mtype = 1024

      call getarg(1,arg)

      call ceedinit(trim(arg)//char(0),ceed,err)

      call ceedgetpreferredmemtype(ceed,mtype,err)

      if (mtype == 1024) then
! LCOV_EXCL_START
          write(*,*) 'Error getting preferred memory type.'
! LCOV_EXCL_STOP
      endif

      call ceeddestroy(ceed,err)

      end
!-----------------------------------------------------------------------