gcc/testsuite/gfortran.dg/g77/20010426.f - gcc - Git at Google

 c { dg-do compile }
       function f(c)
       implicit none
       real(kind=8) c, f
       f = sqrt(c)
       return
       end
	c { dg-do compile }
	function f(c)
	implicit none
	real(kind=8) c, f
	f = sqrt(c)
	return
	end