1! { dg-do compile }
2program test
3   implicit none
4   intrinsic sin
5   interface gen2
6      module procedure sin  ! { dg-error "cannot be a MODULE PROCEDURE" }
7   end interface gen2
8end program test
9