error with function declaration

[Tobias Burnus]

Steve Kargl wrote:
> On Sat, Aug 25, 2007 at 01:14:02AM +0200, Marcello Vichi wrote:
>   
>>       REAL(RLEN) FUNCTION BESS_EXP(X,LAMBDA,FN)
>>     
> It's a known bug.  I don't recall the bugzilla number.  You 
> can work aroound the problem by changing the code to
>
>        FUNCTION BESS_EXP(X,LAMBDA,FN)
>          USE global_mem, ONLY:RLEN
>          REAL(RLEN) BESS_EXP 
>   

See: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31229
and  http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31154

Tobias