[gfortran,patch] Fix type for LOC function return

[FX Coudert]

>> ping**2

No news. I've commited the patch as rev. 118151.

> Are Andrews patches committed?

No, there have not been commited. Otherwise, we'd have ICEs all over  
the testsuite :)

FX