1! { dg-do compile }
2! This checks the fix for PR 26041.
3!
4! Contributed by H.J. Lu  <hongjiu.lu@intel.com>
5module foo
6   public    bar_
7   interface bar_
8      module procedure bar
9   end interface
10   public    xxx_
11   interface xxx_
12      module procedure xxx
13   end interface
14contains
15   subroutine bar(self, z)
16      interface
17         function self(z) result(res)
18        real z
19            real(kind=kind(1.0d0)) :: res
20         end function
21      end interface
22   end subroutine
23   subroutine xxx(self,z)
24      interface
25         function self(z) result(res)
26        real z
27            real(kind=kind(1.0d0)) :: res
28         end function
29      end interface
30      call bar_(self, z)
31   end subroutine
32end
33