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