SPEC 189.lucas benchmark works

[Victor Leikehman]

S. Bosscher wrote:
>>Good news for all SPEC FP lovers: gfortran now  compiles
>>and runs 189.lucas benchmark.   The amount of whitespace
>>in the output is still wrong, which causes a miscompare.
>>Other than that, the results are identical, as  far as I
>>could see.
> 
> 
> Very nice work Victor! Whee.
> 
> Is there a PR for the whitespace problem?
> 
> Gr.
> Steven

I just opened PR 15311:

The draft standard says: (10.6.3 Character editing)

"If the specified field width w for an A edit descriptor corresponding to
an output item is greater than len, the output field will consist of w-len
blanks followed by the len characters from the internal value".

Currently, the behaviour is such that the blanks are printed after the
value.

This defects causes miscompare in SPEC FP benchmark 189.lucas.

% cat foo.f90
program main
  character*100 s
  write(s,'(a18)') "hello world"
  if (s.eq."       hello world") print*, "Ok"
  if (s.eq."hello world       ") print*, "Wrong!"
end

Happy hacking,
	Victor
--
	Victor Leikehman
	IBM Research Labs in Haifa, Israel