1! { dg-do compile }
2! PR 71085
3!
4! Testcase from PR by Vladimir Fuka <vladimir.fuka@gmail.com>
5!
6program pr71085
7  print *, f()
8contains
9  function f()
10    integer :: f(iargc()*10)
11  end
12end
13