REPORT  z14_14.

*----------------------------------------------------------------------*
*       CLASS CLS1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 DEFINITION.
   PUBLIC SECTION.
    METHODS constructor.
ENDCLASS.                    "CLS1 DEFINITION

*----------------------------------------------------------------------*
*       CLASS CLS2 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls2 DEFINITION INHERITING FROM cls1.
   PUBLIC SECTION.
    METHODS constructor.
ENDCLASS.                    "CLS2 DEFINITION

*----------------------------------------------------------------------*
*       CLASS CLS1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 IMPLEMENTATION.
   METHOD constructor.
    WRITE / 'Constructor Test'.
   ENDMETHOD.
ENDCLASS.                    "CLS1 IMPLEMENTATION

*----------------------------------------------------------------------*
*       CLASS CLS2 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls2 IMPLEMENTATION.
   METHOD constructor.
    super->constructor( ).
   ENDMETHOD.
ENDCLASS.                    "CLS2 IMPLEMENTATION

START-OF-SELECTION.
  DATA : cref1 TYPE REF TO cls1,
      cref2 TYPE REF TO cls2.

  CREATE OBJECT cref2 .