[Bug fortran/128488] Segmentation fault for function in declaration

[thod_ at gmx dot de via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=128488

--- Comment #3 from thod_ at gmx dot de ---
Changing logical, intent(out) :: arr(s4l(str2l(str))) to logical, intent(out)
:: arr(220) works. Note that in the test code it is sufficient to change the
order of the subroutines. In my actual code parts of the routines are from
another module and this cannot be resolved.