summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/implicit_3.f90
blob: 830b8611a9f6817c3981f3f6b36fb333f82d1c06 (plain)
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