gcc/testsuite/gfortran.dg/module_procedure_double_colon_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/49265
   4 ! Contributed by Erik Toussaint
   5 !
   6 module m1
   7    implicit none
   8    interface foo
   9       module procedure::bar
  10       module procedure ::bar_none
  11       module procedure:: none_bar
  12    end interface
  13 contains
  14    subroutine bar
  15    end subroutine
  16    subroutine bar_none(i)
  17      integer i
  18    end subroutine
  19    subroutine none_bar(x)
  20      real x
  21    end subroutine
  22 end module
  23 ! { dg-final { cleanup-modules "m1" } }