gcc/testsuite/gfortran.dg/implicit_3.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { dg-do compile }
! Verify that INTERFACEs don't inherit the implicit types of the
! surrounding namespace.
implicit complex (i-k)

interface
   function f(k,l)
     ! k should be default INTEGER 
     dimension l(k)
   end function f
end interface
end