! { dg-do compile }

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