11 module procedure create
14 integer(kind=kind(1)) :: max_memory_used
19 subroutine create(self)
20 type(system_type) :: self
33 module procedure create
37 interface create_copy_
38 module procedure create_copy
42 subroutine create(self)
51 subroutine create_copy(self,s)
59 ! { dg-final { cleanup-modules "BAR_MODULE FOO_MODULE" } }