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