gcc/testsuite/gfortran.dg/proc_decl_6.f90

   1 ! { dg-do compile }
   2 ! PR fortran/33945
   3 !
   4 ! MODULE PROCEDURE in the interface was wrongly accepted
   5 module modproc2
   6   implicit none
   7   interface
   8     subroutine x
   9     end subroutine x
  10   end interface
  11   procedure(x) :: y
  12   interface bar
  13     module procedure y ! { dg-error "not a module procedure" }
  14   end interface bar
  15 end module modproc2
  16
  17 end