Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! { dg-do compile }

!

!

! This is a check for error recovery: we used to ICE in various places, or

! This is a check for error recovery: we used to ICE in various places, or

! emit bogus error messages (PR 25252)

! emit bogus error messages (PR 25252)

!

!

module foo

module foo

  interface bar

  interface bar

    module procedure X, Y, ! { dg-error "Syntax error in MODULE PROCEDURE statement" }

    module procedure X, Y, ! { dg-error "Syntax error in MODULE PROCEDURE statement" }

  end interface bar

  end interface bar

end module

end module

module g

module g

  interface i

  interface i

    module procedure sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" }

    module procedure sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" }

  end interface i

  end interface i

end module g

end module g

module gswap

module gswap

  type points

  type points

    real :: x, y

    real :: x, y

  end type points

  end type points

  interface swap

  interface swap

    module procedure sreal, schar, sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" }

    module procedure sreal, schar, sint => sreal ! { dg-error "Syntax error in MODULE PROCEDURE statement" }

  end interface swap

  end interface swap

end module gswap

end module gswap

! { dg-final { cleanup-modules "foo g gswap" } }

! { dg-final { cleanup-modules "foo g gswap" } }