[Patch, libgfortran] Fix bug triggered by NIST fm908.for - x-formattingbeyond eor during read

[Paul Thomas]

Tobi,

>> !   if (f->format == FMT_X)
>> !     n = (n > (int)current_unit->bytes_left)
>> ! 	  ? (int)current_unit->bytes_left : n;
>
> Any reason not to use MIN?  Otherwise ok.

I tried it and it stuffs everything in the testsuite.  I am blowed if I can see why.  I tried a little test programme that seemed to do the right thing.

Do you mind if I commit as it was?  I am wasting a load of time on this and the original was, at least, correct if less elegant.

Paul T