tstTagManager.f90

./Core/dc/f/tests/tstTagManager.f90

program tsttagmanager

#include "ScaleSTL/FortranTestMacros.h"

use origen_tagmanager_m

implicit none

type(origen_tagmanager)      :: tag_manager
integer,parameter :: i=c_size_t

call tag_manager % initialize()
call tag_manager % destroy()

end program