Strange behaviour which I have only observed since installing XE2017 update 1, but don't know how long this has been happening.
I = LEN_TRIM(logtext)
I reports 22
logtext contains "Case No. 1 loaded 80" (variable length actually 80)
Subroutine WriteScrollLine(box, text)
INTEGER, INTENT(IN) :: box
CHARACTER (LEN=*), INTENT(IN) :: text
text is now blank with length 0.
This does not happen on all calls. Most calls to the subroutine run as expected.