4 ! Check for correct handling of abstract-typed base object references.
9 TYPE, ABSTRACT :: abstract_t
12 PROCEDURE, NOPASS :: proc
13 PROCEDURE, NOPASS :: func
16 TYPE, EXTENDS(abstract_t) :: concrete_t
26 INTEGER FUNCTION func ()
33 TYPE(concrete_t) :: obj
40 ! These are errors (even though the procedures are not DEFERRED!).
41 CALL obj%abstract_t%proc () ! { dg-error "is of ABSTRACT type" }
42 PRINT *, obj%abstract_t%func () ! { dg-error "is of ABSTRACT type" }