In the following module, an abstract type (Base_Arrays_class) is declared and two types are derived (One_Array_t and Two_Arrays_t). In the abstract type, there is a procedure abstract_init deferred to init.