1! { dg-do compile }
2!
3! PR 58998: [4.8/4.9 Regression] Generic interface problem with gfortran
4!
5! Contributed by Paul van Delst
6
7  interface iargc
8    procedure iargc_8
9  end interface
10
11contains
12
13  integer(8) function iargc_8()
14    integer(4) iargc
15    iargc_8 = iargc()
16  end function
17
18end
19