1! { dg-do compile }
2!
3! PR fortran/49265
4! Contributed by Erik Toussaint
5!
6module m1
7   implicit none
8   interface foo
9      module procedure::bar
10      module procedure ::bar_none
11      module procedure:: none_bar
12   end interface
13contains
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
22end module
23