Subversion Repositories openrisc_2011-10-31

! { dg-do compile }

! Type-bound procedures
! Test that legal usage of DEFERRED is accepted.

MODULE testmod
  IMPLICIT NONE

  ABSTRACT INTERFACE
    SUBROUTINE intf ()
    END SUBROUTINE intf
  END INTERFACE

  TYPE, ABSTRACT :: abstract_type
  CONTAINS
    PROCEDURE(intf), DEFERRED, NOPASS :: p1
    PROCEDURE(realproc), DEFERRED, NOPASS :: p2
  END TYPE abstract_type

  TYPE, EXTENDS(abstract_type) :: sub_type
  CONTAINS
    PROCEDURE, NOPASS :: p1 => realproc
    PROCEDURE, NOPASS :: p2 => realproc
  END TYPE sub_type

CONTAINS

  SUBROUTINE realproc ()
  END SUBROUTINE realproc

END MODULE testmod

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