gcc/testsuite/gfortran.dg/implicit_3.f90

   1 ! { dg-do compile }
   2 ! Verify that INTERFACEs don't inherit the implicit types of the
   3 ! surrounding namespace.
   4 implicit complex (i-k)
   5
   6 interface
   7    function f(k,l)
   8      ! k should be default INTEGER
   9      dimension l(k)
  10    end function f
  11 end interface
  12 end