gcc/testsuite/gfortran.dg/sibling_dummy_procedure_1.f90

   1 ! { dg-do compile }
   2 ! This checks the fix for PR 26041.
   3 !
   4 ! Contributed by H.J. Lu  <hongjiu.lu@intel.com>
   5 module 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
  14 contains
  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
  32 end