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