Subversion Repositories openrisc

! { dg-do compile }

!

! PR 41873: Bogus Error: ABSTRACT INTERFACE must not be referenced...

!

! Contributed by Harald Anlauf 

  implicit none

  type, abstract :: abstype

  contains

    procedure(f), nopass, deferred :: f_bound

    procedure(s), nopass, deferred :: s_bound

  end type

  abstract interface

    real function f ()

    end function

  end interface

  abstract interface

    subroutine s

    end subroutine

  end interface

contains

  subroutine cg (c)

    class(abstype) :: c

    print *, f()             ! { dg-error "must not be referenced" }

    call s                   ! { dg-error "must not be referenced" }

    print *, c%f_bound ()

    call c%s_bound ()

  end subroutine

end