Accept any length symbols' strings

[foxtran]

Noticed with xtb/vertical test, where length of symbols' strings equals one

[awvwgk]

This would not work if you don't account for the variable character length in the allocation of the temporary array.

[foxtran]

@awvwgk, why does not it work? character(len=:), allocatable :: str(:) can be also passed into character(len=*), allocatable :: str(:).

See an example here: https://godbolt.org/z/fc7nTKxnP

[awvwgk]

Because the allocation in the procedure still allocates using a fixed size, which would result in silent truncation. There is nothing against allocatable character arrays with allocatable length here (except spotty compiler support, as usual).

[foxtran]

@awvwgk, I have inserted a check that input string is no longer than symbolLength. Another way is to avoid known-length strings and use everywhere character(len=:), allocatable, dimension(:) strings arrays.