This is related, but takes up to twenty strings and turns them into an array long enough to accomodate the longest one, avoiding possible truncation when using the mentioned standard syntax.
https://urbanjost.github.io/M_strings/bundle.3m_strings.html
several compilers as an extension do that with a simple declaration which I wish was standard behavior. That is,
array=['one', 'two', 'three']
of course if array is not allocatable you can still get truncation if array has a length too small; and if it is allocatable you may create an unexpectedly long length so not perfect either.