What does GFC_STD_F77 do?

[Steve Kargl]

       program costest
       complex(4) z4
       complex(8) z8
       z4 = (1.e0,1.e0)
       z8 = (1.d0,1.d0)
       z4 = cos(z4)
       z8 = cos(z8)
       end


troutmask:sgk[201] gfc -o d d.f
troutmask:sgk[202] gfc -o d -std=f77 d.f
f951: error: unrecognized command line option "-std=f77"
troutmask:sgk[203] gfc -o d -std=f95 d.f
 In file d.f:7

       z8 = cos(z8)                                                     
               1
Error: Type of argument 'x' in call to 'cos' at (1) should be REAL(4), not COMPLEX(8)
troutmask:sgk[204] gfc -o d -std=gnu d.f

This is clearly not good.

-- 
Steve