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" } }