xref: /libCEED/tests/t000-ceed-f.f90 (revision cc85b9c9a084fc1876257b64faa7866d1322f414)
1c907536fSjeremylt!-----------------------------------------------------------------------
2c907536fSjeremylt      program test
31f9a83abSJed Brown      implicit none
4c907536fSjeremylt      include 'ceedf.h'
5c907536fSjeremylt
6c907536fSjeremylt      integer ceed,err
7c907536fSjeremylt      character arg*32
8c907536fSjeremylt
9c907536fSjeremylt      call getarg(1,arg)
10c907536fSjeremylt
11c907536fSjeremylt      call ceedinit(trim(arg)//char(0),ceed,err)
12c907536fSjeremylt      call ceeddestroy(ceed,err)
13*cc85b9c9SJeremy L Thompson      call ceeddestroy(ceed,err)
14c907536fSjeremylt
15c907536fSjeremylt      end
16c907536fSjeremylt!-----------------------------------------------------------------------
17