198937Sdes-- Copyright 2012-2020 Free Software Foundation, Inc. 298937Sdes-- 398937Sdes-- This program is free software; you can redistribute it and/or modify 498937Sdes-- it under the terms of the GNU General Public License as published by 598937Sdes-- the Free Software Foundation; either version 3 of the License, or 698937Sdes-- (at your option) any later version. 798937Sdes-- 898937Sdes-- This program is distributed in the hope that it will be useful, 998937Sdes-- but WITHOUT ANY WARRANTY; without even the implied warranty of 1098937Sdes-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 1198937Sdes-- GNU General Public License for more details. 1298937Sdes-- 1398937Sdes-- You should have received a copy of the GNU General Public License 1498937Sdes-- along with this program. If not, see <http://www.gnu.org/licenses/>. 1598937Sdes 1698937SdesWith Classes; use Classes; 1798937Sdes 1898937Sdesprocedure P is 1998937Sdes SP_Access : Shape_Access := new Circle'(My_Circle); 2098937Sdes DP_Access : Drawable_Access := new Circle'(My_Circle); 2198937Sdes SP_Array : Shape_Array := (others => S_Access); 2298937Sdes DP_Array : Drawable_Array := (others => D_Access); 2398937Sdesbegin 2498937Sdes null; -- BREAK 2598937Sdesend P; 2698937Sdes