diff options
Diffstat (limited to 'gcc/testsuite/ada/acats/tests/l')
72 files changed, 0 insertions, 4509 deletions
diff --git a/gcc/testsuite/ada/acats/tests/l/la140010.a b/gcc/testsuite/ada/acats/tests/l/la140010.a deleted file mode 100644 index 58ba661958e..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140010.a +++ /dev/null @@ -1,51 +0,0 @@ --- LA140010.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140011.AM. --- --- TEST DESCRIPTION: --- See LA140011.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140011.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140010.A --- LA140011.AM --- LA140012.A --- --- PASS/FAIL CRITERIA: --- See LA140011.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -package LA140010_0 is - TC_Var : integer := 100; -end LA140010_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140012.a b/gcc/testsuite/ada/acats/tests/l/la140012.a deleted file mode 100644 index 1dc8a7c9273..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140012.a +++ /dev/null @@ -1,55 +0,0 @@ --- LA140012.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140011.AM. --- --- TEST DESCRIPTION: --- See LA140011.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140011.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140010.A --- LA140011.AM --- -> LA140012.A --- --- PASS/FAIL CRITERIA: --- See LA140011.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007I baseline version --- 08 MAY 95 SAIC Initial version --- 16 NOV 96 SAIC Modified prologue to conform to standards. --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. --- ---! - -package LA140010_0 is - TC_Var : integer := -10; -end LA140010_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140020.a b/gcc/testsuite/ada/acats/tests/l/la140020.a deleted file mode 100644 index 6b49ca2d11e..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140020.a +++ /dev/null @@ -1,60 +0,0 @@ --- LA140020.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140021.AM. --- --- TEST DESCRIPTION: --- See LA140021.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140021.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140020.A --- LA140021.AM --- LA140022.A --- --- PASS/FAIL CRITERIA: --- See LA140021.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -package LA140020_0 is - procedure P (TC_change : out integer); - - TC_Var : integer := 100; -end LA140020_0; - -package body LA140020_0 is - procedure P (TC_change : out integer) is - begin - TC_change := TC_Var; - end P; -end LA140020_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140022.a b/gcc/testsuite/ada/acats/tests/l/la140022.a deleted file mode 100644 index 75a4c4483e6..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140022.a +++ /dev/null @@ -1,66 +0,0 @@ --- LA140022.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140021.AM. --- --- TEST DESCRIPTION: --- See LA140021.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140021.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140020.A --- LA140021.AM --- -> LA140022.A --- --- PASS/FAIL CRITERIA: --- See LA140021.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007J baseline version --- 08 MAY 95 SAIC Initial version --- 16 NOV 96 SAIC Modified prologue to conform to coding --- conventions. --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. Added body for unit to --- allow automatic recompilation. --- ---! - -package LA140020_0 is - procedure P (TC_change : out integer); - - TC_Var : integer := -10; -end LA140020_0; - -package body LA140020_0 is - procedure P (TC_change : out integer) is - begin - TC_change := TC_Var; - end P; -end LA140020_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140030.a b/gcc/testsuite/ada/acats/tests/l/la140030.a deleted file mode 100644 index 82d97e787ff..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140030.a +++ /dev/null @@ -1,57 +0,0 @@ --- LA140030.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140032.AM. --- --- TEST DESCRIPTION: --- See LA140032.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140032.AM. --- --- TEST FILES: --- This test consists of the following files: --- => LA140030.A --- LA140031.A --- LA140032.AM --- LA140033.A --- --- PASS/FAIL CRITERIA: --- See LA140032.AM. --- --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007K baseline version --- 09 MAY 95 SAIC Initial version --- 16 NOV 96 SAIC Modified prologue to conform to coding --- conventions. --- ---! - -package LA140030 is - TC_named_number : constant := 100; - TC_Var : integer := 100; -end LA140030; diff --git a/gcc/testsuite/ada/acats/tests/l/la140031.a b/gcc/testsuite/ada/acats/tests/l/la140031.a deleted file mode 100644 index 250162b28f1..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140031.a +++ /dev/null @@ -1,66 +0,0 @@ --- LA140031.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140032.AM. --- --- TEST DESCRIPTION: --- See LA140032.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140032.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140030.A --- => LA140031.A --- LA140032.AM --- LA140033.A --- --- PASS/FAIL CRITERIA: --- See LA140032.AM. --- --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007K baseline version --- 09 MAY 95 SAIC Initial version --- 16 NOV 96 SAIC Modified prologue to conform to coding --- conventions. --- ---! - -package LA140031 is - procedure P (TC_Change : out integer); -end LA140031; - -with LA140030; -- when LA140030 is revised and recompiled, - -- this semantic dependency has to be handled - -package body LA140031 is - procedure P (TC_Change : out integer) is - begin - TC_Change := LA140030.TC_Var; - end P; -end LA140031; diff --git a/gcc/testsuite/ada/acats/tests/l/la140033.a b/gcc/testsuite/ada/acats/tests/l/la140033.a deleted file mode 100644 index 9d7f13366c5..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140033.a +++ /dev/null @@ -1,56 +0,0 @@ --- LA140033.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140032.AM. --- --- TEST DESCRIPTION: --- See LA140032.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140032.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140030.A --- LA140031.A --- LA140032.AM --- => LA140033.A --- --- PASS/FAIL CRITERIA: --- See LA140032.AM. --- --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007K baseline version --- 09 MAY 95 SAIC Initial version --- 16 NOV 96 SAIC Modified prologue to conform to coding --- conventions. --- ---! - -package LA140030 is - TC_Var : integer := -10; -end LA140030; diff --git a/gcc/testsuite/ada/acats/tests/l/la140040.a b/gcc/testsuite/ada/acats/tests/l/la140040.a deleted file mode 100644 index eef6d987457..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140040.a +++ /dev/null @@ -1,52 +0,0 @@ --- LA140040.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140041.AM. --- --- TEST DESCRIPTION: --- See LA140041.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140041.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140040.A --- LA140041.AM --- LA140042.A --- --- PASS/FAIL CRITERIA: --- See LA140041.AM. --- --- CHANGE HISTORY: --- 09 MAY 95 SAIC Initial version --- 10 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -package LA14004_0 is - TC_Var : integer := 100; -end LA14004_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140042.a b/gcc/testsuite/ada/acats/tests/l/la140042.a deleted file mode 100644 index bb4ba6c09b3..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140042.a +++ /dev/null @@ -1,53 +0,0 @@ --- LA140042.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140041.AM. --- --- TEST DESCRIPTION: --- See LA140041.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140041.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140040.A --- LA140041.AM --- -> LA140042.A --- --- PASS/FAIL CRITERIA: --- See LA140041.AM. --- --- CHANGE HISTORY: --- 09 MAY 95 SAIC Initial version --- 10 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -package LA14004_0 is - Small_array : array (1..15) of integer; - TC_Var : integer := -10; -end LA14004_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140050.a b/gcc/testsuite/ada/acats/tests/l/la140050.a deleted file mode 100644 index 542c1ffddbe..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140050.a +++ /dev/null @@ -1,60 +0,0 @@ --- LA140050.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140052.AM. --- --- TEST DESCRIPTION: --- See LA140052.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140052.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140050.A --- LA140051.A --- LA140052.AM --- LA140053.A --- --- PASS/FAIL CRITERIA: --- See LA140052.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -generic - hi : integer; - lo : integer; - type flt is digits <>; -package LA14005_0 is - TC_var : flt := flt(lo); - type gen_flt is new flt range flt(lo)..flt(hi); - max : integer := hi; - min : integer := lo; - avg : integer := (hi + lo)/ (integer(2.0)); -end LA14005_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140051.a b/gcc/testsuite/ada/acats/tests/l/la140051.a deleted file mode 100644 index 6af550a3a3e..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140051.a +++ /dev/null @@ -1,56 +0,0 @@ --- LA140051.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140052.AM. --- --- TEST DESCRIPTION: --- See LA140052.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140052.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140050.A --- -> LA140051.A --- LA140052.AM --- LA140053.A --- --- PASS/FAIL CRITERIA: --- See LA140052.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -with LA14005_0; -generic - with package types is new LA14005_0 (<>); -package LA14005_1 is - TC_constant_flt : constant types.gen_flt := types.gen_flt(types.avg); - function return_flt return types.gen_flt; -end LA14005_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140053.a b/gcc/testsuite/ada/acats/tests/l/la140053.a deleted file mode 100644 index 406b3abb082..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140053.a +++ /dev/null @@ -1,60 +0,0 @@ --- LA140053.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140052.AM. --- --- TEST DESCRIPTION: --- See LA140052.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140052.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140050.A --- LA140051.A --- LA140052.AM --- -> LA140053.A --- --- PASS/FAIL CRITERIA: --- See LA140052.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008I baseline version --- 09 MAY 95 SAIC Initial version --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. --- ---! - -with LA14005_0; -generic - with package types is new LA14005_0 (<>); -package LA14005_1 is - TC_constant_flt : constant - types.gen_flt := types.gen_flt(types.min); --changed line - function return_flt return types.gen_flt; -end LA14005_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140060.a b/gcc/testsuite/ada/acats/tests/l/la140060.a deleted file mode 100644 index 4f54da1e630..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140060.a +++ /dev/null @@ -1,54 +0,0 @@ --- LA140060.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140062.AM. --- --- TEST DESCRIPTION: --- See LA140062.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140062.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140060.A --- LA140061.A --- LA140062.AM --- LA140063.A --- --- PASS/FAIL CRITERIA: --- See LA140062.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -package LA14006_types is - type t_type is tagged record - f : integer := 87; - end record; -end LA14006_types; diff --git a/gcc/testsuite/ada/acats/tests/l/la140061.a b/gcc/testsuite/ada/acats/tests/l/la140061.a deleted file mode 100644 index 40ff151cb0d..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140061.a +++ /dev/null @@ -1,66 +0,0 @@ --- LA140061.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140062.AM. --- --- TEST DESCRIPTION: --- See LA140062.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140062.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140060.A --- -> LA140061.A --- LA140062.AM --- LA140063.A --- --- PASS/FAIL CRITERIA: --- See LA140062.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -with LA14006_types; -use LA14006_types; -generic - type t is new t_type with private; -package LA14006_0 is - - type T2 is new t with record - g : integer := 100; - end record; - - TC_var : T2; - -private - type type_t is new t with record - g2 : integer := 99; - end record; -end LA14006_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140063.a b/gcc/testsuite/ada/acats/tests/l/la140063.a deleted file mode 100644 index e4e6457d0e3..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140063.a +++ /dev/null @@ -1,70 +0,0 @@ --- LA140063.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140062.AM. --- --- TEST DESCRIPTION: --- See LA140062.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140062.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140060.A --- LA140061.A --- LA140062.AM --- -> LA140063.A --- --- PASS/FAIL CRITERIA: --- See LA140062.AM. --- --- CHANGE HISTORY: --- 09 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified unit names and prologue to conform --- to coding conventions. --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. --- ---! - -with LA14006_types; -use LA14006_types; -generic - type t is new t_type with private; -package LA14006_0 is - type T2 is new t with record - g : integer := -10; - end record; - - TC_var : T2; - Other_var : integer := 12; - - private - type type_t is new t with record - g2 : integer := 88; - end record; -end LA14006_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140070.a b/gcc/testsuite/ada/acats/tests/l/la140070.a deleted file mode 100644 index e3c864ac467..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140070.a +++ /dev/null @@ -1,62 +0,0 @@ --- LA140070.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140072.AM. --- --- TEST DESCRIPTION: --- See LA140072.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140072.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140070.A --- LA140071.A --- LA140072.AM --- LA140073.A --- --- PASS/FAIL CRITERIA: --- See LA140072.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007L baseline version --- 12 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -package LA14007_0 is -- this will be modified and recompiled - type mod_16 is new integer; - type rec is tagged record - f: mod_16 := 12; - end record; - type t_rec is new rec with record - g : mod_16 := -2; - end record; - TC_Var : t_rec; -end LA14007_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140071.a b/gcc/testsuite/ada/acats/tests/l/la140071.a deleted file mode 100644 index e895b874479..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140071.a +++ /dev/null @@ -1,72 +0,0 @@ --- LA140071.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140072.AM. --- --- TEST DESCRIPTION: --- See LA140072.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140072.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140070.A --- -> LA140071.A --- LA140072.AM --- LA140073.A --- --- PASS/FAIL CRITERIA: --- See LA140072.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007L baseline version --- 12 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform to coding --- conventions. Deleted extraneous procedure --- specification. --- ---! - -procedure LA14007_1 (TC_Parent : in out integer); - - --================================================================-- - -procedure LA14007_1 (TC_Parent : in out integer) is - procedure LA14007_2 (TC_Local : in out integer) is separate; -begin - LA14007_2 (TC_Parent); -end LA14007_1; - - --================================================================-- - -with LA14007_0; - -separate (LA14007_1) -procedure LA14007_2 (TC_Local : in out integer) is -begin - TC_Local := integer (LA14007_0.TC_Var.f); -end LA14007_2; diff --git a/gcc/testsuite/ada/acats/tests/l/la140073.a b/gcc/testsuite/ada/acats/tests/l/la140073.a deleted file mode 100644 index 01e07151938..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140073.a +++ /dev/null @@ -1,63 +0,0 @@ --- LA140073.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140072.AM. --- --- TEST DESCRIPTION: --- See LA140072.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140072.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140070.A --- LA140071.A --- LA140072.AM --- -> LA140073.A --- --- PASS/FAIL CRITERIA: --- See LA140072.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007L baseline version --- 12 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -package LA14007_0 is -- this is the corrected version - extra_integer : integer; - type mod_16 is new integer; - type rec is tagged record - f: mod_16 := 3; - end record; - type t_rec is new rec with record - null; - end record; - TC_Var : t_rec; -end LA14007_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140080.a b/gcc/testsuite/ada/acats/tests/l/la140080.a deleted file mode 100644 index 506c182512c..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140080.a +++ /dev/null @@ -1,52 +0,0 @@ --- LA140080.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140082.AM. --- --- TEST DESCRIPTION: --- See LA140082.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140082.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140080.A --- LA140081.A --- LA140082.AM --- LA140083.A --- --- PASS/FAIL CRITERIA: --- See LA140082.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007M baseline version --- 25 MAY 95 SAIC Initial version --- 10 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -function LA14008_0 return integer; diff --git a/gcc/testsuite/ada/acats/tests/l/la140081.a b/gcc/testsuite/ada/acats/tests/l/la140081.a deleted file mode 100644 index b800da79916..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140081.a +++ /dev/null @@ -1,63 +0,0 @@ --- LA140081.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140082.AM. --- --- TEST DESCRIPTION: --- See LA140082.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140082.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140080.A --- -> LA140081.A --- LA140082.AM --- LA140083.A --- --- PASS/FAIL CRITERIA: --- See LA140082.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007M baseline version --- 25 MAY 95 SAIC Initial version --- 10 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -function LA14008_0 return integer is - TC_local : integer := 0; - TC_var : integer := 100; - - function LA14008_1 return integer is separate; - -- when LA14008_0 is revised and recompiled, - -- this semantic dependency has to be - -- handled -begin - TC_local := LA14008_1; - return TC_local; -end LA14008_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140083.a b/gcc/testsuite/ada/acats/tests/l/la140083.a deleted file mode 100644 index cad1cf311d5..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140083.a +++ /dev/null @@ -1,61 +0,0 @@ --- LA140083.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140082.AM. --- --- TEST DESCRIPTION: --- See LA140082.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140082.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140080.A --- LA140081.A --- LA140082.AM --- -> LA140083.A --- --- PASS/FAIL CRITERIA: --- See LA140082.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007M baseline version --- 25 MAY 95 SAIC Initial version --- 10 DEC 96 SAIC Reorganized to permit automatic recompilation. --- - -function LA14008_0 return integer is - Another_var : integer := 1000; - TC_local : integer := 0; - TC_var : integer := -10; - - function LA14008_1 return integer is separate; - -begin - TC_local := LA14008_1; - return TC_local; -end LA14008_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140090.a b/gcc/testsuite/ada/acats/tests/l/la140090.a deleted file mode 100644 index d2e02c71484..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140090.a +++ /dev/null @@ -1,60 +0,0 @@ --- LA140090.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140092.AM. --- --- TEST DESCRIPTION: --- See LA140092.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140092.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140090.A --- LA140091.A --- LA140092.AM --- LA140093.A --- --- PASS/FAIL CRITERIA: --- See LA140092.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007N baseline version --- 25 MAY 95 SAIC Initial version --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -package LA14009_0 is - - package LA14009_1 is - - procedure P (TC_local : in out integer); - - end LA14009_1; - -end LA14009_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140091.a b/gcc/testsuite/ada/acats/tests/l/la140091.a deleted file mode 100644 index 550b908fbb4..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140091.a +++ /dev/null @@ -1,60 +0,0 @@ --- LA140091.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140092.AM. --- --- TEST DESCRIPTION: --- See LA140092.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140092.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140090.A --- -> LA140091.A --- LA140092.AM --- LA140093.A --- --- PASS/FAIL CRITERIA: --- See LA140092.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007N baseline version --- 25 MAY 95 SAIC Initial version --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -package body LA14009_0 is - TC_var : integer := 100; - - package body LA14009_1 is separate; - -- when LA14009_0 is revised and recompiled, - -- this semantic dependency has to be - -- handled - -end LA14009_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140093.a b/gcc/testsuite/ada/acats/tests/l/la140093.a deleted file mode 100644 index 375570675ff..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140093.a +++ /dev/null @@ -1,59 +0,0 @@ --- LA140093.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140092.AM. --- --- TEST DESCRIPTION: --- See LA140092.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140092.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140090.A --- LA140091.A --- LA140092.AM --- -> LA140093.A --- --- PASS/FAIL CRITERIA: --- See LA140092.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007N baseline version --- 25 MAY 95 SAIC Initial version --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -package body LA14009_0 is - New_TC_var : integer := 50; - Dummy_array : array (1..100) of boolean := (others => False); - TC_var : constant integer := -10; - - package body LA14009_1 is separate; - -end LA14009_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140100.a b/gcc/testsuite/ada/acats/tests/l/la140100.a deleted file mode 100644 index dfa78696628..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140100.a +++ /dev/null @@ -1,56 +0,0 @@ --- LA140100.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140102.AM. --- --- TEST DESCRIPTION: --- See LA140102.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140102.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140100.A --- LA140101.A --- LA140102.AM --- LA140103.A --- --- PASS/FAIL CRITERIA: --- See LA140102.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008O baseline version --- 29 JUN 95 SAIC Initial version --- 29 FEB 96 SAIC First revision after review --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -package LA14010_0 is - delta_v : integer := 1; -end LA14010_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140101.a b/gcc/testsuite/ada/acats/tests/l/la140101.a deleted file mode 100644 index 332f5ff20b5..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140101.a +++ /dev/null @@ -1,89 +0,0 @@ --- LA140101.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140102.AM. --- --- TEST DESCRIPTION: --- See LA140102.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140102.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140100.A --- -> LA140101.A --- LA140102.AM --- LA140103.A --- --- PASS/FAIL CRITERIA: --- See LA140102.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008O baseline version --- 29 JUN 95 SAIC Initial version --- 29 FEB 96 SAIC First revision after review --- 17 NOV 96 SAIC Modified prologue to conform to coding --- conventions. Changed task to task type. --- ---! - -generic - type scalar is range <>; -package LA14010_1 is - procedure inc (param : in out scalar); -end LA14010_1; - -with LA14010_0; -use LA14010_0; - -package body LA14010_1 is - procedure inc (param : in out scalar) is - begin - for i in 1..delta_v loop - param := param + 1; - end loop; - end inc; - - task type inc_task is - entry increment (param : in out scalar); - end inc_task; - - task body inc_task is separate; -end LA14010_1; - - -separate (LA14010_1) - -task body inc_task is - static_zero : integer := 0; -begin - accept increment (param : in out scalar) do - static_zero := LA14010_0.delta_v + static_zero; - static_zero := static_zero - LA14010_0.delta_v; - inc (param); - end increment; -end inc_task; diff --git a/gcc/testsuite/ada/acats/tests/l/la140103.a b/gcc/testsuite/ada/acats/tests/l/la140103.a deleted file mode 100644 index a16d7debfff..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140103.a +++ /dev/null @@ -1,58 +0,0 @@ --- LA140103.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140102.AM. --- --- TEST DESCRIPTION: --- See LA140102.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140102.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140100.A --- LA140101.A --- LA140102.AM --- -> LA140103.A --- --- PASS/FAIL CRITERIA: --- See LA140102.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008O baseline version --- 29 JUN 95 SAIC Initial version --- 29 FEB 96 SAIC First revision after review --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -package LA14010_0 is - New_var : integer := 100; - Local_array : array (1..51) of integer; - delta_v : constant integer := 10; -end LA14010_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140110.a b/gcc/testsuite/ada/acats/tests/l/la140110.a deleted file mode 100644 index 3f69c92a9ec..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140110.a +++ /dev/null @@ -1,64 +0,0 @@ --- LA140110.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140112.AM. --- --- TEST DESCRIPTION: --- See LA140112.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140112.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140110.A --- LA140111.A --- LA140112.AM --- LA140113.A --- --- PASS/FAIL CRITERIA: --- See LA140112.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007P baseline version --- 25 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - - -procedure LA14011_0 (Change_this : in out integer); - - -procedure LA14011_0 (Change_this : in out integer) is -begin - if Change_this = 10 then - Change_this := 100; - else - Change_this := 50; - end if; -end LA14011_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140111.a b/gcc/testsuite/ada/acats/tests/l/la140111.a deleted file mode 100644 index c3a1cf1a18f..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140111.a +++ /dev/null @@ -1,62 +0,0 @@ --- LA140111.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140112.AM. --- --- TEST DESCRIPTION: --- See LA140112.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140112.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140110.A --- -> LA140111.A --- LA140112.AM --- LA140113.A --- --- PASS/FAIL CRITERIA: --- See LA140112.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007P baseline version --- 25 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - - -with LA14011_0; - -procedure LA14011_1 (Change_this1 : in out integer); - - -procedure LA14011_1 (Change_this1 : in out integer) is -begin - LA14011_0(Change_this1); -end LA14011_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140113.a b/gcc/testsuite/ada/acats/tests/l/la140113.a deleted file mode 100644 index 8dd9683e353..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140113.a +++ /dev/null @@ -1,59 +0,0 @@ --- LA140113.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140112.AM. --- --- TEST DESCRIPTION: --- See LA140112.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140112.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140110.A --- LA140111.A --- LA140112.AM --- -> LA140113.A --- --- PASS/FAIL CRITERIA: --- See LA140112.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007P baseline version --- 25 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -procedure LA14011_0 (Change_this : in out integer); - - -procedure LA14011_0 (Change_this : in out integer) is -begin - Change_this := -Change_this; -end LA14011_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140120.a b/gcc/testsuite/ada/acats/tests/l/la140120.a deleted file mode 100644 index d21525ed470..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140120.a +++ /dev/null @@ -1,63 +0,0 @@ --- LA140120.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140122.AM. --- --- TEST DESCRIPTION: --- See LA140122.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140122.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140120.A --- LA140121.A --- LA140122.AM --- LA140123.A --- --- PASS/FAIL CRITERIA: --- See LA140122.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007Q baseline version --- 25 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -function LA14012_0 (Parm_1 : integer) return integer; - - -function LA14012_0 (Parm_1 : integer) return integer is -begin - if Parm_1 >= 0 then - return 100; - else - return 200; - end if; -end LA14012_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140121.a b/gcc/testsuite/ada/acats/tests/l/la140121.a deleted file mode 100644 index e4ea3ed9a55..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140121.a +++ /dev/null @@ -1,64 +0,0 @@ --- LA140121.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140122.AM. --- --- TEST DESCRIPTION: --- See LA140122.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140122.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140120.A --- -> LA140121.A --- LA140122.AM --- LA140123.A --- --- PASS/FAIL CRITERIA: --- See LA140122.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007Q baseline version --- 25 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - - -with LA14012_0; - -function LA14012_1 return integer; - - -function LA14012_1 return integer is - Local_val : integer := 5; -begin - Local_val := LA14012_0 (Parm_1 => Local_val); - return Local_val; -end LA14012_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140123.a b/gcc/testsuite/ada/acats/tests/l/la140123.a deleted file mode 100644 index cacbf64e45b..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140123.a +++ /dev/null @@ -1,59 +0,0 @@ --- LA140123.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140122.AM. --- --- TEST DESCRIPTION: --- See LA140122.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140122.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140120.A --- LA140121.A --- LA140122.AM --- -> LA140123.A --- --- PASS/FAIL CRITERIA: --- See LA140122.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007Q baseline version --- 25 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -function LA14012_0 (Parm_1 : integer) return integer; - - -function LA14012_0 (Parm_1 : integer) return integer is -begin - return -(2 * Parm_1); -end LA14012_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140130.a b/gcc/testsuite/ada/acats/tests/l/la140130.a deleted file mode 100644 index a65ce80013d..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140130.a +++ /dev/null @@ -1,57 +0,0 @@ --- LA140130.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140132.AM. --- --- TEST DESCRIPTION: --- See LA140132.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140132.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140130.A --- LA140131.A --- LA140132.AM --- LA140133.A --- --- PASS/FAIL CRITERIA: --- See LA140132.AM. --- --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007R baseline version --- 26 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -package LA140130 is - subtype TC_type is integer range 0..100; - TC_var : TC_type := TC_type'last; -end LA140130; diff --git a/gcc/testsuite/ada/acats/tests/l/la140131.a b/gcc/testsuite/ada/acats/tests/l/la140131.a deleted file mode 100644 index fe03f670568..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140131.a +++ /dev/null @@ -1,58 +0,0 @@ --- LA140131.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140132.AM. --- --- TEST DESCRIPTION: --- See LA140132.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140132.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140130.A --- -> LA140131.A --- LA140132.AM --- LA140133.A --- --- PASS/FAIL CRITERIA: --- See LA140132.AM. --- --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007R baseline version --- 26 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -with LA140130; - -package LA140131 is - TC_local : LA140130.TC_type := LA140130.TC_var; -end LA140131; diff --git a/gcc/testsuite/ada/acats/tests/l/la140133.a b/gcc/testsuite/ada/acats/tests/l/la140133.a deleted file mode 100644 index 4d1451e4e53..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140133.a +++ /dev/null @@ -1,58 +0,0 @@ --- LA140133.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140132.AM. --- --- TEST DESCRIPTION: --- See LA140132.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140132.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140130.A --- LA140131.A --- LA140132.AM --- -> LA140133.A --- --- PASS/FAIL CRITERIA: --- See LA140132.AM. --- --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007R baseline version --- 26 MAY 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -package LA140130 is - subtype TC_type is integer range -49..50; - TC_const : constant TC_type := TC_type'first; - TC_var : TC_type := TC_const; -end LA140130; diff --git a/gcc/testsuite/ada/acats/tests/l/la140140.a b/gcc/testsuite/ada/acats/tests/l/la140140.a deleted file mode 100644 index 21168913c3e..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140140.a +++ /dev/null @@ -1,55 +0,0 @@ --- LA140140.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140142.AM. --- --- TEST DESCRIPTION: --- See LA140142.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140142.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140140.A --- LA140141.A --- LA140142.AM --- LA140143.A --- --- PASS/FAIL CRITERIA: --- See LA140142.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007S baseline version --- 26 MAY 95 SAIC Initial version --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -procedure LA14014_0 (Change_one : in out integer) is -begin - Change_one := Change_one * 5; -end LA14014_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140141.a b/gcc/testsuite/ada/acats/tests/l/la140141.a deleted file mode 100644 index d0406e6e581..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140141.a +++ /dev/null @@ -1,57 +0,0 @@ --- LA140141.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140142.AM. --- --- TEST DESCRIPTION: --- See LA140142.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140142.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140140.A --- -> LA140141.A --- LA140142.AM --- LA140143.A --- --- PASS/FAIL CRITERIA: --- See LA140142.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007S baseline version --- 26 MAY 95 SAIC Initial version --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -with LA14014_0; -procedure LA14014_1 (Change_this : out integer) is -begin - Change_this := 10; - LA14014_0(Change_one => Change_this); -end LA14014_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140143.a b/gcc/testsuite/ada/acats/tests/l/la140143.a deleted file mode 100644 index 2c21b1bef95..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140143.a +++ /dev/null @@ -1,64 +0,0 @@ --- LA140143.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140142.AM. --- --- TEST DESCRIPTION: --- See LA140142.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140142.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140140.A --- LA140141.A --- LA140142.AM --- -> LA140143.A --- --- PASS/FAIL CRITERIA: --- See LA140142.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007S baseline version --- 26 MAY 95 SAIC Initial version --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- ---! - -procedure LA14014_0 (Change_two : in integer := 0; - Change_one : out integer) is -begin - - if Change_two = 10 then - Change_one := 70; - elsif Change_two = 0 then - Change_one := -10; - else - Change_one := 30; - end if; - -end LA14014_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140150.a b/gcc/testsuite/ada/acats/tests/l/la140150.a deleted file mode 100644 index 77a5a21a854..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140150.a +++ /dev/null @@ -1,56 +0,0 @@ --- LA140150.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140152.AM. --- --- TEST DESCRIPTION: --- See LA140152.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140152.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140150.A --- LA140151.A --- LA140152.AM --- LA140153.A --- --- PASS/FAIL CRITERIA: --- See LA140152.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007T baseline version --- 06 JUN 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -function LA14015_0 (Param_1 : integer) return boolean is -begin - return Param_1 = 5; -end LA14015_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140151.a b/gcc/testsuite/ada/acats/tests/l/la140151.a deleted file mode 100644 index 6cd0d1a6410..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140151.a +++ /dev/null @@ -1,65 +0,0 @@ --- LA140151.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140152.AM. --- --- TEST DESCRIPTION: --- See LA140152.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140152.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140150.A --- -> LA140151.A --- LA140152.AM --- LA140153.A --- --- PASS/FAIL CRITERIA: --- See LA140152.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007T baseline version --- 06 JUN 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -with LA14015_0; -- when LA140150 is revised and recompiled, - -- this semantic dependency has to be - -- handled - - -function LA14015_1 (P : integer) return integer is -begin - if LA14015_0 (Param_1 => P) then - return 100; - else - return -10; - end if; -end LA14015_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140153.a b/gcc/testsuite/ada/acats/tests/l/la140153.a deleted file mode 100644 index 812644595e4..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140153.a +++ /dev/null @@ -1,61 +0,0 @@ --- LA140153.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140152.AM. --- --- TEST DESCRIPTION: --- See LA140152.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140152.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140150.A --- LA140151.A --- LA140152.AM --- -> LA140153.A --- --- PASS/FAIL CRITERIA: --- See LA140152.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007T baseline version --- 06 JUN 95 SAIC Initial version --- 17 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -function LA14015_0 (Param_2 : boolean := false; - Param_1 : integer := 10) return boolean is -begin - if Param_2 then - return true; - else - return Param_1 = 10; - end if; -end LA14015_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140160.a b/gcc/testsuite/ada/acats/tests/l/la140160.a deleted file mode 100644 index 38c396d9622..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140160.a +++ /dev/null @@ -1,54 +0,0 @@ --- LA140160.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140162.AM. --- --- TEST DESCRIPTION: --- See LA140162.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140162.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140160.A --- LA140161.A --- LA140162.AM --- LA140163.A --- --- PASS/FAIL CRITERIA: --- See LA140162.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -package LA14016_0 is - subtype status_code is integer range 0..10; - type tagged_type is abstract tagged null record; - function status (param : tagged_type) return status_code is abstract; -end LA14016_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140161.a b/gcc/testsuite/ada/acats/tests/l/la140161.a deleted file mode 100644 index 4be9f1dfd8c..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140161.a +++ /dev/null @@ -1,63 +0,0 @@ --- LA140161.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140162.AM. --- --- TEST DESCRIPTION: --- See LA140162.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140162.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140160.A --- -> LA140161.A --- LA140162.AM --- LA140162.A --- --- PASS/FAIL CRITERIA: --- See LA140162.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -with LA14016_0; -generic - type T is new LA14016_0.tagged_type with private; - type count_type is range <>; -package LA14016_1 is - default_status : constant LA14016_0.status_code := 0; - type new_t is new T with - record - count : count_type; - end record; - function status (param : new_t) return LA14016_0.status_code; - - procedure inc (param : in out new_t); -end LA14016_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140163.a b/gcc/testsuite/ada/acats/tests/l/la140163.a deleted file mode 100644 index d91923a6c63..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140163.a +++ /dev/null @@ -1,67 +0,0 @@ --- LA140163.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140162.AM. --- --- TEST DESCRIPTION: --- See LA140162.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140162.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140160.A --- LA140161.A --- LA140162.AM --- -> LA140163.A --- --- PASS/FAIL CRITERIA: --- See LA140162.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008L baseline version --- 16 JUN 95 SAIC Initial version --- 07 DEC 96 SAIC Modified unit names and prologue to conform --- to coding conventions and to reflect new --- test file organization. --- ---! - -with LA14016_0; -generic - type T is new LA14016_0.tagged_type with private; - type count_type is range <>; -package LA14016_1 is - default_status : constant LA14016_0.status_code := 5; - type new_t is new T with - record - count : count_type; - end record; - function status (param : new_t) return LA14016_0.status_code; - - procedure inc (param : in out new_t); -end LA14016_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140170.a b/gcc/testsuite/ada/acats/tests/l/la140170.a deleted file mode 100644 index 0c041d00a26..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140170.a +++ /dev/null @@ -1,64 +0,0 @@ --- LA140170.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140172.AM. --- --- TEST DESCRIPTION: --- See LA140172.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140172.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140170.A --- LA140171.A --- LA140172.AM --- LA140173.A --- --- PASS/FAIL CRITERIA: --- See LA140172.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -package LA14017_0 is - type swap_type_ptr is record - p_all : integer; - end record; - subtype count_type is integer; -end LA14017_0; - ------------------------------------------------------ - -with LA14017_0; -use LA14017_0; -generic - type swap_type is private; -function LA14017_1 (P1, P2 : swap_type_ptr; - count : count_type) return count_type; diff --git a/gcc/testsuite/ada/acats/tests/l/la140171.a b/gcc/testsuite/ada/acats/tests/l/la140171.a deleted file mode 100644 index d7f37663c9a..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140171.a +++ /dev/null @@ -1,69 +0,0 @@ --- LA140171.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140172.AM. --- --- TEST DESCRIPTION: --- See LA140172.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140172.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140170.A --- -> LA140171.A --- LA140172.AM --- LA140173.A --- --- PASS/FAIL CRITERIA: --- See LA140172.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -function LA14017_1 (P1, P2 : swap_type_ptr; - count : count_type) return count_type is - temp : integer := 0; - count_factor : count_type := 10; - - function Inc (Param : integer) return integer; - - function Inc (Param : integer) return integer is separate; - - procedure Swap_Ptrs (P1, P2 : in out swap_type_ptr) is - temp : integer := 0; - begin - temp := P1.p_all; - P1.p_all := P2.p_all; - P2.p_all := temp; - end Swap_Ptrs; - -begin - return count_type (Inc (integer(count))); -end LA14017_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140173.a b/gcc/testsuite/ada/acats/tests/l/la140173.a deleted file mode 100644 index 73f382e72aa..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140173.a +++ /dev/null @@ -1,75 +0,0 @@ --- LA140173.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140172.AM. --- --- TEST DESCRIPTION: --- See LA140172.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140172.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140170.A --- LA140171.A --- LA140172.AM --- -> LA140173.A --- --- PASS/FAIL CRITERIA: --- See LA140172.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008M baseline version --- 16 JUN 95 SAIC Initial version --- 03 MAR 96 SAIC First revision after review --- 17 NOV 96 SAIC Modified unit names and prologue to conform --- to coding conventions. --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. --- ---! - -function LA14017_1 (P1, P2 : swap_type_ptr; - count : count_type) return count_type is - count_factor : count_type := -10; - - procedure Swap_Ptrs (P1, P2 : in out swap_type_ptr) is - temp : integer := 0; - begin - temp := P1.p_all; - P1.p_all := P2.p_all; - P2.p_all := temp; - end Swap_Ptrs; - - function Inc (Param : integer) return integer; - - function Inc (Param : integer) return integer is separate; - - temp : integer := 0; -begin - return count_type (Inc (integer(count))); -end LA14017_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140180.a b/gcc/testsuite/ada/acats/tests/l/la140180.a deleted file mode 100644 index 185ca21f438..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140180.a +++ /dev/null @@ -1,65 +0,0 @@ --- LA140180.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140182.AM. --- --- TEST DESCRIPTION: --- See LA140182.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140182.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140180.A --- LA140181.A --- LA140182.AM --- LA140183.A --- --- PASS/FAIL CRITERIA: --- See LA140182.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -generic - type unsigned is mod <>; - mod_value : unsigned := 1; -package LA14018_0 is - --types declared locally - - generic - type discrete is (<>); - package utils_18 is - procedure Dec (Param : in out unsigned); - - -- other utilities - end utils_18; - - --routines that make this generic useful -end LA14018_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140181.a b/gcc/testsuite/ada/acats/tests/l/la140181.a deleted file mode 100644 index 3d9847a98ae..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140181.a +++ /dev/null @@ -1,54 +0,0 @@ --- LA140181.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140182.AM. --- --- TEST DESCRIPTION: --- See LA140182.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140182.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140180.A --- -> LA140181.A --- LA140182.AM --- LA140183.A --- --- PASS/FAIL CRITERIA: --- See LA140182.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -package body LA14018_0 is - offset : constant unsigned := mod_value; - - package body utils_18 is separate; -end LA14018_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140183.a b/gcc/testsuite/ada/acats/tests/l/la140183.a deleted file mode 100644 index f50ae15ba18..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140183.a +++ /dev/null @@ -1,60 +0,0 @@ --- LA140183.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140182.AM. --- --- TEST DESCRIPTION: --- See LA140182.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140182.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140180.A --- LA140181.A --- LA140182.AM --- -> LA140183.A --- --- PASS/FAIL CRITERIA: --- See LA140182.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008N baseline version --- 16 JUN 95 SAIC Initial version --- 07 DEC 96 SAIC Modified unit names and prologue to conform --- to coding conventions, and to reflect new test --- file organization. --- ---! - -package body LA14018_0 is - New_TC_var : integer := 101; - New_array : array (1..101) of integer := (others => 0); - offset : constant unsigned := mod_value + 2; - - package body utils_18 is separate; -end LA14018_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140190.a b/gcc/testsuite/ada/acats/tests/l/la140190.a deleted file mode 100644 index 0c4c3a9d656..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140190.a +++ /dev/null @@ -1,61 +0,0 @@ --- LA140190.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140192.AM. --- --- TEST DESCRIPTION: --- See LA140192.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140192.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140190.A --- LA140191.A --- LA140192.AM --- LA140193.A --- --- PASS/FAIL CRITERIA: --- See LA140192.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008P baseline version --- 23 JUN 95 SAIC Initial version --- 29 JAN 96 SAIC First revision after review --- 17 NOV 96 SAIC Modified unit names and prologue to conform --- to coding conventions. --- ---! - -procedure LA14019_0 (Param : in out integer); - - -procedure LA14019_0 (Param : in out integer) is - TC_offset : constant integer := 1; -begin - Param := Param + TC_offset; -end LA14019_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140191.a b/gcc/testsuite/ada/acats/tests/l/la140191.a deleted file mode 100644 index 8b7af2e7c90..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140191.a +++ /dev/null @@ -1,74 +0,0 @@ --- LA140191.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140192.AM. --- --- TEST DESCRIPTION: --- See LA140192.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140192.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140190.A --- -> LA140191.A --- LA140192.AM --- LA140193.A --- --- PASS/FAIL CRITERIA: --- See LA140192.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008P baseline version --- 23 JUN 95 SAIC Initial version --- 29 JAN 96 SAIC First revision after review --- 17 NOV 96 SAIC Modified unit names and prologue to conform --- to coding conventions. --- ---! - -generic - type integer_type is range <>; -procedure LA14019_1 (Test_val : in out integer); - -with LA14019_0; -procedure LA14019_1 (Test_val : in out integer) is - arr : array (1..5) of integer; - sum : integer := 0; - temp_val : integer := 0; -begin - arr(1) := Test_val; - for i in 2..arr'last loop - temp_val := arr(i-1); - LA14019_0 (temp_val); - arr(i) := temp_val; - end loop; - for i in 1..arr'last loop - sum := sum + arr(i); - end loop; - Test_val := sum; -end LA14019_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140193.a b/gcc/testsuite/ada/acats/tests/l/la140193.a deleted file mode 100644 index 717cc633ba7..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140193.a +++ /dev/null @@ -1,64 +0,0 @@ --- LA140193.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140192.AM. --- --- TEST DESCRIPTION: --- See LA140192.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140192.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140190.A --- LA140191.A --- LA140192.AM --- -> LA140193.A --- --- PASS/FAIL CRITERIA: --- See LA140192.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008P baseline version --- 23 JUN 95 SAIC Initial version --- 29 JAN 96 SAIC First revision after review --- 17 NOV 96 SAIC Modified unit names and prologue to conform --- to coding conventions. --- ---! - -procedure LA14019_0 (Param : in out integer); - - -procedure LA14019_0 (Param : in out integer) is - Local_array : array (1..10) of float := (others => 0.0); - Local_var : integer := 0; - TC_var : constant integer := -9; - -begin - Param := (1 + Param) * 2; -end LA14019_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140200.a b/gcc/testsuite/ada/acats/tests/l/la140200.a deleted file mode 100644 index 9adf75e67bf..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140200.a +++ /dev/null @@ -1,76 +0,0 @@ --- LA140200.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140202.AM. --- --- TEST DESCRIPTION: --- See LA140202.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140202.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140200.A --- LA140201.A --- LA140202.AM --- LA140203.A --- --- PASS/FAIL CRITERIA: --- See LA140202.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008Q baseline version --- 23 JUN 95 SAIC Initial version --- 29 FEB 96 SAIC First revision after review --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- Reworded objective. Moved instance to --- library-level and redesigned to use generic --- formal function. Fixed arithmetic errors. --- ---! - -package LA14020_0 is - - subtype apples is integer range 0..100; - subtype oranges is integer range 0..200; - - type Fruit_Basket is tagged record - App : apples; - Ora : oranges; - end record; - -end LA14020_0; - - --==================================================================-- - -package LA14020_0.LA14020_1 is - - type Bigger_Basket is new Fruit_Basket with record - Total : integer; - end record; - -end LA14020_0.LA14020_1; diff --git a/gcc/testsuite/ada/acats/tests/l/la140201.a b/gcc/testsuite/ada/acats/tests/l/la140201.a deleted file mode 100644 index 66822553207..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140201.a +++ /dev/null @@ -1,71 +0,0 @@ --- LA140201.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140202.AM. --- --- TEST DESCRIPTION: --- See LA140202.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140202.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140200.A --- -> LA140201.A --- LA140202.AM --- LA140203.A --- --- PASS/FAIL CRITERIA: --- See LA140202.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008Q baseline version --- 23 JUN 95 SAIC Initial version --- 29 FEB 96 SAIC First revision after review --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- Reworded objective. Moved instance to --- library-level and redesigned to use generic --- formal function. Fixed arithmetic errors. --- ---! - -with LA14020_0; -generic - type Basket is new LA14020_0.Fruit_Basket with private; -function LA14020_2 (Left, Right : Basket) return Basket; - - --==================================================================-- - -function LA14020_2 (Left, Right : Basket) return Basket is - Result : Basket; -begin - Result.App := Left.App + Left.App; - Result.Ora := Right.Ora + Right.Ora; - -- wrong algorithm, to be corrected later - - return Result; -end LA14020_2; diff --git a/gcc/testsuite/ada/acats/tests/l/la140203.a b/gcc/testsuite/ada/acats/tests/l/la140203.a deleted file mode 100644 index f2965b407c4..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140203.a +++ /dev/null @@ -1,71 +0,0 @@ --- LA140203.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140202.AM. --- --- TEST DESCRIPTION: --- See LA140202.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140202.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140200.A --- LA140201.A --- LA140202.AM --- -> LA140203.A --- --- PASS/FAIL CRITERIA: --- See LA140202.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008Q baseline version --- 23 JUN 95 SAIC Initial version --- 29 FEB 96 SAIC First revision after review --- 12 DEC 96 SAIC Reorganized to permit automatic recompilation. --- Reworded objective. Moved instance to --- library-level and redesigned to use generic --- formal function. Fixed arithmetic errors. --- ---! - -with LA14020_0; -generic - type Basket is new LA14020_0.Fruit_Basket with private; -function LA14020_2 (Left, Right : Basket) return Basket; - - --==================================================================-- - -function LA14020_2 (Left, Right : Basket) return Basket is - Result : Basket; -begin - Result.App := Left.App + Right.App; - Result.Ora := Left.Ora + Right.Ora; - -- correct algorithm - - return Result; -end LA14020_2; diff --git a/gcc/testsuite/ada/acats/tests/l/la140210.a b/gcc/testsuite/ada/acats/tests/l/la140210.a deleted file mode 100644 index ab3ad5f776a..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140210.a +++ /dev/null @@ -1,69 +0,0 @@ --- LA140210.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140211.AM. --- --- TEST DESCRIPTION: --- See LA140211.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140211.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140210.A --- LA140211.AM --- LA140212.A --- --- PASS/FAIL CRITERIA: --- See LA140211.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -generic - type swap_type is private; - type int_type is range <>; - times : int_type :=1; -package LA14021_0 is - procedure swap (this, for_that : in out swap_type); -end LA14021_0; - ---------------------------------------------------------- - -package body LA14021_0 is - procedure swap (this, for_that : in out swap_type) is - temp : swap_type; - begin - for i in int_type'first..times loop - temp := this; - this := for_that; - for_that := temp; - end loop; - end swap; -end LA14021_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140212.a b/gcc/testsuite/ada/acats/tests/l/la140212.a deleted file mode 100644 index 0c689b9996a..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140212.a +++ /dev/null @@ -1,74 +0,0 @@ --- LA140212.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140211.AM. --- --- TEST DESCRIPTION: --- See LA140211.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140211.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140210.A --- LA140211.AM --- -> LA140212.A --- --- PASS/FAIL CRITERIA: --- See LA140211.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008R baseline version --- 23 JUN 95 SAIC Initial version --- 18 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. --- ---! - -generic - type swap_type is private; - type int_type is range <>; - times : int_type :=2; --this line contains the change -package LA14021_0 is - procedure swap (this, for_that : in out swap_type); -end LA14021_0; - ---------------------------------------------------------- - -package body LA14021_0 is - procedure swap (this, for_that : in out swap_type) is - temp : swap_type; - begin - for i in int_type'first..times loop - temp := this; - this := for_that; - for_that := temp; - end loop; - end swap; -end LA14021_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140220.a b/gcc/testsuite/ada/acats/tests/l/la140220.a deleted file mode 100644 index c5e4c6575e2..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140220.a +++ /dev/null @@ -1,64 +0,0 @@ --- LA140220.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140221.AM. --- --- TEST DESCRIPTION: --- See LA140221.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140221.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140220.A --- LA140221.AM --- LA140222.A --- --- PASS/FAIL CRITERIA: --- See LA140221.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -generic - type stuff is private; - type ptr is access stuff; - type return_result is range <>; - delta_val : return_result := 1; -procedure LA14022_0 (pointer : in out ptr; - result : in out return_result); - -------------------------------------------------------- - -procedure LA14022_0 (pointer : in out ptr; - result : in out return_result) is -begin - pointer := new stuff; - result := result + delta_val; -end LA14022_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140222.a b/gcc/testsuite/ada/acats/tests/l/la140222.a deleted file mode 100644 index 424236b3efc..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140222.a +++ /dev/null @@ -1,69 +0,0 @@ --- LA140222.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140221.AM. --- --- TEST DESCRIPTION: --- See LA140221.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140221.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140220.A --- LA140221.AM --- -> LA140222.A --- --- PASS/FAIL CRITERIA: --- See LA140221.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008S baseline version --- 23 JUN 95 SAIC Initial version --- 18 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. --- ---! - -generic - type stuff is private; - type ptr is access stuff; - type return_result is range <>; - delta_val : return_result := 1; -procedure LA14022_0 (pointer : in out ptr; - result : in out return_result); - -------------------------------------------------------- - -procedure LA14022_0 (pointer : in out ptr; - result : in out return_result) is -begin - pointer := null; - result := result + return_result'first; -end LA14022_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140240.a b/gcc/testsuite/ada/acats/tests/l/la140240.a deleted file mode 100644 index e5541006ec1..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140240.a +++ /dev/null @@ -1,61 +0,0 @@ --- LA140240.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140242.AM. --- --- TEST DESCRIPTION: --- See LA140242.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140242.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140240.A --- LA140241.A --- LA140242.AM --- LA140243.A --- --- PASS/FAIL CRITERIA: --- See LA140242.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008U baseline version --- 29 JUN 95 SAIC Initial version --- 18 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -generic - Local_max : positive; - type Thing is private; -package LA14024_0 is - type Goodies is tagged - record - X, Y : integer := 100; - end record; -end LA14024_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140241.a b/gcc/testsuite/ada/acats/tests/l/la140241.a deleted file mode 100644 index dde3b3db520..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140241.a +++ /dev/null @@ -1,55 +0,0 @@ --- LA140241.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140242.AM. --- --- TEST DESCRIPTION: --- See LA140242.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140242.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140240.A --- -> LA140241.A --- LA140242.AM --- LA140243.A --- --- PASS/FAIL CRITERIA: --- See LA140242.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008U baseline version --- 29 JUN 95 SAIC Initial version --- 18 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -with LA14024_0; - -package LA14024_1 is new LA14024_0 (100, integer); diff --git a/gcc/testsuite/ada/acats/tests/l/la140243.a b/gcc/testsuite/ada/acats/tests/l/la140243.a deleted file mode 100644 index 98b03438bc4..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140243.a +++ /dev/null @@ -1,61 +0,0 @@ --- LA140243.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140242.AM. --- --- TEST DESCRIPTION: --- See LA140242.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140242.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140240.A --- LA140241.A --- LA140242.AM --- -> LA140243.A --- --- PASS/FAIL CRITERIA: --- See LA140242.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008U baseline version --- 29 JUN 95 SAIC Initial version --- 18 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -generic - Local_max : positive; - type Thing is private; -package LA14024_0 is - type Goodies is tagged - record - Y, X : integer := -10; - end record; -end LA14024_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140250.a b/gcc/testsuite/ada/acats/tests/l/la140250.a deleted file mode 100644 index 44477df4d70..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140250.a +++ /dev/null @@ -1,56 +0,0 @@ --- LA140250.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140251.AM. --- --- TEST DESCRIPTION: --- See LA140251.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140251.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140050.A --- LA140051.AM --- LA140052.A --- --- PASS/FAIL CRITERIA: --- See LA140251.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -package LA14025_0 is - subtype byte is integer range 0..511; - byte_val : constant byte := 128; - type Data_rec is tagged record - Id : integer := 1; - Val: byte := byte_val; - end record; -end LA14025_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140252.a b/gcc/testsuite/ada/acats/tests/l/la140252.a deleted file mode 100644 index 2fce76cea6f..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140252.a +++ /dev/null @@ -1,59 +0,0 @@ --- LA140252.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140251.AM. --- --- TEST DESCRIPTION: --- See LA140251.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140251.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140050.A --- LA140051.AM --- -> LA140052.A --- --- PASS/FAIL CRITERIA: --- See LA140251.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008V baseline version --- 06 JUL 95 SAIC Initial version --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. --- ---! - -package LA14025_0 is - subtype byte is integer range 0..511; - byte_val : constant byte := 64; - type Data_rec is tagged record - Id : integer := 1; - Val: byte := byte_val; - end record; -end LA14025_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140260.a b/gcc/testsuite/ada/acats/tests/l/la140260.a deleted file mode 100644 index fae1736673b..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140260.a +++ /dev/null @@ -1,98 +0,0 @@ --- LA140260.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140262.AM. --- --- TEST DESCRIPTION: --- See LA140262.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140262.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140260.A --- LA140261.A --- LA140262.AM --- LA140263.A --- --- PASS/FAIL CRITERIA: --- See LA140262.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -package LA14026_0 is - type basic_rec is tagged - record - null; - end record; -end LA14026_0; - ---------------------------------------------------------- - -with LA14026_0; -generic - type data_type is private; - type serial_type is range <>; - serial_init : serial_type; -package LA14026_1 is - - pragma Elaborate_Body; - - function get_serial_num return serial_type; - - type node_type is new LA14026_0.basic_rec with - record - data_field : data_type; - serial_no : serial_type := get_serial_num; - end record; -end LA14026_1; - ---------------------------------------------------------- - -package body LA14026_1 is - serial : serial_type := serial_init; - function get_serial_num return serial_type is - begin - serial := serial + 1; - return serial; - end; -end LA14026_1; - ---------------------------------------------------------- - -package LA14026_2 is - subtype serial_type is integer range 0..5; - subtype data_type is integer range 0..100; - - type data_rec is record - F1 : data_type := data_type'first; - F2 : data_type := data_type'last; - end record; -end LA14026_2; diff --git a/gcc/testsuite/ada/acats/tests/l/la140261.a b/gcc/testsuite/ada/acats/tests/l/la140261.a deleted file mode 100644 index 73cd334ed42..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140261.a +++ /dev/null @@ -1,52 +0,0 @@ --- LA140261.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140262.AM. --- --- TEST DESCRIPTION: --- See LA140262.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140262.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140260.A --- -> LA140261.A --- LA140262.AM --- LA140263.A --- --- PASS/FAIL CRITERIA: --- See LA140262.AM. --- --- CHANGE HISTORY: --- 07 DEC 96 SAIC ACVC 2.1: Initial version. --- ---! - -with LA14026_2, LA14026_1; -package LA14026_3 is new LA14026_1 (LA14026_2.data_rec, - LA14026_2.serial_type, 0); diff --git a/gcc/testsuite/ada/acats/tests/l/la140263.a b/gcc/testsuite/ada/acats/tests/l/la140263.a deleted file mode 100644 index c0224894d2d..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140263.a +++ /dev/null @@ -1,57 +0,0 @@ --- LA140263.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140262.AM. --- --- TEST DESCRIPTION: --- See LA140262.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140262.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140260.A --- LA140261.A --- LA140262.AM --- -> LA140263.A --- --- PASS/FAIL CRITERIA: --- See LA140262.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5008W baseline version --- 06 JUL 95 SAIC Initial version --- 18 NOV 96 SAIC Modified unit names and prologue to conform --- to coding conventions. --- 07 DEC 96 SAIC Modified prologue to reflect new test --- file organization. --- ---! - -with LA14026_2, LA14026_1; -package LA14026_3 is new LA14026_1 (LA14026_2.data_rec, - LA14026_2.serial_type, 3); diff --git a/gcc/testsuite/ada/acats/tests/l/la140270.a b/gcc/testsuite/ada/acats/tests/l/la140270.a deleted file mode 100644 index dab574cd682..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140270.a +++ /dev/null @@ -1,56 +0,0 @@ --- LA140270.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140272.AM. --- --- TEST DESCRIPTION: --- See LA140272.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140272.AM. --- --- TEST FILES: --- This test consists of the following files: --- -> LA140270.A --- LA140271.A --- LA140272.AM --- LA140273.A --- --- PASS/FAIL CRITERIA: --- See LA140272.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007O baseline version --- 28 JUL 95 SAIC Initial version --- 29 JAN 96 SAIC First revision after review --- 18 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -package LA14027_0 is - Sample_value : integer := 100; -end LA14027_0; diff --git a/gcc/testsuite/ada/acats/tests/l/la140271.a b/gcc/testsuite/ada/acats/tests/l/la140271.a deleted file mode 100644 index 703b1b8aee1..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140271.a +++ /dev/null @@ -1,93 +0,0 @@ --- LA140271.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140272.AM. --- --- TEST DESCRIPTION: --- See LA140272.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140272.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140270.A --- -> LA140271.A --- LA140272.AM --- LA140273.A --- --- PASS/FAIL CRITERIA: --- See LA140272.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007O baseline version --- 28 JUL 95 SAIC Initial version --- 29 JAN 96 SAIC First revision after review --- 18 NOV 96 SAIC Modified unit names and prologue to conform --- to coding conventions. Removed loop from --- task body to prevent hang. --- ---! - -package LA14027_1 is - procedure Random (Number : out integer); -end LA14027_1; - - -------------------------------------------- - -package body LA14027_1 is - task LA14027_2 is - entry Get (Value : out integer); - end LA14027_2; - - task body LA14027_2 is separate; - - procedure Random (Number : out integer) is - begin - -- get a random number from sampling task - LA14027_2.Get (Number); - -- massage it - Number := Number + 10; - -- and return it - end; -end LA14027_1; - - -------------------------------------------- - -with LA14027_0; -- must resolve this - -separate (LA14027_1) - -task body LA14027_2 is - begin - select - accept Get (Value : out integer) do - -- sample some random physical process - Value := LA14027_0.Sample_value; - -- and return it - end Get; - end select; -end LA14027_2; diff --git a/gcc/testsuite/ada/acats/tests/l/la140273.a b/gcc/testsuite/ada/acats/tests/l/la140273.a deleted file mode 100644 index 0e535f10c62..00000000000 --- a/gcc/testsuite/ada/acats/tests/l/la140273.a +++ /dev/null @@ -1,58 +0,0 @@ --- LA140273.A --- --- Grant of Unlimited Rights --- --- Under contracts F33600-87-D-0337, F33600-84-D-0280, MDA903-79-C-0687, --- F08630-91-C-0015, and DCA100-97-D-0025, the U.S. Government obtained --- unlimited rights in the software and documentation contained herein. --- Unlimited rights are defined in DFAR 252.227-7013(a)(19). By making --- this public release, the Government intends to confer upon all --- recipients unlimited rights equal to those held by the Government. --- These rights include rights to use, duplicate, release or disclose the --- released technical data and computer software in whole or in part, in --- any manner and for any purpose whatsoever, and to have or permit others --- to do so. --- --- DISCLAIMER --- --- ALL MATERIALS OR INFORMATION HEREIN RELEASED, MADE AVAILABLE OR --- DISCLOSED ARE AS IS. THE GOVERNMENT MAKES NO EXPRESS OR IMPLIED --- WARRANTY AS TO ANY MATTER WHATSOEVER, INCLUDING THE CONDITIONS OF THE --- SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE --- OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A --- PARTICULAR PURPOSE OF SAID MATERIAL. ---* --- --- OBJECTIVE: --- See LA140272.AM. --- --- TEST DESCRIPTION: --- See LA140272.AM. --- --- SPECIAL REQUIREMENTS: --- See LA140272.AM. --- --- TEST FILES: --- This test consists of the following files: --- LA140270.A --- LA140271.A --- LA140272.AM --- -> LA140273.A --- --- PASS/FAIL CRITERIA: --- See LA140272.AM. --- --- CHANGE HISTORY: --- 01 MAY 95 ACVC 1.12 LA5007O baseline version --- 28 JUL 95 SAIC Initial version --- 29 JAN 96 SAIC First revision after review --- 18 NOV 96 SAIC Modified prologue to conform --- to coding conventions. --- ---! - -package LA14027_0 is - New_var : integer := 100; - Local_array : array (1..51) of integer; - Sample_value : constant integer := -10; -end LA14027_0; |