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