labug1.f fix

[Toon Moene]

Geoff Keating wrote:

> This patch fixes the labug1.f failure on powerpc-darwin, and does some
> other tidying in the same routine to make it more comprehensible.

Thanks, I was lost with respect to this one (it fails on 
powerpc-unknown-linux-gnu too).

-- 
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://gcc.gnu.org/fortran/ (under construction)