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