URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
Compare Revisions
- This comparison shows the changes necessary to convert path
/openrisc/trunk/gnu-src/gcc-4.2.2/gcc/testsuite/gnat.dg/specs
- from Rev 149 to Rev 154
- ↔ Reverse comparison
Rev 149 → Rev 154
/static_initializer.ads
0,0 → 1,14
-- { dg-do compile } |
|
package static_initializer is |
|
type Vector is array (1 .. 3) of Float; |
type Arr is array (Integer range 1 .. 3) of Vector; |
|
Pos : constant Arr := ((0.0, 1.0, 2.0), |
(0.5, 1.5, 2.5), |
(1.0, 2.0, 4.0)); |
|
end; |
|
-- { dg-final { scan-assembler-not "elabs" } } |
/unchecked_union.ads
0,0 → 1,20
-- PR ada/28591 |
-- Reported by Martin Michlmayr <tbm@cyrius.com> |
|
-- { dg-do compile } |
-- { dg-options "-g" } |
|
with Interfaces; use Interfaces; |
|
package Unchecked_Union is |
type Mode_Type is (Mode_B2); |
|
type Value_Union (Mode : Mode_Type := Mode_B2) is record |
case Mode is |
when Mode_B2 => |
B2 : Integer_32; |
end case; |
end record; |
pragma Unchecked_Union (Value_Union); |
|
end Unchecked_Union; |
/specs.exp
0,0 → 1,36
# Copyright (C) 2006, 2007 Free Software Foundation, Inc. |
|
# This program is free software; you can redistribute it and/or modify |
# it under the terms of the GNU General Public License as published by |
# the Free Software Foundation; either version 3 of the License, or |
# (at your option) any later version. |
# |
# This program is distributed in the hope that it will be useful, |
# but WITHOUT ANY WARRANTY; without even the implied warranty of |
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
# GNU General Public License for more details. |
# |
# You should have received a copy of the GNU General Public License |
# along with GCC; see the file COPYING3. If not see |
# <http://www.gnu.org/licenses/>. |
|
# GCC testsuite that uses the `dg.exp' driver. |
|
# Load support procs. |
load_lib gnat-dg.exp |
|
# If a testcase doesn't have special options, use these. |
global DEFAULT_CFLAGS |
if ![info exists DEFAULT_CFLAGS] then { |
set DEFAULT_CFLAGS "" |
} |
|
# Initialize `dg'. |
dg-init |
|
# Main loop. |
dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.ads]] \ |
"" $DEFAULT_CFLAGS |
|
# All done. |
dg-finish |
/double_record_extension1.ads
0,0 → 1,11
package double_record_extension1 is |
|
type T1(n: natural) is tagged record |
s1: string (1..n); |
end record; |
type T2(j,k: natural) is new T1(j) with record |
s2: string (1..k); |
end record; |
type T3 is new T2 (10, 10) with null record; |
|
end double_record_extension1; |
/double_record_extension2.ads
0,0 → 1,15
package double_record_extension2 is |
|
type Base_Message_Type (Num_Bytes : Positive) is tagged record |
Data_Block : String (1..Num_Bytes); |
end record; |
|
type Extended_Message_Type (Num_Bytes1 : Positive; Num_Bytes2 : Positive) is new Base_Message_Type (Num_Bytes1) with record |
A: String (1..Num_Bytes2); |
end record; |
|
type Final_Message_Type is new Extended_Message_Type with record |
B : Integer; |
end record; |
|
end double_record_extension2; |