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