gcc/testsuite/gfortran.dg/generic_28.f90

   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
  11 contains
  12
  13   integer(8) function iargc_8()
  14     integer(4) iargc
  15     iargc_8 = iargc()
  16   end function
  17
  18 end