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