Subversion Repositories openrisc

! { dg-do compile }

! Type-bound procedures
! Test for basic parsing errors for invalid DEFERRED.

MODULE testmod
  IMPLICIT NONE

  ABSTRACT INTERFACE
    SUBROUTINE intf ()
    END SUBROUTINE intf
  END INTERFACE

  TYPE not_abstract
  CONTAINS
    PROCEDURE(intf), DEFERRED, NOPASS :: proc ! { dg-error "is not ABSTRACT" }
  END TYPE not_abstract

  TYPE, ABSTRACT :: abstract_type
  CONTAINS
    PROCEDURE, DEFERRED :: p2 ! { dg-error "Interface must be specified" }
    PROCEDURE(intf), NOPASS :: p3 ! { dg-error "should be declared DEFERRED" }
    PROCEDURE(intf), DEFERRED, NON_OVERRIDABLE :: p4 ! { dg-error "can't both" }
    PROCEDURE(unknown), DEFERRED :: p5 ! { dg-error "has no IMPLICIT|module procedure" }
    PROCEDURE(intf), DEFERRED, DEFERRED :: p6 ! { dg-error "Duplicate DEFERRED" }
    PROCEDURE(intf), DEFERRED :: p6 => proc ! { dg-error "is invalid for DEFERRED" }
    PROCEDURE(), DEFERRED :: p7 ! { dg-error "Interface-name expected" }
    PROCEDURE(intf, DEFERRED) :: p8 ! { dg-error "'\\)' expected" }
  END TYPE abstract_type

END MODULE testmod

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