gcc/testsuite/gfortran.dg/pr71085.f90

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