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