Verify the operation of newConfig
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine testNewConfig
!! Verify the operation of newConfig
logical,dimension(1)::results
type(config_t)::cfg
logical::tLogical
integer::tInteger
real(wp)::tReal
complex(wp)::tComplex
real(wp),dimension(:),allocatable::tVector
real(wp),dimension(:,:),allocatable::tMatrix
character(:),allocatable::tString
cfg = config_t('./input/testConfig.cfg')
results(1) = allocated(cfg%pairs)
tLogical = cfg%getLogical('logical')
tInteger = cfg%getInteger('integer')
tReal = cfg%getReal('real')
tComplex = cfg%getComplex('complex')
tVector = cfg%getVector('vector')
tMatrix = cfg%getMatrix('matrix')
tString = cfg%getString('string')
if( .not.all(results) ) error stop "Failed newConfig check"
end subroutine testNewConfig