foo.adb revision 1.5
1-- Copyright 2013-2015 Free Software Foundation, Inc. 2-- 3-- This program is free software; you can redistribute it and/or modify 4-- it under the terms of the GNU General Public License as published by 5-- the Free Software Foundation; either version 3 of the License, or 6-- (at your option) any later version. 7-- 8-- This program is distributed in the hope that it will be useful, 9-- but WITHOUT ANY WARRANTY; without even the implied warranty of 10-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11-- GNU General Public License for more details. 12-- 13-- You should have received a copy of the GNU General Public License 14-- along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16with Pck; use Pck; 17procedure Foo is 18 type Multi is array (1 .. 1, 2 .. 3, 4 .. 6) of Integer; 19 M : Multi := (others => (others => (others => 0))); 20 21 -- Use a fake type for importing our C multi-dimensional array. 22 -- It's only to make sure the C unit gets linked in, regardless 23 -- of possible optimizations. 24 type Void_Star is access integer; 25 E : Void_Star; 26 pragma Import (C, E, "global_3dim_for_gdb_testing"); 27begin 28 Do_Nothing (M'Address); -- STOP 29 Do_Nothing (E'Address); 30end Foo; 31