3 ! Type-bound procedures
4 ! Test for basic parsing errors for invalid DEFERRED.
16 PROCEDURE(intf), DEFERRED, NOPASS :: proc ! { dg-error "is not ABSTRACT" }
19 TYPE, ABSTRACT :: abstract_type
21 PROCEDURE, DEFERRED :: p2 ! { dg-error "Interface must be specified" }
22 PROCEDURE(intf), NOPASS :: p3 ! { dg-error "should be declared DEFERRED" }
23 PROCEDURE(intf), DEFERRED, NON_OVERRIDABLE :: p4 ! { dg-error "can't both" }
24 PROCEDURE(unknown), DEFERRED :: p5 ! { dg-error "has no IMPLICIT|must be explicit" }
25 PROCEDURE(intf), DEFERRED, DEFERRED :: p6 ! { dg-error "Duplicate DEFERRED" }
26 PROCEDURE(intf), DEFERRED :: p6 => proc ! { dg-error "is invalid for DEFERRED" }
27 PROCEDURE(), DEFERRED :: p7 ! { dg-error "Interface-name expected" }
28 PROCEDURE(intf, DEFERRED) :: p8 ! { dg-error "'\\)' expected" }
29 END TYPE abstract_type