Test removeSpaces to verify operation
Make me a test with stop conditions
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.
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 testRemoveSpaces
!! Test removeSpaces to verify operation
!! @todo
!! Make me a test with stop conditions
character(:),allocatable::s1,s2
s1 = 'This Is A Test'
s2 = removeSpaces(s1)
write(*,*) '|'//s2//'|'
end subroutine testRemoveSpaces