2 ! This checks the fix for PR 26041.
4 ! Contributed by H.J. Lu <hongjiu.lu@intel.com>
15 subroutine bar(self, z)
17 function self(z) result(res)
19 real(kind=kind(1.0d0)) :: res
23 subroutine xxx(self,z)
25 function self(z) result(res)
27 real(kind=kind(1.0d0)) :: res
34 ! { dg-final { cleanup-modules "foo" } }