gcc/testsuite/gfortran.dg/pr96038.f90 - gcc - Git at Google

 ! { dg-do compile }

 function ifoo()
   parameter (n = 50)
   integer n
   ifoo = n
 end
	! { dg-do compile }

	function ifoo()
	parameter (n = 50)
	integer n
	ifoo = n
	end