1! { dg-do compile } 2! 3! This is a check for error recovery: we used to ICE in various places, or 4! emit bogus error messages (PR 25252) 5! 6module foo 7 interface bar 8 module procedure X, Y, ! { dg-error "Syntax error in MODULE PROCEDURE statement" } 9 end interface bar 10end module 11 12module g 13 interface i 14 module procedure sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" } 15 end interface i 16end module g 17 18module gswap 19 type points 20 real :: x, y 21 end type points 22 interface swap 23 module procedure sreal, schar, sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" } 24 end interface swap 25end module gswap 26