1! { dg-options "-O2" }
2real*8 function f(x)
3t1 = g(0)
4if(x .eq. 0) then
5  f = 0
6else if(x .eq. 1) then
7  f = t1 *log( t1 )
8end if
9end
10