gcc/testsuite/gfortran.dg/module_procedure_double_colon_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 !
   4 ! PR fortran/49265
   5 ! Contributed by Erik Toussaint
   6 !
   7 module 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
  14 contains
  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
  23 end module
  24 ! { dg-final { cleanup-modules "m1" } }