Subversion Repositories openrisc_me

! { dg-do run }

! Type-bound procedures

! Check calls with GENERIC bindings.

MODULE m

  IMPLICIT NONE

  TYPE t

  CONTAINS

    PROCEDURE, NOPASS :: plain_int

    PROCEDURE, NOPASS :: plain_real

    PROCEDURE, PASS(me) :: passed_intint

    PROCEDURE, PASS(me) :: passed_realreal

    GENERIC :: gensub => plain_int, plain_real, passed_intint, passed_realreal

  END TYPE t

CONTAINS

  SUBROUTINE plain_int (x)

    IMPLICIT NONE

    INTEGER :: x

    WRITE (*,*) "Plain Integer"

  END SUBROUTINE plain_int

  SUBROUTINE plain_real (x)

    IMPLICIT NONE

    REAL :: x

    WRITE (*,*) "Plain Real"

  END SUBROUTINE plain_real

  SUBROUTINE passed_intint (me, x, y)

    IMPLICIT NONE

    CLASS(t) :: me

    INTEGER :: x, y

    WRITE (*,*) "Passed Integer"

  END SUBROUTINE passed_intint

  SUBROUTINE passed_realreal (x, me, y)

    IMPLICIT NONE

    REAL :: x, y

    CLASS(t) :: me

    WRITE (*,*) "Passed Real"

  END SUBROUTINE passed_realreal

END MODULE m

PROGRAM main

  USE m

  IMPLICIT NONE

  TYPE(t) :: myobj

  CALL myobj%gensub (5)

  CALL myobj%gensub (2.5)

  CALL myobj%gensub (5, 5)

  CALL myobj%gensub (2.5, 2.5)

END PROGRAM main

! { dg-output "Plain Integer(\n|\r\n|\r).*Plain Real(\n|\r\n|\r).*Passed Integer(\n|\r\n|\r).*Passed Real" }

! { dg-final { cleanup-modules "m" } }