4 ! Check for module file IO.
9 TYPE, ABSTRACT :: abst_t
13 TYPE, EXTENDS(abst_t) :: concrete_t
23 TYPE(abst_t) :: abst ! { dg-error "is of the ABSTRACT type 'abst_t'" }
24 TYPE(concrete_t) :: conc
26 ! See if constructing the extending type works.
27 conc = concrete_t (1, 2)