[patch, libfortran] [4.7/4.8/4.9 Regression] PR38199 missed optimization: I/O performance

[Tobias Burnus]

Jerry DeLisle wrote:
> Here is the revised patch leaving the error checks in place and using 
> unlikely(). I have also added handling of kind=4 character arrays. 
> Regression tested on x86-64. OK for trunk?

OK. Minor nit:

+      if ( unlikely(length < 0))


The space shall be after unlikely not before.

Tobias