Subversion Repositories openrisc

! { dg-do compile }

!

! PR 47978: [OOP] Invalid INTENT in overriding TBP not detected

!

! Contributed by Salvatore Filippone 

module foo_mod

  type foo

  contains

    procedure, pass(f) :: bar => base_bar

  end type foo

contains

  subroutine base_bar(f,j)

    class(foo), intent(inout) :: f

    integer, intent(in)    :: j

  end subroutine base_bar

end module foo_mod

module extfoo_mod

  use foo_mod

  type, extends(foo) :: extfoo

  contains

    procedure, pass(f) :: bar => ext_bar  ! { dg-error "INTENT mismatch in argument" }

  end type extfoo

contains

  subroutine ext_bar(f,j)

    class(extfoo), intent(inout) :: f

    integer, intent(inout) :: j

  end subroutine ext_bar

end module extfoo_mod

! { dg-final { cleanup-modules "foo_mod extfoo_mod" } }