From: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed, 2 Dec 2020 15:40:32 +0000 (+0100)
Subject: Upgrade ACATS testsuite to latest ACATS 2.6
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f0a2d11f8ad85bfdedb79bc47bd34bd08e38f81f;p=gcc.git

Upgrade ACATS testsuite to latest ACATS 2.6

This upgrades the ACATS tesuite present in ada/acats from 2.5 to latest 2.6,
removing 3 tests and adding 11 tests, some of them written very recently.

gcc/testsuite/ChangeLog:
	* ada/acats/support/acats25.lst: Delete.
	* ada/acats/support/acats26.lst: New file.
	* ada/acats/support/fcndecl.ada: Minor tweak.
	* ada/acats/support/impdef.a: Add commentary.
	* ada/acats/support/impdefg.a (Negative_Zero return): Simplify.
	* ada/acats/support/macro.dfs (TASK_STORAGE_SIZE): Bump.
	* ada/acats/support/repbody.ada: Upgrade to ACATS 2.6.
	* ada/acats/support/tctouch.ada: Likewise.
	* ada/acats/tests/c3/c352001.a: New file.
	* ada/acats/tests/c4/c433001.a: Correct error messages.
	* ada/acats/tests/c4/c453001.a: New file.
	* ada/acats/tests/c4/c45622a.ada: Delete.
	* ada/acats/tests/c4/c45624a.ada: Likewise.
	* ada/acats/tests/c4/c45624b.ada: Likewise.
	* ada/acats/tests/c4/c460013.a: New file.
	* ada/acats/tests/c4/c460014.a: Likewise.
	* ada/acats/tests/c6/c620001.a: Likewise.
	* ada/acats/tests/c6/c620002.a: Likewise.
	* ada/acats/tests/c7/c761006.a: Redo Unchecked_Deallocation case.
	* ada/acats/tests/c9/c96004a.ada: Adjust for Ada 2005.
	* ada/acats/tests/c9/c96007a.ada: Likewise.
	* ada/acats/tests/cb/cb41004.a: Adjust for AI95-0044.
	* ada/acats/tests/cc/cc3016f.ada: Minor tweak.
	* ada/acats/tests/cd/cd30011.a: New file.
	* ada/acats/tests/cd/cd30012.a: Likewise.
	* ada/acats/tests/cd/cd90001.a: Fix comparison.
	* ada/acats/tests/cxa/cxa3004.a: New file.
	* ada/acats/tests/cxa/cxa5013.a: Likewise.
	* ada/acats/tests/cxa/cxac005.a: Adjust for return-by-reference.
	* ada/acats/tests/cxb/cxb30061.am: New file.
	* ada/acats/tests/cxf/cxf2001.a: Fix failure message.
---

diff --git a/gcc/testsuite/ada/acats/support/acats25.lst b/gcc/testsuite/ada/acats/support/acats25.lst
deleted file mode 100644
index 0133ed378a2..00000000000
--- a/gcc/testsuite/ada/acats/support/acats25.lst
+++ /dev/null
@@ -1,4308 +0,0 @@
-a22006b.ada
-a22006c.ada
-a22006d.ada
-a26007a.tst
-a27003a.ada
-a29003a.ada
-a2a031a.ada
-a33003a.ada
-a34017c.ada
-a35101b.ada
-a35402a.ada
-a35801f.ada
-a35902c.ada
-a38106d.ada
-a38106e.ada
-a49027a.ada
-a49027b.ada
-a49027c.ada
-a54b01a.ada
-a54b02a.ada
-a55b12a.ada
-a55b13a.ada
-a55b14a.ada
-a71004a.ada
-a73001i.ada
-a73001j.ada
-a74105b.ada
-a74106a.ada
-a74106b.ada
-a74106c.ada
-a74205e.ada
-a74205f.ada
-a83009a.ada
-a83009b.ada
-a83a02a.ada
-a83a02b.ada
-a83a06a.ada
-a83a08a.ada
-a83c01c.ada
-a83c01h.ada
-a83c01i.ada
-a85007d.ada
-a85013b.ada
-a87b59a.ada
-a95001c.ada
-a95074d.ada
-a97106a.ada
-a99006a.ada
-aa2010a.ada
-aa2012a.ada
-acats25.lst
-ac1015b.ada
-ac3106a.ada
-ac3206a.ada
-ac3207a.ada
-ad7001b.ada
-ad7001c0.ada
-ad7001c1.ada
-ad7001d0.ada
-ad7001d1.ada
-ad7006a.ada
-ad7101a.ada
-ad7101c.ada
-ad7102a.ada
-ad7103a.ada
-ad7103c.ada
-ad7104a.ada
-ad7201a.ada
-ad7203b.ada
-ad7205b.ada
-ad8011a.tst
-ada101a.ada
-ae2113a.ada
-ae2113b.ada
-ae3002g.ada
-ae3101a.ada
-ae3702a.ada
-ae3709a.ada
-b22001a.tst
-b22001b.tst
-b22001c.tst
-b22001d.tst
-b22001e.tst
-b22001f.tst
-b22001g.tst
-b22001h.ada
-b22001i.tst
-b22001j.tst
-b22001k.tst
-b22001l.tst
-b22001m.tst
-b22001n.tst
-b23002a.ada
-b23004a.ada
-b23004b.ada
-b24001a.ada
-b24001b.ada
-b24001c.ada
-b24005a.ada
-b24005b.ada
-b24007a.ada
-b24009a.ada
-b24009b.ada
-b24104a.ada
-b24204a.ada
-b24204b.ada
-b24204c.ada
-b24204d.ada
-b24204e.ada
-b24204f.ada
-b24205a.ada
-b24206a.ada
-b24206b.ada
-b24211b.ada
-b25002a.ada
-b25002b.ada
-b26001a.ada
-b26002a.ada
-b26005a.ada
-b28001a.ada
-b28001b.ada
-b28001c.ada
-b28001d.ada
-b28001e.ada
-b28001f.ada
-b28001g.ada
-b28001h.ada
-b28001i.ada
-b28001j.ada
-b28001k.ada
-b28001l.ada
-b28001m.ada
-b28001n.ada
-b28001o.ada
-b28001p.ada
-b28001q.ada
-b28001r.ada
-b28001s.ada
-b28001t.ada
-b28001u.ada
-b28001v.ada
-b28001w.ada
-b29001a.ada
-b2a003a.ada
-b2a003b.ada
-b2a003c.ada
-b2a003d.ada
-b2a003e.ada
-b2a003f.ada
-b2a005a.ada
-b2a005b.ada
-b2a007a.ada
-b2a010a.ada
-b2a021a.ada
-b32101a.ada
-b32103a.ada
-b32104a.ada
-b32106a.ada
-b32201a.ada
-b32202a.ada
-b32202b.ada
-b32202c.ada
-b330001.a
-b33001a.ada
-b33101a.ada
-b33102a.ada
-b33102b.ada
-b33102c.ada
-b33102d.ada
-b33102e.ada
-b33201a.ada
-b33201b.ada
-b33201c.ada
-b33201d.ada
-b33201e.ada
-b33204a.ada
-b33205a.ada
-b33302a.ada
-b34001b.ada
-b34001e.ada
-b34002b.ada
-b34003b.ada
-b34004b.ada
-b34005b.ada
-b34005e.ada
-b34005h.ada
-b34005k.ada
-b34005n.ada
-b34005q.ada
-b34005t.ada
-b34006b.ada
-b34006e.ada
-b34006h.ada
-b34006k.ada
-b34007b.ada
-b34007e.ada
-b34007h.ada
-b34007k.ada
-b34007n.ada
-b34007q.ada
-b34007t.ada
-b34008b.ada
-b34009b.ada
-b34009e.ada
-b34009h.ada
-b34009k.ada
-b34011a.ada
-b34014b.ada
-b34014d.ada
-b34014f.ada
-b34014i.ada
-b34014m.ada
-b34014o.ada
-b34014q.ada
-b34014s.ada
-b34014v.ada
-b34014z.ada
-b35004a.ada
-b35101a.ada
-b35103a.ada
-b35103b.ada
-b35302a.ada
-b354001.a
-b35401a.ada
-b35401b.ada
-b35403a.ada
-b35501a.ada
-b35501b.ada
-b35506a.ada
-b35506b.ada
-b35506c.ada
-b35506d.ada
-b35701a.ada
-b35709a.ada
-b35901a.ada
-b35901c.ada
-b35901d.ada
-b35a01a.ada
-b35a08a.ada
-b360001.a
-b36001a.ada
-b36002a.ada
-b36101a.ada
-b36102a.ada
-b36103a.ada
-b36105c.dep
-b36171a.ada
-b36171b.ada
-b36171c.ada
-b36171d.ada
-b36171e.ada
-b36171f.ada
-b36171g.ada
-b36171h.ada
-b36171i.ada
-b36201a.ada
-b36307a.ada
-b370001.a
-b370002.a
-b37004a.ada
-b37004b.ada
-b37004c.ada
-b37004d.ada
-b37004e.ada
-b37004f.ada
-b37004g.ada
-b3710010.a
-b3710011.a
-b3710012.a
-b3710013.a
-b3710014.am
-b37101a.ada
-b37102a.ada
-b37104a.ada
-b37106a.ada
-b37201a.ada
-b37201b.ada
-b37203a.ada
-b37301i.ada
-b37301j.ada
-b37302a.ada
-b37303a.ada
-b37309b.ada
-b37310b.ada
-b37311a.ada
-b37401a.ada
-b37409b.ada
-b380001.a
-b38003a.ada
-b38003b.ada
-b38003c.ada
-b38003d.ada
-b38008a.ada
-b38008b.ada
-b38009a.ada
-b38009d.ada
-b38101a.ada
-b38101b.ada
-b38101c.ada
-b38103a.ada
-b38103b.ada
-b38103c0.ada
-b38103c1.ada
-b38103c2.ada
-b38103c3.ada
-b38103d.ada
-b38103e0.ada
-b38103e1.ada
-b38105a.ada
-b38105b.ada
-b38203a.ada
-b390001.a
-b391001.a
-b391002.a
-b391003.a
-b391004.a
-b392001.a
-b392002.a
-b392003.a
-b392004.a
-b392005.a
-b392006.a
-b392007.a
-b392008.a
-b392009.a
-b392010.a
-b392011.a
-b393001.a
-b393002.a
-b393003.a
-b393004.a
-b393005.a
-b393006.a
-b393007.a
-b3a0001.a
-b3a0002.a
-b3a0003.a
-b3a0004.a
-b3a2002.a
-b3a2003.a
-b3a2004.a
-b3a2005.a
-b3a2006.a
-b3a2007.a
-b3a2008.a
-b3a2009.a
-b3a2010.a
-b3a2011.a
-b3a2012.a
-b3a2013.a
-b3a2014.a
-b3a2015.a
-b3a2016.a
-b41101a.ada
-b41101c.ada
-b41201a.ada
-b41201c.ada
-b41202c.ada
-b41202d.ada
-b41324b.ada
-b41325b.ada
-b41327b.ada
-b420001.a
-b430001.a
-b43001m.ada
-b43002d.ada
-b43002e.ada
-b43002f.ada
-b43002g.ada
-b43002h.ada
-b43002i.ada
-b43002j.ada
-b43002k.ada
-b43005a.ada
-b43005b.ada
-b43005f.ada
-b43101a.ada
-b43102a.ada
-b43102b.ada
-b43105c.ada
-b43201a.ada
-b43201c.ada
-b43201d.ada
-b43202a.ada
-b43202c.ada
-b43209b.ada
-b43221a.ada
-b43221b.ada
-b43223a.ada
-b44001a.ada
-b44001b.ada
-b44002b.ada
-b44002c.ada
-b44004a.ada
-b44004b.ada
-b44004c.ada
-b44004d.ada
-b44004e.ada
-b45102a.ada
-b45116a.ada
-b45121a.ada
-b45204a.ada
-b45205a.ada
-b45206c.ada
-b45207a.ada
-b45207b.ada
-b45207c.ada
-b45207d.ada
-b45207g.ada
-b45207h.ada
-b45207i.ada
-b45207j.ada
-b45207m.ada
-b45207n.ada
-b45207o.ada
-b45207p.ada
-b45207s.ada
-b45207t.ada
-b45207u.ada
-b45207v.ada
-b45208a.ada
-b45208b.ada
-b45208c.ada
-b45208g.ada
-b45208h.ada
-b45208i.ada
-b45208m.ada
-b45208n.ada
-b45208s.ada
-b45208t.ada
-b45209a.ada
-b45209b.ada
-b45209c.ada
-b45209d.ada
-b45209e.ada
-b45209f.ada
-b45209g.ada
-b45209h.ada
-b45209i.ada
-b45209j.ada
-b45209k.ada
-b45221a.ada
-b45261a.ada
-b45261b.ada
-b45261c.ada
-b45261d.ada
-b45301a.ada
-b45301b.ada
-b45301c.ada
-b45302a.ada
-b45341a.ada
-b455002.a
-b45501a.ada
-b45501b.ada
-b45501c.ada
-b45522a.ada
-b45537a.ada
-b45601a.ada
-b45625a.ada
-b45661a.ada
-b460001.a
-b460002.a
-b460004.a
-b460005.a
-b46002a.ada
-b46003a.ada
-b46004a.ada
-b46004b.ada
-b46004c.ada
-b46004d.ada
-b46004e.ada
-b46005a.ada
-b47001a.ada
-b480001.a
-b48001a.ada
-b48001b.ada
-b48002a.ada
-b48002b.ada
-b48002c.ada
-b48002d.ada
-b48002e.ada
-b48002g.ada
-b48003a.ada
-b48003b.ada
-b48003c.ada
-b48003d.ada
-b48003e.ada
-b490001.a
-b490002.a
-b49002a.ada
-b49004a.ada
-b49005a.ada
-b49007a.ada
-b49007b.ada
-b49008a.ada
-b49008c.ada
-b49009b.ada
-b49009c.ada
-b49010a.ada
-b49011a.ada
-b4a010c.ada
-b4a016a.ada
-b51001a.ada
-b51004b.ada
-b51004c.ada
-b52002a.ada
-b52002b.ada
-b52002c.ada
-b52002d.ada
-b52002e.ada
-b52002f.ada
-b52002g.ada
-b52004a.ada
-b52004b.ada
-b52004c.ada
-b52004d.dep
-b52004e.dep
-b53001a.ada
-b53001b.ada
-b53002a.ada
-b53002b.ada
-b53009a.ada
-b53009b.ada
-b53009c.ada
-b54a01b.ada
-b54a01f.ada
-b54a01g.ada
-b54a01l.ada
-b54a05a.ada
-b54a05b.ada
-b54a10a.ada
-b54a12a.ada
-b54a20a.ada
-b54a21a.ada
-b54a25a.ada
-b54a60a.ada
-b54a60b.ada
-b54b01b.tst
-b54b01c.ada
-b54b02b.ada
-b54b02c.ada
-b54b02d.ada
-b54b04a.ada
-b54b04b.ada
-b54b05a.ada
-b54b06a.ada
-b55a01a.ada
-b55a01d.ada
-b55a01e.ada
-b55a01j.ada
-b55a01k.ada
-b55a01l.ada
-b55a01n.ada
-b55a01o.ada
-b55a01t.ada
-b55a01u.ada
-b55a01v.ada
-b55b01a.ada
-b55b01b.ada
-b55b09b.ada
-b55b09c.dep
-b55b09d.dep
-b55b12b.ada
-b55b12c.ada
-b55b17a.ada
-b55b17b.ada
-b55b17c.ada
-b55b18a.ada
-b56001a.ada
-b56001d.ada
-b56001e.ada
-b56001f.ada
-b56001g.ada
-b56001h.ada
-b57001a.ada
-b57001b.ada
-b57001c.ada
-b57001d.ada
-b58001a.ada
-b58002a.ada
-b58002b.ada
-b58002c.ada
-b58003a.ada
-b58003b.ada
-b59001a.ada
-b59001c.ada
-b59001d.ada
-b59001e.ada
-b59001f.ada
-b59001g.ada
-b59001h.ada
-b59001i.ada
-b610001.a
-b61001f.ada
-b61005a.ada
-b61006a.ada
-b61011a.ada
-b62001a.ada
-b62001b.ada
-b62001c.ada
-b62001d.ada
-b63001a.ada
-b63001b.ada
-b63005a.ada
-b63005b.ada
-b63006a.ada
-b63009a.ada
-b63009b.ada
-b63009c0.ada
-b63009c1.ada
-b63009c2.ada
-b63009c3.ada
-b63103a.ada
-b64002a.ada
-b64002c.ada
-b64003a.ada
-b64004a.ada
-b64004b.ada
-b64004c.ada
-b64004d.ada
-b64004e.ada
-b64004f.ada
-b641001.a
-b64101a.ada
-b64201a.ada
-b65001a.ada
-b65002a.ada
-b65002b.ada
-b660001.a
-b660002.a
-b66001a.ada
-b66001b.ada
-b66001c.ada
-b66001d.ada
-b67001a.ada
-b67001b.ada
-b67001c.ada
-b67001d.ada
-b67001h.ada
-b67001i.ada
-b67001j.ada
-b67001k.ada
-b67004a.ada
-b71001a.ada
-b71001b.ada
-b71001c.ada
-b71001d.ada
-b71001f.ada
-b71001g.ada
-b71001h.ada
-b71001i.ada
-b71001j.ada
-b71001l.ada
-b71001m.ada
-b71001n.ada
-b71001o.ada
-b71001p.ada
-b71001r.ada
-b71001t.ada
-b71001u.ada
-b71001v.ada
-b7200010.a
-b7200011.a
-b7200012.a
-b7200013.a
-b7200014.a
-b7200015.a
-b7200016.a
-b730001.a
-b730002.a
-b730003.a
-b730004.a
-b730005.a
-b7300060.a
-b7300061.a
-b7300062.a
-b7300063.am
-b73001a.ada
-b73001b.ada
-b73001c.ada
-b73001d.ada
-b73001e.ada
-b73001f.ada
-b73001g.ada
-b73001h.ada
-b73004a.ada
-b73004b0.ada
-b73004b1.ada
-b73004b2.ada
-b7310010.a
-b7310011.a
-b7310012.a
-b7310013.a
-b7310014.a
-b7310015.a
-b7310016.am
-b731a01.a
-b731a02.a
-b740001.a
-b74001a.ada
-b74001b.ada
-b74101a.ada
-b74101b.ada
-b74103a.ada
-b74103d.ada
-b74103e.ada
-b74103g.ada
-b74103i.ada
-b74104a.ada
-b74105a.ada
-b74105c.ada
-b74201a.ada
-b74202a.ada
-b74202b.ada
-b74202c.ada
-b74202d.ada
-b74203b.ada
-b74203c.ada
-b74203d.ada
-b74203e.ada
-b74205a.ada
-b74207a.ada
-b74304a.ada
-b74304b.ada
-b74304c.ada
-b74404a.ada
-b74404b.ada
-b74409a.ada
-b810001.a
-b830001.a
-b8300020.a
-b8300021.a
-b8300022.a
-b8300023.a
-b8300024.a
-b8300025.am
-b83001a.ada
-b83003a.ada
-b83003b0.ada
-b83003b1.ada
-b83003b2.ada
-b83003b3.ada
-b83003b4.ada
-b83003c.ada
-b83004a.ada
-b83004b0.ada
-b83004b1.ada
-b83004b2.ada
-b83004b3.ada
-b83004c0.ada
-b83004c1.ada
-b83004c2.ada
-b83004d0.ada
-b83004d1.ada
-b83004d2.ada
-b83004d3.ada
-b83006a.ada
-b83006b.ada
-b83008a.ada
-b83008b.ada
-b83011a.ada
-b83023b.ada
-b83024b.ada
-b83024f0.ada
-b83024f1.ada
-b83024f2.ada
-b83024f3.ada
-b83026b.ada
-b83027b.ada
-b83027d.ada
-b83028b.ada
-b83029b.ada
-b83030b.ada
-b83030d.ada
-b83031b.ada
-b83031d.ada
-b83031f.ada
-b83032b.ada
-b83033b.ada
-b83041e.ada
-b83a01a.ada
-b83a01b.ada
-b83a01c.ada
-b83a05a.ada
-b83a06b.ada
-b83a06h.ada
-b83a07a.ada
-b83a07b.ada
-b83a07c.ada
-b83a08b.ada
-b83a09a.ada
-b83b01a.ada
-b83b02c.ada
-b83e01a.ada
-b83e01b.ada
-b83e01c.ada
-b83e01d.ada
-b83e01e0.ada
-b83e01e1.ada
-b83e01e2.ada
-b83e01e3.ada
-b83e01f0.ada
-b83e01f1.ada
-b83e01f2.ada
-b83e01f3.ada
-b83e01f4.ada
-b83e01f5.ada
-b83e01f6.ada
-b83e11a.ada
-b83f02a.ada
-b83f02b.ada
-b83f02c.ada
-b840001.a
-b84001a.ada
-b84002b.ada
-b84004a.ada
-b84005b.ada
-b84006a.ada
-b84007a.ada
-b84008b.ada
-b85001a.ada
-b85001b.ada
-b85001c.ada
-b85001d.ada
-b85001e.ada
-b85001f.ada
-b85001g.ada
-b85001h.ada
-b85001i.ada
-b85001j.ada
-b85001k.ada
-b85001l.ada
-b85002a.ada
-b85003a.ada
-b85003b.ada
-b85004a.ada
-b85008f.ada
-b85008g.ada
-b85008h.ada
-b85010a.ada
-b85010b.ada
-b85012a.ada
-b85013c.ada
-b85013d.ada
-b85015a.ada
-b8510010.a
-b8510011.a
-b8510012.am
-b86001a0.ada
-b86001a1.ada
-b87b23b.ada
-b87b26a.ada
-b87b48c.ada
-b91001b.ada
-b91001c.ada
-b91001d.ada
-b91001e.ada
-b91001f.ada
-b91001g.ada
-b91002a.ada
-b91002b.ada
-b91002c.ada
-b91002d.ada
-b91002e.ada
-b91002f.ada
-b91002g.ada
-b91002h.ada
-b91002i.ada
-b91002j.ada
-b91002k.ada
-b91002l.ada
-b91003a.ada
-b91003b.ada
-b91003c.ada
-b91003d.ada
-b91003e.ada
-b91004a.ada
-b91005a.ada
-b92001a.ada
-b92001b.ada
-b940001.a
-b940002.a
-b940003.a
-b940004.a
-b940005.a
-b940006.a
-b940007.a
-b95001a.ada
-b95001b.ada
-b95001d.ada
-b95002a.ada
-b95003a.ada
-b95004a.ada
-b95004b.ada
-b95006a.ada
-b95006b.ada
-b95006c.ada
-b95006d.ada
-b95007a.ada
-b95007b.ada
-b95020a.ada
-b95020b0.ada
-b95020b1.ada
-b95020b2.ada
-b95030a.ada
-b95031a.ada
-b95032a.ada
-b95061a.ada
-b95061b.ada
-b95061c.ada
-b95061d.ada
-b95061e.ada
-b95061f.ada
-b95061g.ada
-b95062a.ada
-b95063a.ada
-b95064a.ada
-b95068a.ada
-b95070a.ada
-b95080a.ada
-b95080c.ada
-b95081a.ada
-b95082a.ada
-b95082b.ada
-b95082c.ada
-b95082d.ada
-b95082e.ada
-b95082f.ada
-b95083a.ada
-b95094a.ada
-b95094b.ada
-b95094c.ada
-b951001.a
-b952001.a
-b952002.a
-b952003.a
-b952004.a
-b954001.a
-b954003.a
-b954004.a
-b960001.a
-b96002a.ada
-b97102b.ada
-b97102c.ada
-b97102d.ada
-b97102f.ada
-b97102g.ada
-b97102h.ada
-b97102i.ada
-b97103a.ada
-b97103b.ada
-b97103d.ada
-b97103e.ada
-b97103f.ada
-b97103g.ada
-b97104a.ada
-b97104b.ada
-b97104c.ada
-b97104d.ada
-b97104e.ada
-b97104f.ada
-b97104g.ada
-b97107a.ada
-b97108a.ada
-b97108b.ada
-b97109a.ada
-b97110a.ada
-b97110b.ada
-b97111a.ada
-b97206a.ada
-b97306a.ada
-b99001a.ada
-b99001b.ada
-b99002a.ada
-b99002b.ada
-b99002c.ada
-b99003a.ada
-b9a001a.ada
-b9a001b.ada
-ba1001a0.ada
-ba1001a1.ada
-ba1001a4.ada
-ba1001ac.ada
-ba1001d.ada
-ba1010a0.ada
-ba1010a1.ada
-ba1010a2.ada
-ba1010a3.ada
-ba1010b0.ada
-ba1010b1.ada
-ba1010b2.ada
-ba1010b4.ada
-ba1010b5.ada
-ba1010b6.ada
-ba1010b7.ada
-ba1010b8.ada
-ba1010c0.ada
-ba1010c1.ada
-ba1010c2.ada
-ba1010c3.ada
-ba1010c4.ada
-ba1010c5.ada
-ba1010c6.ada
-ba1010d0.ada
-ba1010d1.ada
-ba1010d2.ada
-ba1010d3.ada
-ba1010e0.ada
-ba1010e1.ada
-ba1010e2.ada
-ba1010e3.ada
-ba1010e4.ada
-ba1010e5.ada
-ba1010e6.ada
-ba1010f0.ada
-ba1010f1.ada
-ba1010f3.ada
-ba1010f4.ada
-ba1010f5.ada
-ba1010f6.ada
-ba1010f7.ada
-ba1010f8.ada
-ba1010g0.ada
-ba1010g2.ada
-ba1010g3.ada
-ba1010g4.ada
-ba1010g5.ada
-ba1010h0.ada
-ba1010h2.ada
-ba1010i0.ada
-ba1010i1.ada
-ba1010i3.ada
-ba1010i4.ada
-ba1010j0.ada
-ba1010j1.ada
-ba1010j2.ada
-ba1010j4.ada
-ba1010j5.ada
-ba1010j6.ada
-ba1010j7.ada
-ba1010j8.ada
-ba1010k0.ada
-ba1010k1.ada
-ba1010k2.ada
-ba1010k3.ada
-ba1010k4.ada
-ba1010k5.ada
-ba1010k6.ada
-ba1010l0.ada
-ba1010l1.ada
-ba1010l2.ada
-ba1010l3.ada
-ba1010l4.ada
-ba1010l5.ada
-ba1010l6.ada
-ba1010m0.ada
-ba1010m1.ada
-ba1010m3.ada
-ba1010m4.ada
-ba1010m5.ada
-ba1010m6.ada
-ba1010m7.ada
-ba1010m8.ada
-ba1010n0.ada
-ba1010n2.ada
-ba1010n3.ada
-ba1010n4.ada
-ba1010n5.ada
-ba1010p0.ada
-ba1010p2.ada
-ba1010q0.ada
-ba1010q1.ada
-ba1010q3.ada
-ba1010q4.ada
-ba1011b0.ada
-ba1011b1.ada
-ba1011b2.ada
-ba1011b3.ada
-ba1011b4.ada
-ba1011b5.ada
-ba1011b6.ada
-ba1011b7.ada
-ba1011b8.ada
-ba1011c0.ada
-ba1011c1.ada
-ba1011c2.ada
-ba1011c3.ada
-ba1011c4.ada
-ba1011c5.ada
-ba1011c6.ada
-ba1011c7.ada
-ba1011c8.ada
-ba1020a0.ada
-ba1020a1.ada
-ba1020a2.ada
-ba1020a3.ada
-ba1020a4.ada
-ba1020a5.ada
-ba1020a6.ada
-ba1020a7.ada
-ba1020a8.ada
-ba1020b0.ada
-ba1020b1.ada
-ba1020b2.ada
-ba1020b3.ada
-ba1020b4.ada
-ba1020b5.ada
-ba1020b6.ada
-ba1020c0.ada
-ba1020c1.ada
-ba1020c2.ada
-ba1020c3.ada
-ba1020c4.ada
-ba1020c5.ada
-ba1020f0.ada
-ba1020f1.ada
-ba1020f2.ada
-ba11001.a
-ba11002.a
-ba11003.a
-ba11004.a
-ba11005.a
-ba11007.a
-ba11008.a
-ba11009.a
-ba11010.a
-ba11011.a
-ba11012.a
-ba1101a.ada
-ba1101b0.ada
-ba1101b1.ada
-ba1101b2.ada
-ba1101b3.ada
-ba1101b4.ada
-ba1101c0.ada
-ba1101c1.ada
-ba1101c2.ada
-ba1101c3.ada
-ba1101c4.ada
-ba1101c5.ada
-ba1101c6.ada
-ba1101e0.ada
-ba1101e1.ada
-ba1101f.ada
-ba1101g.ada
-ba1109a0.ada
-ba1109a1.ada
-ba1109a2.ada
-ba1110a0.ada
-ba1110a1.ada
-ba1110a2.ada
-ba1110a3.ada
-ba1110a4.ada
-ba1110a5.ada
-ba12001.a
-ba12002.a
-ba12003.a
-ba12004.a
-ba12005.a
-ba12007.a
-ba12008.a
-ba13b01.a
-ba13b02.a
-ba15001.a
-ba150020.a
-ba150021.a
-ba150022.a
-ba150023.a
-ba150024.a
-ba150025.a
-ba150026.a
-ba150027.a
-ba150028.a
-ba150029.am
-ba2001a.ada
-ba2001b.ada
-ba2001c.ada
-ba2001d.ada
-ba2001f0.ada
-ba2001f1.ada
-ba2001f2.ada
-ba2003b0.ada
-ba2003b1.ada
-ba2011a0.ada
-ba2011a1.ada
-ba2011a2.ada
-ba2011a3.ada
-ba2011a4.ada
-ba2011a5.ada
-ba2011a6.ada
-ba2011a7.ada
-ba2011a8.ada
-ba2011a9.ada
-ba2013a.ada
-ba2013b.ada
-ba21001.a
-ba21002.a
-ba210030.a
-ba210031.a
-ba210032.a
-ba210033.a
-ba210034.a
-ba210035.a
-ba210040.a
-ba210041.a
-ba210042.a
-ba210043.a
-ba210044.a
-ba210045.am
-ba21a01.a
-ba21a02.a
-ba3001a0.ada
-ba3001a1.ada
-ba3001a2.ada
-ba3001a3.ada
-ba3001b0.ada
-ba3001b1.ada
-ba3001c0.ada
-ba3001c1.ada
-ba3001e0.ada
-ba3001e1.ada
-ba3001e2.ada
-ba3001e3.ada
-ba3001f0.ada
-ba3001f1.ada
-ba3001f2.ada
-ba3001f3.ada
-ba3006a0.ada
-ba3006a1.ada
-ba3006a2.ada
-ba3006a3.ada
-ba3006a4.ada
-ba3006a5.ada
-ba3006a6.ada
-ba3006b0.ada
-ba3006b1.ada
-ba3006b2.ada
-ba3006b3.ada
-ba3006b4.ada
-bb10001.a
-bb20001.a
-bb2001a.ada
-bb2002a.ada
-bb2003a.ada
-bb2003b.ada
-bb2003c.ada
-bb3001a.ada
-bb3002a.ada
-bc1001a.ada
-bc1002a.ada
-bc1005a.ada
-bc1008a.ada
-bc1008b.ada
-bc1008c.ada
-bc1009a.ada
-bc1011a.ada
-bc1011b.ada
-bc1011c.ada
-bc1012a.ada
-bc1013a.ada
-bc1014a.ada
-bc1014b.ada
-bc1016a.ada
-bc1016b.ada
-bc1101a.ada
-bc1102a.ada
-bc1103a.ada
-bc1106a.ada
-bc1107a.ada
-bc1109a.ada
-bc1109b.ada
-bc1109c.ada
-bc1109d.ada
-bc1110a.ada
-bc1201a.ada
-bc1201b.ada
-bc1201c.ada
-bc1201d.ada
-bc1201e.ada
-bc1201f.ada
-bc1201g.ada
-bc1201h.ada
-bc1201i.ada
-bc1201j.ada
-bc1201k.ada
-bc1201l.ada
-bc1202a.ada
-bc1202c.ada
-bc1202e.ada
-bc1202f.ada
-bc1202g.ada
-bc1203a.ada
-bc1205a.ada
-bc1206a.ada
-bc1207a.ada
-bc1208a.ada
-bc1226a.ada
-bc1230a.ada
-bc1303a.ada
-bc1303b.ada
-bc1303c.ada
-bc1303d.ada
-bc1303e.ada
-bc1303f.ada
-bc1303g.ada
-bc1306a.ada
-bc2001b.ada
-bc2001c.ada
-bc2001d.ada
-bc2001e.ada
-bc2004a.ada
-bc2004b.ada
-bc30001.a
-bc3001a.ada
-bc3002a.ada
-bc3002b.ada
-bc3002c.ada
-bc3002d.ada
-bc3002e.ada
-bc3005a.ada
-bc3005b.ada
-bc3005c.ada
-bc3006a.ada
-bc3009c.ada
-bc3011b.ada
-bc3013a.ada
-bc3016g.ada
-bc3018a.ada
-bc3101a.ada
-bc3101b.ada
-bc3102a.ada
-bc3102b.ada
-bc3103b.ada
-bc3123c.ada
-bc3201a.ada
-bc3201b.ada
-bc3201c.ada
-bc3202a.ada
-bc3202b.ada
-bc3202c.ada
-bc3202d.ada
-bc3205c.ada
-bc3301a.ada
-bc3301b.ada
-bc3302a.ada
-bc3302b.ada
-bc3303a.ada
-bc3304a.ada
-bc3401a.ada
-bc3401b.ada
-bc3402a.ada
-bc3402b.ada
-bc3403a.ada
-bc3403b.ada
-bc3403c.ada
-bc3404a.ada
-bc3404b.ada
-bc3404c.ada
-bc3404d.ada
-bc3404e.ada
-bc3404f.ada
-bc3405a.ada
-bc3405b.ada
-bc3405d.ada
-bc3405e.ada
-bc3405f.ada
-bc3501a.ada
-bc3501b.ada
-bc3501c.ada
-bc3501d.ada
-bc3501e.ada
-bc3501f.ada
-bc3501g.ada
-bc3501h.ada
-bc3501i.ada
-bc3501j.ada
-bc3501k.ada
-bc3502a.ada
-bc3502b.ada
-bc3502c.ada
-bc3502d.ada
-bc3502e.ada
-bc3502f.ada
-bc3502g.ada
-bc3502h.ada
-bc3502i.ada
-bc3502j.ada
-bc3502k.ada
-bc3502l.ada
-bc3502m.ada
-bc3502n.ada
-bc3502o.ada
-bc3503a.ada
-bc3503c.ada
-bc3503d.ada
-bc3503e.ada
-bc3503f.ada
-bc3604a.ada
-bc3604b.ada
-bc3607a.ada
-bc40001.a
-bc40002.a
-bc50001.a
-bc50002.a
-bc50003.a
-bc50004.a
-bc51002.a
-bc51003.a
-bc51004.a
-bc51005.a
-bc51006.a
-bc51007.a
-bc51011.a
-bc51012.a
-bc51013.a
-bc51015.a
-bc51016.a
-bc51017.a
-bc51018.a
-bc51019.a
-bc51020.a
-bc51b01.a
-bc51b02.a
-bc51c01.a
-bc51c02.a
-bc53001.a
-bc53002.a
-bc54001.a
-bc54002.a
-bc54003.a
-bc54a01.a
-bc54a02.a
-bc54a03.a
-bc54a04.a
-bc54a05.a
-bc54a06.a
-bc70001.a
-bc70002.a
-bc70003.a
-bc70004.a
-bc70005.a
-bc70006.a
-bc70007.a
-bc70008.a
-bc70009.a
-bc70010.a
-bd1b01a.ada
-bd1b02b.ada
-bd1b03c.ada
-bd1b05e.ada
-bd1b06j.ada
-bd2001b.ada
-bd2a01h.ada
-bd2a02a.tst
-bd2a03a.ada
-bd2a03b.ada
-bd2a06a.ada
-bd2a25a.ada
-bd2a35a.ada
-bd2a45a.ada
-bd2a55a.ada
-bd2a55b.ada
-bd2a67a.ada
-bd2a77a.ada
-bd2a85a.ada
-bd2a85b.ada
-bd2b01c.ada
-bd2b02a.ada
-bd2b03a.ada
-bd2b03b.ada
-bd2b03c.ada
-bd2c01d.tst
-bd2c02a.tst
-bd2c03a.tst
-bd2d01c.ada
-bd2d01d.ada
-bd2d02a.ada
-bd2d03a.ada
-bd2d03b.ada
-bd3001a.ada
-bd3001b.ada
-bd3001c.ada
-bd3002a.ada
-bd3003a.ada
-bd3003b.ada
-bd3012a.ada
-bd3013a.ada
-bd4001a.ada
-bd4002a.ada
-bd4003a.ada
-bd4003b.ada
-bd4003c.ada
-bd4006a.tst
-bd4007a.ada
-bd4009a.ada
-bd4011a.ada
-bd5001a.ada
-bd5005a.ada
-bd5005d.ada
-bd5102a.ada
-bd5102b.ada
-bd5103a.ada
-bd5104a.ada
-bd7001a.ada
-bd7101h.ada
-bd7201c.ada
-bd7203a.ada
-bd7204a.ada
-bd7205a.ada
-bd7301a.ada
-bd7302a.ada
-bd8001a.tst
-bd8002a.tst
-bd8003a.tst
-bd8004a.tst
-bd8004b.tst
-bd8004c.tst
-bdb0a01.a
-bdd2001.a
-bde0001.a
-bde0002.a
-bde0003.a
-bde0004.a
-bde0005.a
-bde0006.a
-bde0007.a
-bde0008.a
-be2101e.ada
-be2101j.ada
-be2114a.ada
-be2116a.ada
-be2208a.ada
-be3002a.ada
-be3002e.ada
-be3205a.ada
-be3301c.ada
-be3606c.ada
-be3703a.ada
-be3802a.ada
-be3803a.ada
-be3902a.ada
-be3903a.ada
-bxa8001.a
-bxac001.a
-bxac002.a
-bxac003.a
-bxac004.a
-bxac005.a
-bxc3001.a
-bxc3002.a
-bxc5001.a
-bxc6001.a
-bxc6002.a
-bxc6003.a
-bxc6a01.a
-bxc6a02.a
-bxc6a03.a
-bxc6a04.a
-bxd1001.a
-bxd1002.a
-bxe2007.a
-bxe2008.a
-bxe2009.a
-bxe2010.a
-bxe2011.a
-bxe2012.a
-bxe2013.a
-bxe2a01.a
-bxe2a02.a
-bxe2a03.a
-bxe2a04.a
-bxe2a05.a
-bxe2a06.a
-bxe4001.a
-bxf1001.a
-bxh4001.a
-bxh4002.a
-bxh4003.a
-bxh4004.a
-bxh4005.a
-bxh4006.a
-bxh4007.a
-bxh4008.a
-bxh4009.a
-bxh4010.a
-bxh4011.a
-bxh4012.a
-bxh4013.a
-c23001a.ada
-c23003a.tst
-c23003b.tst
-c23003g.tst
-c23003i.tst
-c23006a.ada
-c23006b.ada
-c23006c.ada
-c23006d.ada
-c23006e.ada
-c23006f.ada
-c23006g.ada
-c24002d.ada
-c24003a.ada
-c24003b.ada
-c24003c.ada
-c24106a.ada
-c24202d.ada
-c24203a.ada
-c24203b.ada
-c24207a.ada
-c24211a.ada
-c250001.aw
-c250002.aw
-c25001a.ada
-c25001b.ada
-c26006a.ada
-c26008a.ada
-c2a001a.ada
-c2a001b.ada
-c2a001c.ada
-c2a002a.ada
-c2a008a.ada
-c2a021b.ada
-c32001a.ada
-c32001b.ada
-c32001c.ada
-c32001d.ada
-c32001e.ada
-c32107a.ada
-c32107c.ada
-c32108a.ada
-c32108b.ada
-c32111a.ada
-c32111b.ada
-c32112b.ada
-c32113a.ada
-c32115a.ada
-c32115b.ada
-c330001.a
-c330002.a
-c332001.a
-c340001.a
-c34001a.ada
-c34001c.ada
-c34001d.ada
-c34001f.ada
-c34002a.ada
-c34002c.ada
-c34003a.ada
-c34003c.ada
-c34004a.ada
-c34004c.ada
-c34005a.ada
-c34005c.ada
-c34005d.ada
-c34005f.ada
-c34005g.ada
-c34005i.ada
-c34005j.ada
-c34005l.ada
-c34005m.ada
-c34005o.ada
-c34005p.ada
-c34005r.ada
-c34005s.ada
-c34005u.ada
-c34005v.ada
-c34006a.ada
-c34006d.ada
-c34006f.ada
-c34006g.ada
-c34006j.ada
-c34006l.ada
-c34007a.ada
-c34007d.ada
-c34007f.ada
-c34007g.ada
-c34007i.ada
-c34007j.ada
-c34007m.ada
-c34007p.ada
-c34007r.ada
-c34007s.ada
-c34007u.ada
-c34007v.ada
-c34008a.ada
-c34009a.ada
-c34009d.ada
-c34009f.ada
-c34009g.ada
-c34009j.ada
-c34009l.ada
-c34011b.ada
-c34012a.ada
-c34014a.ada
-c34014c.ada
-c34014e.ada
-c34014g.ada
-c34014h.ada
-c34014n.ada
-c34014p.ada
-c34014r.ada
-c34014t.ada
-c34014u.ada
-c34018a.ada
-c340a01.a
-c340a02.a
-c341a01.a
-c341a02.a
-c341a03.a
-c341a04.a
-c35003a.ada
-c35003b.ada
-c35003d.ada
-c35102a.ada
-c352001.a
-c354002.a
-c354003.a
-c35502a.ada
-c35502b.ada
-c35502c.ada
-c35502d.tst
-c35502e.ada
-c35502f.tst
-c35502g.ada
-c35502h.ada
-c35502i.ada
-c35502j.ada
-c35502k.ada
-c35502l.ada
-c35502m.ada
-c35502n.ada
-c35502o.ada
-c35502p.ada
-c35503a.ada
-c35503b.ada
-c35503c.ada
-c35503d.tst
-c35503e.ada
-c35503f.tst
-c35503g.ada
-c35503h.ada
-c35503k.ada
-c35503l.ada
-c35503o.ada
-c35503p.ada
-c35504a.ada
-c35504b.ada
-c35505c.ada
-c35505e.ada
-c35505f.ada
-c35507a.ada
-c35507b.ada
-c35507c.ada
-c35507e.ada
-c35507g.ada
-c35507h.ada
-c35507i.ada
-c35507j.ada
-c35507k.ada
-c35507l.ada
-c35507m.ada
-c35507n.ada
-c35507o.ada
-c35507p.ada
-c35508a.ada
-c35508b.ada
-c35508c.ada
-c35508e.ada
-c35508g.ada
-c35508h.ada
-c35508k.ada
-c35508l.ada
-c35508o.ada
-c35508p.ada
-c35703a.ada
-c35704a.ada
-c35704b.ada
-c35704c.ada
-c35704d.ada
-c35801d.ada
-c35902d.ada
-c35904a.ada
-c35904b.ada
-c35a02a.ada
-c35a05a.ada
-c35a05d.ada
-c35a05n.ada
-c35a05q.ada
-c35a07a.ada
-c35a07d.ada
-c35a08b.ada
-c360002.a
-c36104a.ada
-c36104b.ada
-c36172a.ada
-c36172b.ada
-c36172c.ada
-c36174a.ada
-c36180a.ada
-c36202c.ada
-c36203a.ada
-c36204a.ada
-c36204b.ada
-c36204c.ada
-c36204d.ada
-c36205a.ada
-c36205b.ada
-c36205c.ada
-c36205d.ada
-c36205e.ada
-c36205f.ada
-c36205g.ada
-c36205h.ada
-c36205i.ada
-c36205j.ada
-c36205k.ada
-c36205l.ada
-c36301a.ada
-c36301b.ada
-c36302a.ada
-c36304a.ada
-c36305a.ada
-c37002a.ada
-c37003a.ada
-c37003b.ada
-c37005a.ada
-c37006a.ada
-c37008a.ada
-c37008b.ada
-c37009a.ada
-c37010a.ada
-c37010b.ada
-c371001.a
-c371002.a
-c371003.a
-c37102b.ada
-c37103a.ada
-c37105a.ada
-c37107a.ada
-c37108b.ada
-c37206a.ada
-c37207a.ada
-c37208a.ada
-c37208b.ada
-c37209a.ada
-c37209b.ada
-c37210a.ada
-c37211a.ada
-c37211b.ada
-c37211c.ada
-c37211d.ada
-c37211e.ada
-c37213b.ada
-c37213d.ada
-c37213f.ada
-c37213h.ada
-c37213j.ada
-c37213k.ada
-c37213l.ada
-c37215b.ada
-c37215d.ada
-c37215f.ada
-c37215h.ada
-c37217a.ada
-c37217b.ada
-c37217c.ada
-c37304a.ada
-c37305a.ada
-c37306a.ada
-c37309a.ada
-c37310a.ada
-c37312a.ada
-c37402a.ada
-c37403a.ada
-c37404a.ada
-c37404b.ada
-c37405a.ada
-c37411a.ada
-c38002a.ada
-c38002b.ada
-c38005a.ada
-c38005b.ada
-c38005c.ada
-c38006a.ada
-c38102a.ada
-c38102b.ada
-c38102c.ada
-c38102d.ada
-c38102e.ada
-c38104a.ada
-c38107a.ada
-c38107b.ada
-c38108a.ada
-c38108b.ada
-c38108c0.ada
-c38108c1.ada
-c38108c2.ada
-c38108d0.ada
-c38108d1.ada
-c38202a.ada
-c3900010.a
-c3900011.am
-c390002.a
-c390003.a
-c390004.a
-c3900050.a
-c3900051.a
-c3900052.a
-c3900053.am
-c3900060.a
-c3900061.a
-c3900062.a
-c3900063.am
-c390007.a
-c390010.a
-c390011.a
-c39006a.ada
-c39006b.ada
-c39006c0.ada
-c39006c1.ada
-c39006d.ada
-c39006e.ada
-c39006f0.ada
-c39006f1.ada
-c39006f2.ada
-c39006f3.ada
-c39006g.ada
-c39007a.ada
-c39007b.ada
-c39008a.ada
-c39008b.ada
-c39008c.ada
-c390a010.a
-c390a011.am
-c390a020.a
-c390a021.a
-c390a022.am
-c390a030.a
-c390a031.am
-c391001.a
-c391002.a
-c392002.a
-c392003.a
-c392004.a
-c392005.a
-c392008.a
-c392010.a
-c392011.a
-c392013.a
-c392014.a
-c392a01.a
-c392c05.a
-c392c07.a
-c392d01.a
-c392d02.a
-c392d03.a
-c393001.a
-c393007.a
-c393008.a
-c393009.a
-c393010.a
-c393011.a
-c393012.a
-c393a02.a
-c393a03.a
-c393a05.a
-c393a06.a
-c393b12.a
-c393b13.a
-c393b14.a
-c3a0001.a
-c3a0002.a
-c3a0003.a
-c3a0004.a
-c3a0005.a
-c3a0006.a
-c3a0007.a
-c3a0008.a
-c3a0009.a
-c3a0010.a
-c3a0011.a
-c3a00120.a
-c3a00121.a
-c3a00122.am
-c3a0013.a
-c3a0014.a
-c3a0015.a
-c3a1001.a
-c3a1002.a
-c3a2001.a
-c3a2002.a
-c3a2003.a
-c3a2a01.a
-c3a2a02.a
-c410001.a
-c41101d.ada
-c41103a.ada
-c41103b.ada
-c41104a.ada
-c41105a.ada
-c41107a.ada
-c41201d.ada
-c41203a.ada
-c41203b.ada
-c41204a.ada
-c41205a.ada
-c41206a.ada
-c41207a.ada
-c41301a.ada
-c41303a.ada
-c41303b.ada
-c41303c.ada
-c41303e.ada
-c41303f.ada
-c41303g.ada
-c41303i.ada
-c41303j.ada
-c41303k.ada
-c41303m.ada
-c41303n.ada
-c41303o.ada
-c41303q.ada
-c41303r.ada
-c41303s.ada
-c41303u.ada
-c41303v.ada
-c41303w.ada
-c41304a.ada
-c41304b.ada
-c41306a.ada
-c41306b.ada
-c41306c.ada
-c41307d.ada
-c41309a.ada
-c41320a.ada
-c41321a.ada
-c41322a.ada
-c41323a.ada
-c41324a.ada
-c41325a.ada
-c41326a.ada
-c41327a.ada
-c41328a.ada
-c41401a.ada
-c41402a.ada
-c41404a.ada
-c420001.a
-c42006a.ada
-c42007e.ada
-c43003a.ada
-c43004a.ada
-c43004c.ada
-c431001.a
-c43103a.ada
-c43103b.ada
-c43104a.ada
-c43105a.ada
-c43105b.ada
-c43106a.ada
-c43107a.ada
-c43108a.ada
-c432001.a
-c432002.a
-c432003.a
-c432004.a
-c43204a.ada
-c43204c.ada
-c43204e.ada
-c43204f.ada
-c43204g.ada
-c43204h.ada
-c43204i.ada
-c43205a.ada
-c43205b.ada
-c43205c.ada
-c43205d.ada
-c43205e.ada
-c43205g.ada
-c43205h.ada
-c43205i.ada
-c43205j.ada
-c43205k.ada
-c43206a.ada
-c43207b.ada
-c43207d.ada
-c43208a.ada
-c43208b.ada
-c43209a.ada
-c43210a.ada
-c43211a.ada
-c43212a.ada
-c43212c.ada
-c43214a.ada
-c43214b.ada
-c43214c.ada
-c43214d.ada
-c43214e.ada
-c43214f.ada
-c43215a.ada
-c43215b.ada
-c43222a.ada
-c43224a.ada
-c433001.a
-c44003d.ada
-c44003f.ada
-c44003g.ada
-c450001.a
-c45112a.ada
-c45112b.ada
-c45113a.ada
-c45114b.ada
-c452001.a
-c45201a.ada
-c45201b.ada
-c45202b.ada
-c45210a.ada
-c45211a.ada
-c45220a.ada
-c45220b.ada
-c45220c.ada
-c45220d.ada
-c45220e.ada
-c45220f.ada
-c45231a.ada
-c45231b.dep
-c45231c.dep
-c45231d.tst
-c45232b.ada
-c45242b.ada
-c45251a.ada
-c45252a.ada
-c45252b.ada
-c45253a.ada
-c45262a.ada
-c45262b.ada
-c45262c.ada
-c45262d.ada
-c45264a.ada
-c45264b.ada
-c45264c.ada
-c45265a.ada
-c45271a.ada
-c45272a.ada
-c45273a.ada
-c45274a.ada
-c45274b.ada
-c45274c.ada
-c45281a.ada
-c45282a.ada
-c45282b.ada
-c45291a.ada
-c45303a.ada
-c45304a.ada
-c45304b.dep
-c45304c.dep
-c45322a.ada
-c45323a.ada
-c45331a.ada
-c45342a.ada
-c45343a.ada
-c45344a.ada
-c45345b.ada
-c45347a.ada
-c45347b.ada
-c45347c.ada
-c45347d.ada
-c45411a.ada
-c45411b.dep
-c45411c.dep
-c45411d.ada
-c45413a.ada
-c45431a.ada
-c455001.a
-c45502b.dep
-c45502c.dep
-c45503a.ada
-c45503b.dep
-c45503c.dep
-c45504a.ada
-c45504b.dep
-c45504c.dep
-c45504d.ada
-c45504e.dep
-c45504f.dep
-c45505a.ada
-c45523a.ada
-c45531a.ada
-c45531b.ada
-c45531c.ada
-c45531d.ada
-c45531e.ada
-c45531f.ada
-c45531g.ada
-c45531h.ada
-c45531i.ada
-c45531j.ada
-c45531k.ada
-c45531l.ada
-c45531m.dep
-c45531n.dep
-c45531o.dep
-c45531p.dep
-c45532a.ada
-c45532b.ada
-c45532c.ada
-c45532d.ada
-c45532e.ada
-c45532f.ada
-c45532g.ada
-c45532h.ada
-c45532i.ada
-c45532j.ada
-c45532k.ada
-c45532l.ada
-c45532m.dep
-c45532n.dep
-c45532o.dep
-c45532p.dep
-c45534b.ada
-c45536a.dep
-c45611a.ada
-c45611b.dep
-c45611c.dep
-c45613a.ada
-c45613b.dep
-c45613c.dep
-c45614a.ada
-c45614b.dep
-c45614c.dep
-c45622a.ada
-c45624a.ada
-c45624b.ada
-c45631a.ada
-c45631b.dep
-c45631c.dep
-c45632a.ada
-c45632b.dep
-c45632c.dep
-c45651a.ada
-c45662a.ada
-c45662b.ada
-c45672a.ada
-c460001.a
-c460002.a
-c460004.a
-c460005.a
-c460006.a
-c460007.a
-c460008.a
-c460009.a
-c460010.a
-c460011.a
-c460012.a
-c46011a.ada
-c46013a.ada
-c46014a.ada
-c46021a.ada
-c46024a.ada
-c46031a.ada
-c46032a.ada
-c46033a.ada
-c46041a.ada
-c46042a.ada
-c46043b.ada
-c46044b.ada
-c46051a.ada
-c46051b.ada
-c46051c.ada
-c46052a.ada
-c46053a.ada
-c46054a.ada
-c460a01.a
-c460a02.a
-c47002a.ada
-c47002b.ada
-c47002c.ada
-c47002d.ada
-c47003a.ada
-c47004a.ada
-c47005a.ada
-c47006a.ada
-c47007a.ada
-c47008a.ada
-c47009a.ada
-c47009b.ada
-c48004a.ada
-c48004b.ada
-c48004c.ada
-c48004d.ada
-c48004e.ada
-c48004f.ada
-c48005a.ada
-c48005b.ada
-c48006a.ada
-c48006b.ada
-c48007a.ada
-c48007b.ada
-c48007c.ada
-c48008a.ada
-c48008c.ada
-c48009a.ada
-c48009b.ada
-c48009c.ada
-c48009d.ada
-c48009e.ada
-c48009f.ada
-c48009g.ada
-c48009h.ada
-c48009i.ada
-c48009j.ada
-c48010a.ada
-c48011a.ada
-c48012a.ada
-c490001.a
-c490002.a
-c490003.a
-c49020a.ada
-c49021a.ada
-c49022a.ada
-c49022b.ada
-c49022c.ada
-c49023a.ada
-c49024a.ada
-c49025a.ada
-c49026a.ada
-c4a005b.ada
-c4a006a.ada
-c4a007a.tst
-c4a010a.ada
-c4a010b.ada
-c4a011a.ada
-c4a012b.ada
-c4a013a.ada
-c4a014a.ada
-c51004a.ada
-c52005a.ada
-c52005b.ada
-c52005c.ada
-c52005d.ada
-c52005e.ada
-c52005f.ada
-c52008a.ada
-c52008b.ada
-c52009a.ada
-c52009b.ada
-c52010a.ada
-c52011a.ada
-c52011b.ada
-c52101a.ada
-c52102a.ada
-c52102b.ada
-c52102c.ada
-c52102d.ada
-c52103a.ada
-c52103b.ada
-c52103c.ada
-c52103f.ada
-c52103g.ada
-c52103h.ada
-c52103k.ada
-c52103l.ada
-c52103m.ada
-c52103p.ada
-c52103q.ada
-c52103r.ada
-c52103x.ada
-c52104a.ada
-c52104b.ada
-c52104c.ada
-c52104f.ada
-c52104g.ada
-c52104h.ada
-c52104k.ada
-c52104l.ada
-c52104m.ada
-c52104p.ada
-c52104q.ada
-c52104r.ada
-c52104x.ada
-c52104y.ada
-c53007a.ada
-c540001.a
-c54a03a.ada
-c54a04a.ada
-c54a07a.ada
-c54a13a.ada
-c54a13b.ada
-c54a13c.ada
-c54a13d.ada
-c54a22a.ada
-c54a23a.ada
-c54a24a.ada
-c54a24b.ada
-c54a42a.ada
-c54a42b.ada
-c54a42c.ada
-c54a42d.ada
-c54a42e.ada
-c54a42f.ada
-c54a42g.ada
-c55b03a.ada
-c55b04a.ada
-c55b05a.ada
-c55b06a.ada
-c55b06b.ada
-c55b07a.dep
-c55b07b.dep
-c55b10a.ada
-c55b11a.ada
-c55b11b.ada
-c55b15a.ada
-c55b16a.ada
-c55c02a.ada
-c55c02b.ada
-c56002a.ada
-c57003a.ada
-c57004a.ada
-c57004b.ada
-c58004c.ada
-c58004d.ada
-c58004g.ada
-c58005a.ada
-c58005b.ada
-c58005h.ada
-c58006a.ada
-c58006b.ada
-c59002a.ada
-c59002b.ada
-c59002c.ada
-c61008a.ada
-c61009a.ada
-c61010a.ada
-c62002a.ada
-c62003a.ada
-c62003b.ada
-c62004a.ada
-c62006a.ada
-c631001.a
-c640001.a
-c64002b.ada
-c64004g.ada
-c64005a.ada
-c64005b.ada
-c64005c.ada
-c64005d0.ada
-c64005da.ada
-c64005db.ada
-c64005dc.ada
-c641001.a
-c64103b.ada
-c64103c.ada
-c64103d.ada
-c64103e.ada
-c64103f.ada
-c64104a.ada
-c64104b.ada
-c64104c.ada
-c64104d.ada
-c64104e.ada
-c64104f.ada
-c64104g.ada
-c64104h.ada
-c64104i.ada
-c64104j.ada
-c64104k.ada
-c64104l.ada
-c64104m.ada
-c64104n.ada
-c64104o.ada
-c64105a.ada
-c64105b.ada
-c64105c.ada
-c64105d.ada
-c64106a.ada
-c64106b.ada
-c64106c.ada
-c64106d.ada
-c64107a.ada
-c64108a.ada
-c64109a.ada
-c64109b.ada
-c64109c.ada
-c64109d.ada
-c64109e.ada
-c64109f.ada
-c64109g.ada
-c64109h.ada
-c64109i.ada
-c64109j.ada
-c64109k.ada
-c64109l.ada
-c64201b.ada
-c64201c.ada
-c64202a.ada
-c650001.a
-c65003a.ada
-c65003b.ada
-c66002a.ada
-c66002c.ada
-c66002d.ada
-c66002e.ada
-c66002f.ada
-c66002g.ada
-c67002a.ada
-c67002b.ada
-c67002c.ada
-c67002d.ada
-c67002e.ada
-c67003f.ada
-c67005a.ada
-c67005b.ada
-c67005c.ada
-c67005d.ada
-c72001b.ada
-c72002a.ada
-c730001.a
-c730002.a
-c730003.a
-c730004.a
-c73002a.ada
-c730a01.a
-c730a02.a
-c731001.a
-c74004a.ada
-c74203a.ada
-c74206a.ada
-c74207b.ada
-c74208a.ada
-c74208b.ada
-c74209a.ada
-c74210a.ada
-c74211a.ada
-c74211b.ada
-c74302a.ada
-c74302b.ada
-c74305a.ada
-c74305b.ada
-c74306a.ada
-c74307a.ada
-c74401d.ada
-c74401e.ada
-c74401k.ada
-c74401q.ada
-c74402a.ada
-c74402b.ada
-c74406a.ada
-c74407b.ada
-c74409b.ada
-c760001.a
-c760002.a
-c760007.a
-c760009.a
-c760010.a
-c760011.a
-c760012.a
-c760013.a
-c761001.a
-c761002.a
-c761003.a
-c761004.a
-c761005.a
-c761006.a
-c761007.a
-c761010.a
-c761011.a
-c83007a.ada
-c83012d.ada
-c83022a.ada
-c83022g0.ada
-c83022g1.ada
-c83023a.ada
-c83024a.ada
-c83024e0.ada
-c83024e1.ada
-c83025a.ada
-c83025c.ada
-c83027a.ada
-c83027c.ada
-c83028a.ada
-c83029a.ada
-c83030a.ada
-c83030c.ada
-c83031a.ada
-c83031c.ada
-c83031e.ada
-c83032a.ada
-c83033a.ada
-c83051a.ada
-c83b02a.ada
-c83b02b.ada
-c83e02a.ada
-c83e02b.ada
-c83e03a.ada
-c83f01a.ada
-c83f01b.ada
-c83f01c0.ada
-c83f01c1.ada
-c83f01c2.ada
-c83f01d0.ada
-c83f01d1.ada
-c83f03a.ada
-c83f03b.ada
-c83f03c0.ada
-c83f03c1.ada
-c83f03c2.ada
-c83f03d0.ada
-c83f03d1.ada
-c840001.a
-c84002a.ada
-c84005a.ada
-c84008a.ada
-c84009a.ada
-c85004b.ada
-c85005a.ada
-c85005b.ada
-c85005c.ada
-c85005d.ada
-c85005e.ada
-c85005f.ada
-c85005g.ada
-c85006a.ada
-c85006b.ada
-c85006c.ada
-c85006d.ada
-c85006e.ada
-c85006f.ada
-c85006g.ada
-c85007a.ada
-c85007e.ada
-c85009a.ada
-c85011a.ada
-c85013a.ada
-c85014a.ada
-c85014b.ada
-c85014c.ada
-c85017a.ada
-c85018a.ada
-c85018b.ada
-c85019a.ada
-c854001.a
-c854002.a
-c86003a.ada
-c86004a.ada
-c86004b0.ada
-c86004b1.ada
-c86004b2.ada
-c86004c0.ada
-c86004c1.ada
-c86004c2.ada
-c86006i.ada
-c86007a.ada
-c87a05a.ada
-c87a05b.ada
-c87b02a.ada
-c87b02b.ada
-c87b03a.ada
-c87b04a.ada
-c87b04b.ada
-c87b04c.ada
-c87b05a.ada
-c87b06a.ada
-c87b07a.ada
-c87b07b.ada
-c87b07c.ada
-c87b07d.ada
-c87b07e.ada
-c87b08a.ada
-c87b09a.ada
-c87b09c.ada
-c87b10a.ada
-c87b11a.ada
-c87b11b.ada
-c87b13a.ada
-c87b14a.ada
-c87b14b.ada
-c87b14c.ada
-c87b14d.ada
-c87b15a.ada
-c87b16a.ada
-c87b17a.ada
-c87b18a.ada
-c87b18b.ada
-c87b19a.ada
-c87b23a.ada
-c87b24a.ada
-c87b24b.ada
-c87b26b.ada
-c87b27a.ada
-c87b28a.ada
-c87b29a.ada
-c87b30a.ada
-c87b31a.ada
-c87b32a.ada
-c87b33a.ada
-c87b34a.ada
-c87b34b.ada
-c87b34c.ada
-c87b35c.ada
-c87b38a.ada
-c87b39a.ada
-c87b40a.ada
-c87b41a.ada
-c87b42a.ada
-c87b43a.ada
-c87b44a.ada
-c87b45a.ada
-c87b45c.ada
-c87b47a.ada
-c87b48a.ada
-c87b48b.ada
-c87b50a.ada
-c87b54a.ada
-c87b57a.ada
-c87b62a.ada
-c87b62b.ada
-c87b62c.ada
-c87b62d.tst
-c910001.a
-c910002.a
-c910003.a
-c91004b.ada
-c91004c.ada
-c91006a.ada
-c91007a.ada
-c92002a.ada
-c92003a.ada
-c92005a.ada
-c92005b.ada
-c92006a.ada
-c930001.a
-c93001a.ada
-c93002a.ada
-c93003a.ada
-c93004a.ada
-c93004b.ada
-c93004c.ada
-c93004d.ada
-c93004f.ada
-c93005a.ada
-c93005b.ada
-c93005c.ada
-c93005d.ada
-c93005e.ada
-c93005f.ada
-c93005g.ada
-c93005h.ada
-c93006a.ada
-c93007a.ada
-c93008a.ada
-c93008b.ada
-c940001.a
-c940002.a
-c940004.a
-c940005.a
-c940006.a
-c940007.a
-c940010.a
-c940011.a
-c940012.a
-c940013.a
-c940014.a
-c940015.a
-c940016.a
-c94001a.ada
-c94001b.ada
-c94001c.ada
-c94001e.ada
-c94001f.ada
-c94001g.ada
-c94002a.ada
-c94002b.ada
-c94002d.ada
-c94002e.ada
-c94002f.ada
-c94002g.ada
-c94004a.ada
-c94004b.ada
-c94004c.ada
-c94005a.ada
-c94005b.ada
-c94006a.ada
-c94007a.ada
-c94007b.ada
-c94008a.ada
-c94008b.ada
-c94008c.ada
-c94008d.ada
-c94010a.ada
-c94011a.ada
-c94020a.ada
-c940a03.a
-c95008a.ada
-c95009a.ada
-c95010a.ada
-c95011a.ada
-c95012a.ada
-c95021a.ada
-c95022a.ada
-c95022b.ada
-c95033a.ada
-c95033b.ada
-c95034a.ada
-c95034b.ada
-c95035a.ada
-c95040a.ada
-c95040b.ada
-c95040c.ada
-c95040d.ada
-c95041a.ada
-c95065a.ada
-c95065b.ada
-c95065c.ada
-c95065d.ada
-c95065e.ada
-c95065f.ada
-c95066a.ada
-c95067a.ada
-c95071a.ada
-c95072a.ada
-c95072b.ada
-c95073a.ada
-c95074c.ada
-c95076a.ada
-c95078a.ada
-c95080b.ada
-c95082g.ada
-c95085a.ada
-c95085b.ada
-c95085c.ada
-c95085d.ada
-c95085e.ada
-c95085f.ada
-c95085g.ada
-c95085h.ada
-c95085i.ada
-c95085j.ada
-c95085k.ada
-c95085l.ada
-c95085m.ada
-c95085n.ada
-c95085o.ada
-c95086a.ada
-c95086b.ada
-c95086c.ada
-c95086d.ada
-c95086e.ada
-c95086f.ada
-c95087a.ada
-c95087b.ada
-c95087c.ada
-c95087d.ada
-c95088a.ada
-c95089a.ada
-c95090a.ada
-c95092a.ada
-c95093a.ada
-c95095a.ada
-c95095b.ada
-c95095c.ada
-c95095d.ada
-c95095e.ada
-c951001.a
-c951002.a
-c953001.a
-c953002.a
-c953003.a
-c954001.a
-c954010.a
-c954011.a
-c954012.a
-c954013.a
-c954014.a
-c954015.a
-c954016.a
-c954017.a
-c954018.a
-c954019.a
-c954020.a
-c954021.a
-c954022.a
-c954023.a
-c954024.a
-c954025.a
-c954026.a
-c954a01.a
-c954a02.a
-c954a03.a
-c960001.a
-c960002.a
-c960004.a
-c96001a.ada
-c96004a.ada
-c96005a.ada
-c96005b.tst
-c96005d.ada
-c96005f.ada
-c96006a.ada
-c96007a.ada
-c96008a.ada
-c96008b.ada
-c97112a.ada
-c97113a.ada
-c97114a.ada
-c97115a.ada
-c97116a.ada
-c97117a.ada
-c97117b.ada
-c97117c.ada
-c97118a.ada
-c97120a.ada
-c97120b.ada
-c97201a.ada
-c97201b.ada
-c97201c.ada
-c97201d.ada
-c97201e.ada
-c97201g.ada
-c97201h.ada
-c97201x.ada
-c97202a.ada
-c97203a.ada
-c97203b.ada
-c97203c.ada
-c97204a.ada
-c97204b.ada
-c97205a.ada
-c97205b.ada
-c97301a.ada
-c97301b.ada
-c97301c.ada
-c97301d.ada
-c97301e.ada
-c97302a.ada
-c97303a.ada
-c97303b.ada
-c97303c.ada
-c97304a.ada
-c97304b.ada
-c97305a.ada
-c97305b.ada
-c97305c.ada
-c97305d.ada
-c97307a.ada
-c974001.a
-c974002.a
-c974003.a
-c974004.a
-c974005.a
-c974006.a
-c974007.a
-c974008.a
-c974009.a
-c974010.a
-c974011.a
-c974012.a
-c974013.a
-c974014.a
-c980001.a
-c980002.a
-c980003.a
-c99004a.ada
-c99005a.ada
-c9a003a.ada
-c9a004a.ada
-c9a007a.ada
-c9a009a.ada
-c9a009c.ada
-c9a009f.ada
-c9a009g.ada
-c9a009h.ada
-c9a010a.ada
-c9a011a.ada
-c9a011b.ada
-ca1003a.ada
-ca1004a.ada
-ca1005a.ada
-ca1006a.ada
-ca1011a0.ada
-ca1011a1.ada
-ca1011a2.ada
-ca1011a3.ada
-ca1011a4.ada
-ca1011a5.ada
-ca1011a6.ada
-ca1012a0.ada
-ca1012a1.ada
-ca1012a2.ada
-ca1012a3.ada
-ca1012a4.ada
-ca1012b0.ada
-ca1012b2.ada
-ca1012b4.ada
-ca1013a0.ada
-ca1013a1.ada
-ca1013a2.ada
-ca1013a3.ada
-ca1013a4.ada
-ca1013a5.ada
-ca1013a6.ada
-ca1014a0.ada
-ca1014a1.ada
-ca1014a2.ada
-ca1014a3.ada
-ca1020e0.ada
-ca1020e1.ada
-ca1020e2.ada
-ca1020e3.ada
-ca1022a0.ada
-ca1022a1.ada
-ca1022a2.ada
-ca1022a3.ada
-ca1022a4.ada
-ca1022a5.ada
-ca1022a6.ada
-ca11001.a
-ca11002.a
-ca11003.a
-ca110040.a
-ca110041.a
-ca110042.am
-ca110050.a
-ca110051.am
-ca11006.a
-ca11007.a
-ca11008.a
-ca11009.a
-ca11010.a
-ca11011.a
-ca11012.a
-ca11013.a
-ca11014.a
-ca11015.a
-ca11016.a
-ca11017.a
-ca11018.a
-ca11019.a
-ca11020.a
-ca11021.a
-ca11022.a
-ca1102a0.ada
-ca1102a1.ada
-ca1102a2.ada
-ca1106a.ada
-ca1108a.ada
-ca1108b.ada
-ca11a01.a
-ca11a02.a
-ca11b01.a
-ca11b02.a
-ca11c01.a
-ca11c02.a
-ca11c03.a
-ca11d010.a
-ca11d011.a
-ca11d012.a
-ca11d013.am
-ca11d02.a
-ca11d03.a
-ca13001.a
-ca13002.a
-ca13003.a
-ca13a01.a
-ca13a02.a
-ca140230.a
-ca140231.a
-ca140232.am
-ca140233.a
-ca140280.a
-ca140281.a
-ca140282.a
-ca140283.am
-ca15003.a
-ca200020.a
-ca200021.a
-ca200022.am
-ca2001h0.ada
-ca2001h1.ada
-ca2001h2.ada
-ca2001h3.ada
-ca2002a0.ada
-ca2002a1.ada
-ca2002a2.ada
-ca2003a0.ada
-ca2003a1.ada
-ca2004a0.ada
-ca2004a1.ada
-ca2004a2.ada
-ca2004a3.ada
-ca2004a4.ada
-ca2007a0.ada
-ca2007a1.ada
-ca2007a2.ada
-ca2007a3.ada
-ca2008a0.ada
-ca2008a1.ada
-ca2008a2.ada
-ca2009a.ada
-ca2009c0.ada
-ca2009c1.ada
-ca2009d.ada
-ca2009f0.ada
-ca2009f1.ada
-ca2009f2.ada
-ca2011b.ada
-ca21001.a
-ca3011a0.ada
-ca3011a1.ada
-ca3011a2.ada
-ca3011a3.ada
-ca3011a4.ada
-ca5003a0.ada
-ca5003a1.ada
-ca5003a2.ada
-ca5003a3.ada
-ca5003a4.ada
-ca5003a5.ada
-ca5003a6.ada
-ca5003b0.ada
-ca5003b1.ada
-ca5003b2.ada
-ca5003b3.ada
-ca5003b4.ada
-ca5003b5.ada
-ca5004a.ada
-ca5004b0.ada
-ca5004b1.ada
-ca5004b2.ada
-ca5006a.ada
-cb10002.a
-cb1001a.ada
-cb1004a.ada
-cb1005a.ada
-cb1010a.ada
-cb1010c.ada
-cb1010d.ada
-cb20001.a
-cb20003.a
-cb20004.a
-cb20005.a
-cb20006.a
-cb20007.a
-cb2004a.ada
-cb2005a.ada
-cb2006a.ada
-cb2007a.ada
-cb20a02.a
-cb3003a.ada
-cb3003b.ada
-cb3004a.ada
-cb40005.a
-cb4001a.ada
-cb4002a.ada
-cb4003a.ada
-cb4004a.ada
-cb4005a.ada
-cb4006a.ada
-cb4007a.ada
-cb4008a.ada
-cb4009a.ada
-cb4013a.ada
-cb40a01.a
-cb40a020.a
-cb40a021.am
-cb40a030.a
-cb40a031.am
-cb40a04.a
-cb41001.a
-cb41002.a
-cb41003.a
-cb41004.a
-cb5001a.ada
-cb5001b.ada
-cb5002a.ada
-cc1004a.ada
-cc1005b.ada
-cc1010a.ada
-cc1010b.ada
-cc1018a.ada
-cc1104c.ada
-cc1107b.ada
-cc1111a.ada
-cc1204a.ada
-cc1207b.ada
-cc1220a.ada
-cc1221a.ada
-cc1221b.ada
-cc1221c.ada
-cc1221d.ada
-cc1222a.ada
-cc1223a.ada
-cc1224a.ada
-cc1225a.tst
-cc1226b.ada
-cc1227a.ada
-cc1301a.ada
-cc1302a.ada
-cc1304a.ada
-cc1304b.ada
-cc1307a.ada
-cc1307b.ada
-cc1308a.ada
-cc1310a.ada
-cc1311a.ada
-cc1311b.ada
-cc2002a.ada
-cc30001.a
-cc30002.a
-cc3004a.ada
-cc3007a.ada
-cc3007b.ada
-cc3011a.ada
-cc3011d.ada
-cc3012a.ada
-cc3015a.ada
-cc3016b.ada
-cc3016c.ada
-cc3016f.ada
-cc3016i.ada
-cc3017b.ada
-cc3017c.ada
-cc3019a.ada
-cc3019b0.ada
-cc3019b1.ada
-cc3019b2.ada
-cc3019c0.ada
-cc3019c1.ada
-cc3019c2.ada
-cc3106b.ada
-cc3120a.ada
-cc3120b.ada
-cc3121a.ada
-cc3123a.ada
-cc3125a.ada
-cc3125b.ada
-cc3125c.ada
-cc3125d.ada
-cc3126a.ada
-cc3127a.ada
-cc3128a.ada
-cc3203a.ada
-cc3207b.ada
-cc3220a.ada
-cc3221a.ada
-cc3222a.ada
-cc3223a.ada
-cc3224a.ada
-cc3225a.ada
-cc3230a.ada
-cc3231a.ada
-cc3232a.ada
-cc3233a.ada
-cc3234a.ada
-cc3235a.ada
-cc3236a.ada
-cc3240a.ada
-cc3305a.ada
-cc3305b.ada
-cc3305c.ada
-cc3305d.ada
-cc3601a.ada
-cc3601c.ada
-cc3602a.ada
-cc3603a.ada
-cc3605a.ada
-cc3606a.ada
-cc3606b.ada
-cc3607b.ada
-cc40001.a
-cc50001.a
-cc50a01.a
-cc50a02.a
-cc51001.a
-cc51002.a
-cc51003.a
-cc51004.a
-cc51006.a
-cc51007.a
-cc51a01.a
-cc51b03.a
-cc51d01.a
-cc51d02.a
-cc54001.a
-cc54002.a
-cc54003.a
-cc54004.a
-cc70001.a
-cc70002.a
-cc70003.a
-cc70a01.a
-cc70a02.a
-cc70b01.a
-cc70b02.a
-cc70c01.a
-cc70c02.a
-cd10001.a
-cd1009a.ada
-cd1009b.ada
-cd1009d.ada
-cd1009e.ada
-cd1009f.ada
-cd1009g.ada
-cd1009h.ada
-cd1009i.ada
-cd1009j.ada
-cd1009k.tst
-cd1009l.ada
-cd1009m.ada
-cd1009n.ada
-cd1009o.ada
-cd1009p.ada
-cd1009q.ada
-cd1009r.ada
-cd1009s.ada
-cd1009t.tst
-cd1009u.tst
-cd1009v.ada
-cd1009w.ada
-cd1009x.ada
-cd1009y.ada
-cd1009z.ada
-cd1c03a.ada
-cd1c03b.ada
-cd1c03c.ada
-cd1c03e.tst
-cd1c03f.ada
-cd1c03g.ada
-cd1c03h.ada
-cd1c03i.ada
-cd1c04a.ada
-cd1c04d.ada
-cd1c04e.ada
-cd1c06a.tst
-cd20001.a
-cd2a21a.ada
-cd2a21c.ada
-cd2a21e.ada
-cd2a22a.ada
-cd2a22e.ada
-cd2a22i.ada
-cd2a22j.ada
-cd2a23a.ada
-cd2a23e.ada
-cd2a24a.ada
-cd2a24e.ada
-cd2a24i.ada
-cd2a24j.ada
-cd2a31a.ada
-cd2a31c.ada
-cd2a31e.ada
-cd2a32a.ada
-cd2a32c.ada
-cd2a32e.ada
-cd2a32g.ada
-cd2a32i.ada
-cd2a32j.ada
-cd2a51a.ada
-cd2a53a.ada
-cd2a53e.ada
-cd2a83c.tst
-cd2a91c.tst
-cd2b11a.ada
-cd2b11b.ada
-cd2b11d.ada
-cd2b11e.ada
-cd2b11f.ada
-cd2b15c.ada
-cd2b16a.ada
-cd2c11a.tst
-cd2c11d.tst
-cd2d11a.ada
-cd2d13a.ada
-cd30001.a
-cd30002.a
-cd30003.a
-cd30004.a
-cd300050.am
-cd300051.c
-cd3014a.ada
-cd3014c.ada
-cd3014d.ada
-cd3014f.ada
-cd3015a.ada
-cd3015c.ada
-cd3015e.ada
-cd3015f.ada
-cd3015g.ada
-cd3015h.ada
-cd3015i.ada
-cd3015k.ada
-cd3021a.ada
-cd33001.a
-cd33002.a
-cd40001.a
-cd4031a.ada
-cd4041a.tst
-cd4051a.ada
-cd4051b.ada
-cd4051c.ada
-cd4051d.ada
-cd5003a.ada
-cd5003b.ada
-cd5003c.ada
-cd5003d.ada
-cd5003e.ada
-cd5003f.ada
-cd5003g.ada
-cd5003h.ada
-cd5003i.ada
-cd5011a.ada
-cd5011c.ada
-cd5011e.ada
-cd5011g.ada
-cd5011i.ada
-cd5011k.ada
-cd5011m.ada
-cd5011q.ada
-cd5011s.ada
-cd5012a.ada
-cd5012b.ada
-cd5012e.ada
-cd5012f.ada
-cd5012i.ada
-cd5012m.ada
-cd5013a.ada
-cd5013c.ada
-cd5013e.ada
-cd5013g.ada
-cd5013i.ada
-cd5013k.ada
-cd5013m.ada
-cd5013o.ada
-cd5014a.ada
-cd5014c.ada
-cd5014e.ada
-cd5014g.ada
-cd5014i.ada
-cd5014k.ada
-cd5014m.ada
-cd5014o.ada
-cd5014t.ada
-cd5014v.ada
-cd5014x.ada
-cd5014y.ada
-cd5014z.ada
-cd70001.a
-cd7002a.ada
-cd7007b.ada
-cd7101d.ada
-cd7101e.dep
-cd7101f.dep
-cd7101g.tst
-cd7103d.ada
-cd7202a.ada
-cd7204b.ada
-cd7204c.ada
-cd72a01.a
-cd72a02.a
-cd7305a.ada
-cd90001.a
-cd92001.a
-cda201a.ada
-cda201b.ada
-cda201c.ada
-cda201e.ada
-cdb0a01.a
-cdb0a02.a
-cdd1001.a
-cdd2001.a
-cde0001.a
-ce2102a.ada
-ce2102b.ada
-ce2102c.tst
-ce2102d.ada
-ce2102e.ada
-ce2102f.ada
-ce2102g.ada
-ce2102h.tst
-ce2102i.ada
-ce2102j.ada
-ce2102k.ada
-ce2102l.ada
-ce2102m.ada
-ce2102n.ada
-ce2102o.ada
-ce2102p.ada
-ce2102q.ada
-ce2102r.ada
-ce2102s.ada
-ce2102t.ada
-ce2102u.ada
-ce2102v.ada
-ce2102w.ada
-ce2102x.ada
-ce2102y.ada
-ce2103a.tst
-ce2103b.tst
-ce2103c.ada
-ce2103d.ada
-ce2104a.ada
-ce2104b.ada
-ce2104c.ada
-ce2104d.ada
-ce2106a.ada
-ce2106b.ada
-ce2108e.ada
-ce2108f.ada
-ce2108g.ada
-ce2108h.ada
-ce2109a.ada
-ce2109b.ada
-ce2109c.ada
-ce2110a.ada
-ce2110c.ada
-ce2111a.ada
-ce2111b.ada
-ce2111c.ada
-ce2111e.ada
-ce2111f.ada
-ce2111g.ada
-ce2111i.ada
-ce2201a.ada
-ce2201b.ada
-ce2201c.ada
-ce2201d.dep
-ce2201e.dep
-ce2201f.ada
-ce2201g.ada
-ce2201h.ada
-ce2201i.ada
-ce2201j.ada
-ce2201k.ada
-ce2201l.ada
-ce2201m.ada
-ce2201n.ada
-ce2202a.ada
-ce2203a.tst
-ce2204a.ada
-ce2204b.ada
-ce2204c.ada
-ce2204d.ada
-ce2205a.ada
-ce2206a.ada
-ce2208b.ada
-ce2401a.ada
-ce2401b.ada
-ce2401c.ada
-ce2401e.ada
-ce2401f.ada
-ce2401h.ada
-ce2401i.ada
-ce2401j.ada
-ce2401k.ada
-ce2401l.ada
-ce2402a.ada
-ce2403a.tst
-ce2404a.ada
-ce2404b.ada
-ce2405b.ada
-ce2406a.ada
-ce2407a.ada
-ce2407b.ada
-ce2408a.ada
-ce2408b.ada
-ce2409a.ada
-ce2409b.ada
-ce2410a.ada
-ce2410b.ada
-ce2411a.ada
-ce3002b.tst
-ce3002c.tst
-ce3002d.ada
-ce3002f.ada
-ce3102a.ada
-ce3102b.tst
-ce3102d.ada
-ce3102e.ada
-ce3102f.ada
-ce3102g.ada
-ce3102h.ada
-ce3102i.ada
-ce3102j.ada
-ce3102k.ada
-ce3103a.ada
-ce3104a.ada
-ce3104b.ada
-ce3104c.ada
-ce3106a.ada
-ce3106b.ada
-ce3107a.tst
-ce3107b.ada
-ce3108a.ada
-ce3108b.ada
-ce3110a.ada
-ce3112c.ada
-ce3112d.ada
-ce3114a.ada
-ce3115a.ada
-ce3201a.ada
-ce3202a.ada
-ce3206a.ada
-ce3207a.ada
-ce3301a.ada
-ce3302a.ada
-ce3303a.ada
-ce3304a.tst
-ce3305a.ada
-ce3306a.ada
-ce3401a.ada
-ce3402a.ada
-ce3402c.ada
-ce3402d.ada
-ce3402e.ada
-ce3403a.ada
-ce3403b.ada
-ce3403c.ada
-ce3403d.ada
-ce3403e.ada
-ce3403f.ada
-ce3404a.ada
-ce3404b.ada
-ce3404c.ada
-ce3404d.ada
-ce3405a.ada
-ce3405c.ada
-ce3405d.ada
-ce3406a.ada
-ce3406b.ada
-ce3406c.ada
-ce3406d.ada
-ce3407a.ada
-ce3407b.ada
-ce3407c.ada
-ce3408a.ada
-ce3408b.ada
-ce3408c.ada
-ce3409a.ada
-ce3409b.ada
-ce3409c.ada
-ce3409d.ada
-ce3409e.ada
-ce3410a.ada
-ce3410b.ada
-ce3410c.ada
-ce3410d.ada
-ce3410e.ada
-ce3411a.ada
-ce3411c.ada
-ce3412a.ada
-ce3413a.ada
-ce3413b.ada
-ce3413c.ada
-ce3414a.ada
-ce3601a.ada
-ce3602a.ada
-ce3602b.ada
-ce3602c.ada
-ce3602d.ada
-ce3603a.ada
-ce3604a.ada
-ce3604b.ada
-ce3605a.ada
-ce3605b.ada
-ce3605c.ada
-ce3605d.ada
-ce3605e.ada
-ce3606a.ada
-ce3606b.ada
-ce3701a.ada
-ce3704a.ada
-ce3704b.ada
-ce3704c.ada
-ce3704d.ada
-ce3704e.ada
-ce3704f.ada
-ce3704m.ada
-ce3704n.ada
-ce3704o.ada
-ce3705a.ada
-ce3705b.ada
-ce3705c.ada
-ce3705d.ada
-ce3705e.ada
-ce3706c.ada
-ce3706d.ada
-ce3706f.ada
-ce3706g.ada
-ce3707a.ada
-ce3708a.ada
-ce3801a.ada
-ce3801b.ada
-ce3804a.ada
-ce3804b.ada
-ce3804c.ada
-ce3804d.ada
-ce3804e.ada
-ce3804f.ada
-ce3804g.ada
-ce3804h.ada
-ce3804i.ada
-ce3804j.ada
-ce3804m.ada
-ce3804o.ada
-ce3804p.ada
-ce3805a.ada
-ce3805b.ada
-ce3806a.ada
-ce3806b.ada
-ce3806c.ada
-ce3806d.ada
-ce3806e.ada
-ce3806f.ada
-ce3806g.ada
-ce3806h.ada
-ce3809a.ada
-ce3809b.ada
-ce3810a.ada
-ce3810b.ada
-ce3815a.ada
-ce3901a.ada
-ce3902b.ada
-ce3904a.ada
-ce3904b.ada
-ce3905a.ada
-ce3905b.ada
-ce3905c.ada
-ce3905l.ada
-ce3906a.ada
-ce3906b.ada
-ce3906c.ada
-ce3906d.ada
-ce3906e.ada
-ce3906f.ada
-ce3907a.ada
-ce3908a.ada
-checkfil.ada
-coverage.txt
-cxa3001.a
-cxa3002.a
-cxa3003.a
-cxa3004.a
-cxa4001.a
-cxa4002.a
-cxa4003.a
-cxa4004.a
-cxa4005.a
-cxa4006.a
-cxa4007.a
-cxa4008.a
-cxa4009.a
-cxa4010.a
-cxa4011.a
-cxa4012.a
-cxa4013.a
-cxa4014.a
-cxa4015.a
-cxa4016.a
-cxa4017.a
-cxa4018.a
-cxa4019.a
-cxa4020.a
-cxa4021.a
-cxa4022.a
-cxa4023.a
-cxa4024.a
-cxa4025.a
-cxa4026.a
-cxa4027.a
-cxa4028.a
-cxa4029.a
-cxa4030.a
-cxa4031.a
-cxa4032.a
-cxa4033.a
-cxa4034.a
-cxa5011.a
-cxa5012.a
-cxa5013.a
-cxa5015.a
-cxa5a01.a
-cxa5a02.a
-cxa5a03.a
-cxa5a04.a
-cxa5a05.a
-cxa5a06.a
-cxa5a07.a
-cxa5a08.a
-cxa5a09.a
-cxa5a10.a
-cxa8001.a
-cxa8002.a
-cxa8003.a
-cxa9001.a
-cxa9002.a
-cxaa001.a
-cxaa002.a
-cxaa003.a
-cxaa004.a
-cxaa005.a
-cxaa006.a
-cxaa007.a
-cxaa008.a
-cxaa009.a
-cxaa010.a
-cxaa011.a
-cxaa012.a
-cxaa013.a
-cxaa014.a
-cxaa015.a
-cxaa016.a
-cxaa017.a
-cxaa018.a
-cxaa019.a
-cxab001.a
-cxac001.a
-cxac002.a
-cxac003.a
-cxac004.a
-cxac005.a
-cxaca01.a
-cxaca02.a
-cxacb01.a
-cxacb02.a
-cxacc01.a
-cxaf001.a
-cxb2001.a
-cxb2002.a
-cxb2003.a
-cxb3001.a
-cxb3002.a
-cxb3003.a
-cxb30040.c
-cxb30041.am
-cxb3005.a
-cxb30060.c
-cxb30061.am
-cxb3007.a
-cxb3008.a
-cxb3009.a
-cxb3010.a
-cxb3011.a
-cxb3012.a
-cxb30130.c
-cxb30131.c
-cxb30132.am
-cxb3014.a
-cxb3015.a
-cxb3016.a
-cxb4001.a
-cxb4002.a
-cxb4003.a
-cxb4004.a
-cxb4005.a
-cxb4006.a
-cxb4007.a
-cxb4008.a
-cxb40090.cbl
-cxb40091.cbl
-cxb40092.cbl
-cxb40093.am
-cxb5001.a
-cxb5002.a
-cxb5003.a
-cxb50040.ftn
-cxb50041.ftn
-cxb50042.am
-cxb50050.ftn
-cxb50051.ftn
-cxb50052.am
-cxc3001.a
-cxc3002.a
-cxc3003.a
-cxc3004.a
-cxc3005.a
-cxc3006.a
-cxc3007.a
-cxc3008.a
-cxc3009.a
-cxc6001.a
-cxc6002.a
-cxc6003.a
-cxc7001.a
-cxc7002.a
-cxc7003.a
-cxc7004.a
-cxd1001.a
-cxd1002.a
-cxd1003.a
-cxd1004.a
-cxd1005.a
-cxd1006.a
-cxd1007.a
-cxd1008.a
-cxd2001.a
-cxd2002.a
-cxd2003.a
-cxd2004.a
-cxd2006.a
-cxd2007.a
-cxd2008.a
-cxd3001.a
-cxd3002.a
-cxd3003.a
-cxd4001.a
-cxd4002.a
-cxd4003.a
-cxd4004.a
-cxd4005.a
-cxd4006.a
-cxd4007.a
-cxd4008.a
-cxd4009.a
-cxd4010.a
-cxd5001.a
-cxd6001.a
-cxd6002.a
-cxd6003.a
-cxd8001.a
-cxd8002.a
-cxd8003.a
-cxd9001.a
-cxda001.a
-cxda002.a
-cxda003.a
-cxda004.a
-cxdb001.a
-cxdb002.a
-cxdb003.a
-cxdb004.a
-cxe1001.a
-cxe2001.a
-cxe2002.a
-cxe4001.a
-cxe4002.a
-cxe4003.a
-cxe4004.a
-cxe4005.a
-cxe4006.a
-cxe5001.a
-cxe5002.a
-cxe5003.a
-cxf1001.a
-cxf2001.a
-cxf2002.a
-cxf2003.a
-cxf2004.a
-cxf2005.a
-cxf2a01.a
-cxf2a02.a
-cxf3001.a
-cxf3002.a
-cxf3003.a
-cxf3004.a
-cxf3a01.a
-cxf3a02.a
-cxf3a03.a
-cxf3a04.a
-cxf3a05.a
-cxf3a06.a
-cxf3a07.a
-cxf3a08.a
-cxg1001.a
-cxg1002.a
-cxg1003.a
-cxg1004.a
-cxg1005.a
-cxg2001.a
-cxg2002.a
-cxg2003.a
-cxg2004.a
-cxg2005.a
-cxg2006.a
-cxg2007.a
-cxg2008.a
-cxg2009.a
-cxg2010.a
-cxg2011.a
-cxg2012.a
-cxg2013.a
-cxg2014.a
-cxg2015.a
-cxg2016.a
-cxg2017.a
-cxg2018.a
-cxg2019.a
-cxg2020.a
-cxg2021.a
-cxg2022.a
-cxg2023.a
-cxg2024.a
-cxh1001.a
-cxh3001.a
-cxh3002.a
-cxh30030.a
-cxh30031.am
-cz00004.a
-cz1101a.ada
-cz1102a.ada
-cz1103a.ada
-d4a002a.ada
-d4a002b.ada
-d4a004a.ada
-d4a004b.ada
-e28002b.ada
-e28005d.ada
-e52103y.ada
-eb4011a.ada
-eb4012a.ada
-eb4014a.ada
-ee3203a.ada
-ee3204a.ada
-ee3402b.ada
-ee3409f.ada
-ee3412c.ada
-enumchek.ada
-f340a000.a
-f340a001.a
-f341a00.a
-f390a00.a
-f392a00.a
-f392c00.a
-f392d00.a
-f393a00.a
-f393b00.a
-f3a2a00.a
-f460a00.a
-f730a000.a
-f730a001.a
-f731a00.a
-f940a00.a
-f954a00.a
-fa11a00.a
-fa11b00.a
-fa11c00.a
-fa11d00.a
-fa13a00.a
-fa13b00.a
-fa21a00.a
-fb20a00.a
-fb40a00.a
-fc50a00.a
-fc51a00.a
-fc51b00.a
-fc51c00.a
-fc51d00.a
-fc54a00.a
-fc70a00.a
-fc70b00.a
-fc70c00.a
-fcndecl.ada
-fd72a00.a
-fdb0a00.a
-fxa5a00.a
-fxaca00.a
-fxacb00.a
-fxacc00.a
-fxc6a00.a
-fxe2a00.a
-fxf2a00.a
-fxf3a00.a
-impdef.a
-impdefc.a
-impdefd.a
-impdefe.a
-impdefg.a
-impdefh.a
-la140010.a
-la140011.am
-la140012.a
-la140020.a
-la140021.am
-la140022.a
-la140030.a
-la140031.a
-la140032.am
-la140033.a
-la140040.a
-la140041.am
-la140042.a
-la140050.a
-la140051.a
-la140052.am
-la140053.a
-la140060.a
-la140061.a
-la140062.am
-la140063.a
-la140070.a
-la140071.a
-la140072.am
-la140073.a
-la140080.a
-la140081.a
-la140082.am
-la140083.a
-la140090.a
-la140091.a
-la140092.am
-la140093.a
-la140100.a
-la140101.a
-la140102.am
-la140103.a
-la140110.a
-la140111.a
-la140112.am
-la140113.a
-la140120.a
-la140121.a
-la140122.am
-la140123.a
-la140130.a
-la140131.a
-la140132.am
-la140133.a
-la140140.a
-la140141.a
-la140142.am
-la140143.a
-la140150.a
-la140151.a
-la140152.am
-la140153.a
-la140160.a
-la140161.a
-la140162.am
-la140163.a
-la140170.a
-la140171.a
-la140172.am
-la140173.a
-la140180.a
-la140181.a
-la140182.am
-la140183.a
-la140190.a
-la140191.a
-la140192.am
-la140193.a
-la140200.a
-la140201.a
-la140202.am
-la140203.a
-la140210.a
-la140211.am
-la140212.a
-la140220.a
-la140221.am
-la140222.a
-la140240.a
-la140241.a
-la140242.am
-la140243.a
-la140250.a
-la140251.am
-la140252.a
-la140260.a
-la140261.a
-la140262.am
-la140263.a
-la140270.a
-la140271.a
-la140272.am
-la140273.a
-la200010.a
-la200011.a
-la200012.am
-la5001a0.ada
-la5001a1.ada
-la5001a2.ada
-la5001a3.ada
-la5001a4.ada
-la5001a5.ada
-la5001a6.ada
-la5001a7.ada
-la5007a0.ada
-la5007a1.ada
-la5007b0.ada
-la5007b1.ada
-la5007c0.ada
-la5007c1.ada
-la5007d0.ada
-la5007d1.ada
-la5007e0.ada
-la5007e1.ada
-la5007f0.ada
-la5007f1.ada
-la5007g0.ada
-la5007g1.ada
-la5008a0.ada
-la5008a1.ada
-la5008b0.ada
-la5008b1.ada
-la5008c0.ada
-la5008c1.ada
-la5008d0.ada
-la5008d1.ada
-la5008e0.ada
-la5008e1.ada
-la5008f0.ada
-la5008f1.ada
-la5008g0.ada
-la5008g1.ada
-lencheck.ada
-lxd70010.a
-lxd70011.a
-lxd70012.am
-lxd70030.a
-lxd70031.a
-lxd70032.am
-lxd70040.a
-lxd70041.a
-lxd70042.am
-lxd70050.a
-lxd70051.a
-lxd70052.am
-lxd70060.a
-lxd70061.a
-lxd70062.am
-lxd70070.a
-lxd70071.a
-lxd70072.am
-lxd70080.a
-lxd70081.a
-lxd70082.am
-lxd70090.a
-lxd70091.a
-lxd70092.am
-lxe30010.am
-lxe30011.am
-lxe30020.am
-lxe30021.am
-lxh40010.a
-lxh40011.a
-lxh40012.am
-lxh40020.a
-lxh40021.a
-lxh40022.am
-lxh40030.a
-lxh40031.a
-lxh40032.a
-lxh40033.am
-lxh40040.a
-lxh40041.a
-lxh40042.a
-lxh40043.am
-lxh40050.a
-lxh40051.a
-lxh40052.a
-lxh40053.am
-lxh40060.a
-lxh40061.a
-lxh40062.a
-lxh40063.am
-lxh40070.a
-lxh40071.a
-lxh40072.a
-lxh40073.am
-lxh40080.a
-lxh40081.a
-lxh40082.a
-lxh40083.a
-lxh40084.am
-lxh40090.a
-lxh40091.a
-lxh40092.a
-lxh40093.am
-lxh40100.a
-lxh40101.a
-lxh40102.a
-lxh40103.am
-lxh40110.a
-lxh40111.a
-lxh40112.am
-lxh40120.a
-lxh40121.a
-lxh40122.a
-lxh40123.am
-lxh40130.a
-lxh40131.a
-lxh40132.a
-lxh40133.am
-lxh40140.a
-lxh40141.a
-lxh40142.am
-macro.dfs
-macrosub.ada
-repbody.ada
-repspec.ada
-spprt13s.tst
-tctouch.ada
-testobj.txt
-tsttests.dat
-ug-apxa.doc
-ug-apxa.pdf
-ug-apxa.txt
-ug-apxb.doc
-ug-apxb.pdf
-ug-apxb.txt
-ug-apxc.doc
-ug-apxc.pdf
-ug-apxc.txt
-ug-apxd.doc
-ug-apxd.pdf
-ug-apxd.txt
-ug-body.doc
-ug-body.pdf
-ug-body.txt
-widechr.a
diff --git a/gcc/testsuite/ada/acats/support/acats26.lst b/gcc/testsuite/ada/acats/support/acats26.lst
new file mode 100644
index 00000000000..d99145eb5af
--- /dev/null
+++ b/gcc/testsuite/ada/acats/support/acats26.lst
@@ -0,0 +1,4332 @@
+a22006b.ada
+a22006c.ada
+a22006d.ada
+a26007a.tst
+a27003a.ada
+a29003a.ada
+a2a031a.ada
+a33003a.ada
+a34017c.ada
+a35101b.ada
+a35402a.ada
+a35801f.ada
+a35902c.ada
+a38106d.ada
+a38106e.ada
+a49027a.ada
+a49027b.ada
+a49027c.ada
+a54b01a.ada
+a54b02a.ada
+a55b12a.ada
+a55b13a.ada
+a55b14a.ada
+a71004a.ada
+a73001i.ada
+a73001j.ada
+a74105b.ada
+a74106a.ada
+a74106b.ada
+a74106c.ada
+a74205e.ada
+a74205f.ada
+a83009a.ada
+a83009b.ada
+a83a02a.ada
+a83a02b.ada
+a83a06a.ada
+a83a08a.ada
+a83c01c.ada
+a83c01h.ada
+a83c01i.ada
+a85007d.ada
+a85013b.ada
+a87b59a.ada
+a95001c.ada
+a95074d.ada
+a97106a.ada
+a99006a.ada
+aa2010a.ada
+aa2012a.ada
+acats25.lst
+ac1015b.ada
+ac3106a.ada
+ac3206a.ada
+ac3207a.ada
+ad7001b.ada
+ad7001c0.ada
+ad7001c1.ada
+ad7001d0.ada
+ad7001d1.ada
+ad7006a.ada
+ad7101a.ada
+ad7101c.ada
+ad7102a.ada
+ad7103a.ada
+ad7103c.ada
+ad7104a.ada
+ad7201a.ada
+ad7203b.ada
+ad7205b.ada
+ad8011a.tst
+ada101a.ada
+ae2113a.ada
+ae2113b.ada
+ae3002g.ada
+ae3101a.ada
+ae3702a.ada
+ae3709a.ada
+b22001a.tst
+b22001b.tst
+b22001c.tst
+b22001d.tst
+b22001e.tst
+b22001f.tst
+b22001g.tst
+b22001h.ada
+b22001i.tst
+b22001j.tst
+b22001k.tst
+b22001l.tst
+b22001m.tst
+b22001n.tst
+b23002a.ada
+b23004a.ada
+b23004b.ada
+b24001a.ada
+b24001b.ada
+b24001c.ada
+b24005a.ada
+b24005b.ada
+b24007a.ada
+b24009a.ada
+b24009b.ada
+b24104a.ada
+b24204a.ada
+b24204b.ada
+b24204c.ada
+b24204d.ada
+b24204e.ada
+b24204f.ada
+b24205a.ada
+b24206a.ada
+b24206b.ada
+b24211b.ada
+b25002a.ada
+b25002b.ada
+b26001a.ada
+b26002a.ada
+b26005a.ada
+b28001a.ada
+b28001b.ada
+b28001c.ada
+b28001d.ada
+b28001e.ada
+b28001f.ada
+b28001g.ada
+b28001h.ada
+b28001i.ada
+b28001j.ada
+b28001k.ada
+b28001l.ada
+b28001m.ada
+b28001n.ada
+b28001o.ada
+b28001p.ada
+b28001q.ada
+b28001r.ada
+b28001s.ada
+b28001t.ada
+b28001u.ada
+b28001v.ada
+b28001w.ada
+b29001a.ada
+b2a003a.ada
+b2a003b.ada
+b2a003c.ada
+b2a003d.ada
+b2a003e.ada
+b2a003f.ada
+b2a005a.ada
+b2a005b.ada
+b2a007a.ada
+b2a010a.ada
+b2a021a.ada
+b32101a.ada
+b32103a.ada
+b32104a.ada
+b32106a.ada
+b32201a.ada
+b32202a.ada
+b32202b.ada
+b32202c.ada
+b330001.a
+b33001a.ada
+b33101a.ada
+b33102a.ada
+b33102b.ada
+b33102c.ada
+b33102d.ada
+b33102e.ada
+b33201a.ada
+b33201b.ada
+b33201c.ada
+b33201d.ada
+b33201e.ada
+b33204a.ada
+b33205a.ada
+b33302a.ada
+b34001b.ada
+b34001e.ada
+b34002b.ada
+b34003b.ada
+b34004b.ada
+b34005b.ada
+b34005e.ada
+b34005h.ada
+b34005k.ada
+b34005n.ada
+b34005q.ada
+b34005t.ada
+b34006b.ada
+b34006e.ada
+b34006h.ada
+b34006k.ada
+b34007b.ada
+b34007e.ada
+b34007h.ada
+b34007k.ada
+b34007n.ada
+b34007q.ada
+b34007t.ada
+b34008b.ada
+b34009b.ada
+b34009e.ada
+b34009h.ada
+b34009k.ada
+b34011a.ada
+b34014b.ada
+b34014d.ada
+b34014f.ada
+b34014i.ada
+b34014m.ada
+b34014o.ada
+b34014q.ada
+b34014s.ada
+b34014v.ada
+b34014z.ada
+b35004a.ada
+b35101a.ada
+b35103a.ada
+b35103b.ada
+b35302a.ada
+b354001.a
+b35401a.ada
+b35401b.ada
+b35403a.ada
+b35501a.ada
+b35501b.ada
+b35506a.ada
+b35506b.ada
+b35506c.ada
+b35506d.ada
+b35701a.ada
+b35709a.ada
+b35901a.ada
+b35901c.ada
+b35901d.ada
+b35a01a.ada
+b35a08a.ada
+b360001.a
+b36001a.ada
+b36002a.ada
+b36101a.ada
+b36102a.ada
+b36103a.ada
+b36105c.dep
+b36171a.ada
+b36171b.ada
+b36171c.ada
+b36171d.ada
+b36171e.ada
+b36171f.ada
+b36171g.ada
+b36171h.ada
+b36171i.ada
+b36201a.ada
+b36307a.ada
+b370001.a
+b370002.a
+b37004a.ada
+b37004b.ada
+b37004c.ada
+b37004d.ada
+b37004e.ada
+b37004f.ada
+b37004g.ada
+b3710010.a
+b3710011.a
+b3710012.a
+b3710013.a
+b3710014.am
+b37101a.ada
+b37102a.ada
+b37104a.ada
+b37106a.ada
+b37201a.ada
+b37201b.ada
+b37203a.ada
+b37301i.ada
+b37301j.ada
+b37302a.ada
+b37303a.ada
+b37309b.ada
+b37310b.ada
+b37311a.ada
+b37401a.ada
+b37409b.ada
+b380001.a
+b38003a.ada
+b38003b.ada
+b38003c.ada
+b38003d.ada
+b38008a.ada
+b38008b.ada
+b38009a.ada
+b38009d.ada
+b38101a.ada
+b38101b.ada
+b38101c.ada
+b38103a.ada
+b38103b.ada
+b38103c0.ada
+b38103c1.ada
+b38103c2.ada
+b38103c3.ada
+b38103d.ada
+b38103e0.ada
+b38103e1.ada
+b38105a.ada
+b38105b.ada
+b38203a.ada
+b390001.a
+b391001.a
+b391002.a
+b391003.a
+b391004.a
+b392001.a
+b392002.a
+b392003.a
+b392004.a
+b392005.a
+b392006.a
+b392007.a
+b392008.a
+b392009.a
+b392010.a
+b392011.a
+b393001.a
+b393002.a
+b393003.a
+b393004.a
+b393005.a
+b393006.a
+b393007.a
+b3a0001.a
+b3a0002.a
+b3a0003.a
+b3a0004.a
+b3a2002.a
+b3a2003.a
+b3a2004.a
+b3a2005.a
+b3a2006.a
+b3a2007.a
+b3a2008.a
+b3a2009.a
+b3a2010.a
+b3a2011.a
+b3a2012.a
+b3a2013.a
+b3a2014.a
+b3a2015.a
+b3a2016.a
+b41101a.ada
+b41101c.ada
+b41201a.ada
+b41201c.ada
+b41202c.ada
+b41202d.ada
+b41324b.ada
+b41325b.ada
+b41327b.ada
+b420001.a
+b430001.a
+b43001m.ada
+b43002d.ada
+b43002e.ada
+b43002f.ada
+b43002g.ada
+b43002h.ada
+b43002i.ada
+b43002j.ada
+b43002k.ada
+b43005a.ada
+b43005b.ada
+b43005f.ada
+b43101a.ada
+b43102a.ada
+b43102b.ada
+b43105c.ada
+b43201a.ada
+b43201c.ada
+b43201d.ada
+b43202a.ada
+b43202c.ada
+b43209b.ada
+b43221a.ada
+b43221b.ada
+b43223a.ada
+b44001a.ada
+b44001b.ada
+b44002b.ada
+b44002c.ada
+b44004a.ada
+b44004b.ada
+b44004c.ada
+b44004d.ada
+b44004e.ada
+b45102a.ada
+b45116a.ada
+b45121a.ada
+b45204a.ada
+b45205a.ada
+b45206c.ada
+b45207a.ada
+b45207b.ada
+b45207c.ada
+b45207d.ada
+b45207g.ada
+b45207h.ada
+b45207i.ada
+b45207j.ada
+b45207m.ada
+b45207n.ada
+b45207o.ada
+b45207p.ada
+b45207s.ada
+b45207t.ada
+b45207u.ada
+b45207v.ada
+b45208a.ada
+b45208b.ada
+b45208c.ada
+b45208g.ada
+b45208h.ada
+b45208i.ada
+b45208m.ada
+b45208n.ada
+b45208s.ada
+b45208t.ada
+b45209a.ada
+b45209b.ada
+b45209c.ada
+b45209d.ada
+b45209e.ada
+b45209f.ada
+b45209g.ada
+b45209h.ada
+b45209i.ada
+b45209j.ada
+b45209k.ada
+b45221a.ada
+b45261a.ada
+b45261b.ada
+b45261c.ada
+b45261d.ada
+b45301a.ada
+b45301b.ada
+b45301c.ada
+b45302a.ada
+b45341a.ada
+b455002.a
+b45501a.ada
+b45501b.ada
+b45501c.ada
+b45522a.ada
+b45537a.ada
+b45601a.ada
+b45625a.ada
+b45661a.ada
+b460001.a
+b460002.a
+b460004.a
+b460005.a
+b460006.a
+b46002a.ada
+b46003a.ada
+b46004a.ada
+b46004b.ada
+b46004c.ada
+b46004d.ada
+b46004e.ada
+b46005a.ada
+b47001a.ada
+b480001.a
+b48001a.ada
+b48001b.ada
+b48002a.ada
+b48002b.ada
+b48002c.ada
+b48002d.ada
+b48002e.ada
+b48002g.ada
+b48003a.ada
+b48003b.ada
+b48003c.ada
+b48003d.ada
+b48003e.ada
+b490001.a
+b490002.a
+b49002a.ada
+b49004a.ada
+b49005a.ada
+b49007a.ada
+b49007b.ada
+b49008a.ada
+b49008c.ada
+b49009b.ada
+b49009c.ada
+b49010a.ada
+b49011a.ada
+b4a010c.ada
+b4a016a.ada
+b51001a.ada
+b51004b.ada
+b51004c.ada
+b52002a.ada
+b52002b.ada
+b52002c.ada
+b52002d.ada
+b52002e.ada
+b52002f.ada
+b52002g.ada
+b52004a.ada
+b52004b.ada
+b52004c.ada
+b52004d.dep
+b52004e.dep
+b53001a.ada
+b53001b.ada
+b53002a.ada
+b53002b.ada
+b53009a.ada
+b53009b.ada
+b53009c.ada
+b54a01b.ada
+b54a01f.ada
+b54a01g.ada
+b54a01l.ada
+b54a05a.ada
+b54a05b.ada
+b54a10a.ada
+b54a12a.ada
+b54a20a.ada
+b54a21a.ada
+b54a25a.ada
+b54a60a.ada
+b54a60b.ada
+b54b01b.tst
+b54b01c.ada
+b54b02b.ada
+b54b02c.ada
+b54b02d.ada
+b54b04a.ada
+b54b04b.ada
+b54b05a.ada
+b54b06a.ada
+b55a01a.ada
+b55a01d.ada
+b55a01e.ada
+b55a01j.ada
+b55a01k.ada
+b55a01l.ada
+b55a01n.ada
+b55a01o.ada
+b55a01t.ada
+b55a01u.ada
+b55a01v.ada
+b55b01a.ada
+b55b01b.ada
+b55b09b.ada
+b55b09c.dep
+b55b09d.dep
+b55b12b.ada
+b55b12c.ada
+b55b17a.ada
+b55b17b.ada
+b55b17c.ada
+b55b18a.ada
+b56001a.ada
+b56001d.ada
+b56001e.ada
+b56001f.ada
+b56001g.ada
+b56001h.ada
+b57001a.ada
+b57001b.ada
+b57001c.ada
+b57001d.ada
+b58001a.ada
+b58002a.ada
+b58002b.ada
+b58002c.ada
+b58003a.ada
+b58003b.ada
+b59001a.ada
+b59001c.ada
+b59001d.ada
+b59001e.ada
+b59001f.ada
+b59001g.ada
+b59001h.ada
+b59001i.ada
+b610001.a
+b61001f.ada
+b61005a.ada
+b61006a.ada
+b61011a.ada
+b62001a.ada
+b62001b.ada
+b62001c.ada
+b62001d.ada
+b63001a.ada
+b63001b.ada
+b63005a.ada
+b63005b.ada
+b63006a.ada
+b63009a.ada
+b63009b.ada
+b63009c0.ada
+b63009c1.ada
+b63009c2.ada
+b63009c3.ada
+b63103a.ada
+b64002a.ada
+b64002c.ada
+b64003a.ada
+b64004a.ada
+b64004b.ada
+b64004c.ada
+b64004d.ada
+b64004e.ada
+b64004f.ada
+b641001.a
+b64101a.ada
+b64201a.ada
+b65001a.ada
+b65002a.ada
+b65002b.ada
+b660001.a
+b660002.a
+b66001a.ada
+b66001b.ada
+b66001c.ada
+b66001d.ada
+b67001a.ada
+b67001b.ada
+b67001c.ada
+b67001d.ada
+b67001h.ada
+b67001i.ada
+b67001j.ada
+b67001k.ada
+b67004a.ada
+b71001a.ada
+b71001b.ada
+b71001c.ada
+b71001d.ada
+b71001f.ada
+b71001g.ada
+b71001h.ada
+b71001i.ada
+b71001j.ada
+b71001l.ada
+b71001m.ada
+b71001n.ada
+b71001o.ada
+b71001p.ada
+b71001r.ada
+b71001t.ada
+b71001u.ada
+b71001v.ada
+b7200010.a
+b7200011.a
+b7200012.a
+b7200013.a
+b7200014.a
+b7200015.a
+b7200016.a
+b730001.a
+b730002.a
+b730003.a
+b730004.a
+b730005.a
+b7300060.a
+b7300061.a
+b7300062.a
+b7300063.am
+b73001a.ada
+b73001b.ada
+b73001c.ada
+b73001d.ada
+b73001e.ada
+b73001f.ada
+b73001g.ada
+b73001h.ada
+b73004a.ada
+b73004b0.ada
+b73004b1.ada
+b73004b2.ada
+b7310010.a
+b7310011.a
+b7310012.a
+b7310013.a
+b7310014.a
+b7310015.a
+b7310016.am
+b731a01.a
+b731a02.a
+b740001.a
+b74001a.ada
+b74001b.ada
+b74101a.ada
+b74101b.ada
+b74103a.ada
+b74103d.ada
+b74103e.ada
+b74103g.ada
+b74103i.ada
+b74104a.ada
+b74105a.ada
+b74105c.ada
+b74201a.ada
+b74202a.ada
+b74202b.ada
+b74202c.ada
+b74202d.ada
+b74203b.ada
+b74203c.ada
+b74203d.ada
+b74203e.ada
+b74205a.ada
+b74207a.ada
+b74304a.ada
+b74304b.ada
+b74304c.ada
+b74404a.ada
+b74404b.ada
+b74409a.ada
+b810001.a
+b830001.a
+b8300020.a
+b8300021.a
+b8300022.a
+b8300023.a
+b8300024.a
+b8300025.am
+b83001a.ada
+b83003a.ada
+b83003b0.ada
+b83003b1.ada
+b83003b2.ada
+b83003b3.ada
+b83003b4.ada
+b83003c.ada
+b83004a.ada
+b83004b0.ada
+b83004b1.ada
+b83004b2.ada
+b83004b3.ada
+b83004c0.ada
+b83004c1.ada
+b83004c2.ada
+b83004d0.ada
+b83004d1.ada
+b83004d2.ada
+b83004d3.ada
+b83006a.ada
+b83006b.ada
+b83008a.ada
+b83008b.ada
+b83011a.ada
+b83023b.ada
+b83024b.ada
+b83024f0.ada
+b83024f1.ada
+b83024f2.ada
+b83024f3.ada
+b83026b.ada
+b83027b.ada
+b83027d.ada
+b83028b.ada
+b83029b.ada
+b83030b.ada
+b83030d.ada
+b83031b.ada
+b83031d.ada
+b83031f.ada
+b83032b.ada
+b83033b.ada
+b83041e.ada
+b83a01a.ada
+b83a01b.ada
+b83a01c.ada
+b83a05a.ada
+b83a06b.ada
+b83a06h.ada
+b83a07a.ada
+b83a07b.ada
+b83a07c.ada
+b83a08b.ada
+b83a09a.ada
+b83b01a.ada
+b83b02c.ada
+b83e01a.ada
+b83e01b.ada
+b83e01c.ada
+b83e01d.ada
+b83e01e0.ada
+b83e01e1.ada
+b83e01e2.ada
+b83e01e3.ada
+b83e01f0.ada
+b83e01f1.ada
+b83e01f2.ada
+b83e01f3.ada
+b83e01f4.ada
+b83e01f5.ada
+b83e01f6.ada
+b83e11a.ada
+b83f02a.ada
+b83f02b.ada
+b83f02c.ada
+b840001.a
+b84001a.ada
+b84002b.ada
+b84004a.ada
+b84005b.ada
+b84006a.ada
+b84007a.ada
+b84008b.ada
+b85001a.ada
+b85001b.ada
+b85001c.ada
+b85001d.ada
+b85001e.ada
+b85001f.ada
+b85001g.ada
+b85001h.ada
+b85001i.ada
+b85001j.ada
+b85001k.ada
+b85001l.ada
+b85002a.ada
+b85003a.ada
+b85003b.ada
+b85004a.ada
+b85008f.ada
+b85008g.ada
+b85008h.ada
+b85010a.ada
+b85010b.ada
+b85012a.ada
+b85013c.ada
+b85013d.ada
+b85015a.ada
+b8510010.a
+b8510011.a
+b8510012.am
+b854001.a
+b86001a0.ada
+b86001a1.ada
+b87b23b.ada
+b87b26a.ada
+b87b48c.ada
+b91001b.ada
+b91001c.ada
+b91001d.ada
+b91001e.ada
+b91001f.ada
+b91001g.ada
+b91002a.ada
+b91002b.ada
+b91002c.ada
+b91002d.ada
+b91002e.ada
+b91002f.ada
+b91002g.ada
+b91002h.ada
+b91002i.ada
+b91002j.ada
+b91002k.ada
+b91002l.ada
+b91003a.ada
+b91003b.ada
+b91003c.ada
+b91003d.ada
+b91003e.ada
+b91004a.ada
+b91005a.ada
+b92001a.ada
+b92001b.ada
+b940001.a
+b940002.a
+b940003.a
+b940004.a
+b940005.a
+b940006.a
+b940007.a
+b95001a.ada
+b95001b.ada
+b95001d.ada
+b95002a.ada
+b95003a.ada
+b95004a.ada
+b95004b.ada
+b95006a.ada
+b95006b.ada
+b95006c.ada
+b95006d.ada
+b95007a.ada
+b95007b.ada
+b95020a.ada
+b95020b0.ada
+b95020b1.ada
+b95020b2.ada
+b95030a.ada
+b95031a.ada
+b95032a.ada
+b95061a.ada
+b95061b.ada
+b95061c.ada
+b95061d.ada
+b95061e.ada
+b95061f.ada
+b95061g.ada
+b95062a.ada
+b95063a.ada
+b95064a.ada
+b95068a.ada
+b95070a.ada
+b95080a.ada
+b95080c.ada
+b95081a.ada
+b95082a.ada
+b95082b.ada
+b95082c.ada
+b95082d.ada
+b95082e.ada
+b95082f.ada
+b95083a.ada
+b95094a.ada
+b95094b.ada
+b95094c.ada
+b951001.a
+b952001.a
+b952002.a
+b952003.a
+b952004.a
+b954001.a
+b954003.a
+b954004.a
+b960001.a
+b96002a.ada
+b97102b.ada
+b97102c.ada
+b97102d.ada
+b97102f.ada
+b97102g.ada
+b97102h.ada
+b97102i.ada
+b97103a.ada
+b97103b.ada
+b97103d.ada
+b97103e.ada
+b97103f.ada
+b97103g.ada
+b97104a.ada
+b97104b.ada
+b97104c.ada
+b97104d.ada
+b97104e.ada
+b97104f.ada
+b97104g.ada
+b97107a.ada
+b97108a.ada
+b97108b.ada
+b97109a.ada
+b97110a.ada
+b97110b.ada
+b97111a.ada
+b97206a.ada
+b97306a.ada
+b99001a.ada
+b99001b.ada
+b99002a.ada
+b99002b.ada
+b99002c.ada
+b99003a.ada
+b9a001a.ada
+b9a001b.ada
+ba1001a0.ada
+ba1001a1.ada
+ba1001a4.ada
+ba1001ac.ada
+ba1001d.ada
+ba1010a0.ada
+ba1010a1.ada
+ba1010a2.ada
+ba1010a3.ada
+ba1010b0.ada
+ba1010b1.ada
+ba1010b2.ada
+ba1010b4.ada
+ba1010b5.ada
+ba1010b6.ada
+ba1010b7.ada
+ba1010b8.ada
+ba1010c0.ada
+ba1010c1.ada
+ba1010c2.ada
+ba1010c3.ada
+ba1010c4.ada
+ba1010c5.ada
+ba1010c6.ada
+ba1010d0.ada
+ba1010d1.ada
+ba1010d2.ada
+ba1010d3.ada
+ba1010e0.ada
+ba1010e1.ada
+ba1010e2.ada
+ba1010e3.ada
+ba1010e4.ada
+ba1010e5.ada
+ba1010e6.ada
+ba1010f0.ada
+ba1010f1.ada
+ba1010f3.ada
+ba1010f4.ada
+ba1010f5.ada
+ba1010f6.ada
+ba1010f7.ada
+ba1010f8.ada
+ba1010g0.ada
+ba1010g2.ada
+ba1010g3.ada
+ba1010g4.ada
+ba1010g5.ada
+ba1010h0.ada
+ba1010h2.ada
+ba1010i0.ada
+ba1010i1.ada
+ba1010i3.ada
+ba1010i4.ada
+ba1010j0.ada
+ba1010j1.ada
+ba1010j2.ada
+ba1010j4.ada
+ba1010j5.ada
+ba1010j6.ada
+ba1010j7.ada
+ba1010j8.ada
+ba1010k0.ada
+ba1010k1.ada
+ba1010k2.ada
+ba1010k3.ada
+ba1010k4.ada
+ba1010k5.ada
+ba1010k6.ada
+ba1010l0.ada
+ba1010l1.ada
+ba1010l2.ada
+ba1010l3.ada
+ba1010l4.ada
+ba1010l5.ada
+ba1010l6.ada
+ba1010m0.ada
+ba1010m1.ada
+ba1010m3.ada
+ba1010m4.ada
+ba1010m5.ada
+ba1010m6.ada
+ba1010m7.ada
+ba1010m8.ada
+ba1010n0.ada
+ba1010n2.ada
+ba1010n3.ada
+ba1010n4.ada
+ba1010n5.ada
+ba1010p0.ada
+ba1010p2.ada
+ba1010q0.ada
+ba1010q1.ada
+ba1010q3.ada
+ba1010q4.ada
+ba1011b0.ada
+ba1011b1.ada
+ba1011b2.ada
+ba1011b3.ada
+ba1011b4.ada
+ba1011b5.ada
+ba1011b6.ada
+ba1011b7.ada
+ba1011b8.ada
+ba1011c0.ada
+ba1011c1.ada
+ba1011c2.ada
+ba1011c3.ada
+ba1011c4.ada
+ba1011c5.ada
+ba1011c6.ada
+ba1011c7.ada
+ba1011c8.ada
+ba1020a0.ada
+ba1020a1.ada
+ba1020a2.ada
+ba1020a3.ada
+ba1020a4.ada
+ba1020a5.ada
+ba1020a6.ada
+ba1020a7.ada
+ba1020a8.ada
+ba1020b0.ada
+ba1020b1.ada
+ba1020b2.ada
+ba1020b3.ada
+ba1020b4.ada
+ba1020b5.ada
+ba1020b6.ada
+ba1020c0.ada
+ba1020c1.ada
+ba1020c2.ada
+ba1020c3.ada
+ba1020c4.ada
+ba1020c5.ada
+ba1020f0.ada
+ba1020f1.ada
+ba1020f2.ada
+ba11001.a
+ba11002.a
+ba11003.a
+ba11004.a
+ba11005.a
+ba11007.a
+ba11008.a
+ba11009.a
+ba11010.a
+ba11011.a
+ba11012.a
+ba1101a.ada
+ba1101b0.ada
+ba1101b1.ada
+ba1101b2.ada
+ba1101b3.ada
+ba1101b4.ada
+ba1101c0.ada
+ba1101c1.ada
+ba1101c2.ada
+ba1101c3.ada
+ba1101c4.ada
+ba1101c5.ada
+ba1101c6.ada
+ba1101e0.ada
+ba1101e1.ada
+ba1101f.ada
+ba1101g.ada
+ba1109a0.ada
+ba1109a1.ada
+ba1109a2.ada
+ba1110a0.ada
+ba1110a1.ada
+ba1110a2.ada
+ba1110a3.ada
+ba1110a4.ada
+ba1110a5.ada
+ba12001.a
+ba12002.a
+ba12003.a
+ba12004.a
+ba12005.a
+ba12007.a
+ba12008.a
+ba13b01.a
+ba13b02.a
+ba15001.a
+ba150020.a
+ba150021.a
+ba150022.a
+ba150023.a
+ba150024.a
+ba150025.a
+ba150026.a
+ba150027.a
+ba150028.a
+ba150029.am
+ba2001a.ada
+ba2001b.ada
+ba2001c.ada
+ba2001d.ada
+ba2001f0.ada
+ba2001f1.ada
+ba2001f2.ada
+ba2003b0.ada
+ba2003b1.ada
+ba2011a0.ada
+ba2011a1.ada
+ba2011a2.ada
+ba2011a3.ada
+ba2011a4.ada
+ba2011a5.ada
+ba2011a6.ada
+ba2011a7.ada
+ba2011a8.ada
+ba2011a9.ada
+ba2013a.ada
+ba2013b.ada
+ba21001.a
+ba21002.a
+ba210030.a
+ba210031.a
+ba210032.a
+ba210033.a
+ba210034.a
+ba210035.a
+ba210040.a
+ba210041.a
+ba210042.a
+ba210043.a
+ba210044.a
+ba210045.am
+ba21a01.a
+ba21a02.a
+ba3001a0.ada
+ba3001a1.ada
+ba3001a2.ada
+ba3001a3.ada
+ba3001b0.ada
+ba3001b1.ada
+ba3001c0.ada
+ba3001c1.ada
+ba3001e0.ada
+ba3001e1.ada
+ba3001e2.ada
+ba3001e3.ada
+ba3001f0.ada
+ba3001f1.ada
+ba3001f2.ada
+ba3001f3.ada
+ba3006a0.ada
+ba3006a1.ada
+ba3006a2.ada
+ba3006a3.ada
+ba3006a4.ada
+ba3006a5.ada
+ba3006a6.ada
+ba3006b0.ada
+ba3006b1.ada
+ba3006b2.ada
+ba3006b3.ada
+ba3006b4.ada
+bb10001.a
+bb20001.a
+bb2001a.ada
+bb2002a.ada
+bb2003a.ada
+bb2003b.ada
+bb2003c.ada
+bb3001a.ada
+bb3002a.ada
+bc1001a.ada
+bc1002a.ada
+bc1005a.ada
+bc1008a.ada
+bc1008b.ada
+bc1008c.ada
+bc1009a.ada
+bc1011a.ada
+bc1011b.ada
+bc1011c.ada
+bc1012a.ada
+bc1013a.ada
+bc1014a.ada
+bc1014b.ada
+bc1016a.ada
+bc1016b.ada
+bc1101a.ada
+bc1102a.ada
+bc1103a.ada
+bc1106a.ada
+bc1107a.ada
+bc1109a.ada
+bc1109b.ada
+bc1109c.ada
+bc1109d.ada
+bc1110a.ada
+bc1201a.ada
+bc1201b.ada
+bc1201c.ada
+bc1201d.ada
+bc1201e.ada
+bc1201f.ada
+bc1201g.ada
+bc1201h.ada
+bc1201i.ada
+bc1201j.ada
+bc1201k.ada
+bc1201l.ada
+bc1202a.ada
+bc1202c.ada
+bc1202e.ada
+bc1202f.ada
+bc1202g.ada
+bc1203a.ada
+bc1205a.ada
+bc1206a.ada
+bc1207a.ada
+bc1208a.ada
+bc1226a.ada
+bc1230a.ada
+bc1303a.ada
+bc1303b.ada
+bc1303c.ada
+bc1303d.ada
+bc1303e.ada
+bc1303f.ada
+bc1303g.ada
+bc1306a.ada
+bc2001b.ada
+bc2001c.ada
+bc2001d.ada
+bc2001e.ada
+bc2004a.ada
+bc2004b.ada
+bc30001.a
+bc3001a.ada
+bc3002a.ada
+bc3002b.ada
+bc3002c.ada
+bc3002d.ada
+bc3002e.ada
+bc3005a.ada
+bc3005b.ada
+bc3005c.ada
+bc3006a.ada
+bc3009c.ada
+bc3011b.ada
+bc3013a.ada
+bc3016g.ada
+bc3018a.ada
+bc3101a.ada
+bc3101b.ada
+bc3102a.ada
+bc3102b.ada
+bc3103b.ada
+bc3123c.ada
+bc3201a.ada
+bc3201b.ada
+bc3201c.ada
+bc3202a.ada
+bc3202b.ada
+bc3202c.ada
+bc3202d.ada
+bc3205c.ada
+bc3301a.ada
+bc3301b.ada
+bc3302a.ada
+bc3302b.ada
+bc3303a.ada
+bc3304a.ada
+bc3401a.ada
+bc3401b.ada
+bc3402a.ada
+bc3402b.ada
+bc3403a.ada
+bc3403b.ada
+bc3403c.ada
+bc3404a.ada
+bc3404b.ada
+bc3404c.ada
+bc3404d.ada
+bc3404e.ada
+bc3404f.ada
+bc3405a.ada
+bc3405b.ada
+bc3405d.ada
+bc3405e.ada
+bc3405f.ada
+bc3501a.ada
+bc3501b.ada
+bc3501c.ada
+bc3501d.ada
+bc3501e.ada
+bc3501f.ada
+bc3501g.ada
+bc3501h.ada
+bc3501i.ada
+bc3501j.ada
+bc3501k.ada
+bc3502a.ada
+bc3502b.ada
+bc3502c.ada
+bc3502d.ada
+bc3502e.ada
+bc3502f.ada
+bc3502g.ada
+bc3502h.ada
+bc3502i.ada
+bc3502j.ada
+bc3502k.ada
+bc3502l.ada
+bc3502m.ada
+bc3502n.ada
+bc3502o.ada
+bc3503a.ada
+bc3503c.ada
+bc3503d.ada
+bc3503e.ada
+bc3503f.ada
+bc3604a.ada
+bc3604b.ada
+bc3607a.ada
+bc40001.a
+bc40002.a
+bc50001.a
+bc50002.a
+bc50003.a
+bc50004.a
+bc51002.a
+bc51003.a
+bc51004.a
+bc51005.a
+bc51006.a
+bc51007.a
+bc51011.a
+bc51012.a
+bc51013.a
+bc51015.a
+bc51016.a
+bc51017.a
+bc51018.a
+bc51019.a
+bc51020.a
+bc51b01.a
+bc51b02.a
+bc51c01.a
+bc51c02.a
+bc53001.a
+bc53002.a
+bc54001.a
+bc54002.a
+bc54003.a
+bc54a01.a
+bc54a02.a
+bc54a03.a
+bc54a04.a
+bc54a05.a
+bc54a06.a
+bc70001.a
+bc70002.a
+bc70003.a
+bc70004.a
+bc70005.a
+bc70006.a
+bc70007.a
+bc70008.a
+bc70009.a
+bc70010.a
+bd1b01a.ada
+bd1b02b.ada
+bd1b03c.ada
+bd1b05e.ada
+bd1b06j.ada
+bd2001b.ada
+bd2a01h.ada
+bd2a02a.tst
+bd2a03a.ada
+bd2a03b.ada
+bd2a06a.ada
+bd2a25a.ada
+bd2a35a.ada
+bd2a45a.ada
+bd2a55a.ada
+bd2a55b.ada
+bd2a67a.ada
+bd2a77a.ada
+bd2a85a.ada
+bd2a85b.ada
+bd2b01c.ada
+bd2b02a.ada
+bd2b03a.ada
+bd2b03b.ada
+bd2b03c.ada
+bd2c01d.tst
+bd2c02a.tst
+bd2c03a.tst
+bd2d01c.ada
+bd2d01d.ada
+bd2d02a.ada
+bd2d03a.ada
+bd2d03b.ada
+bd3001a.ada
+bd3001b.ada
+bd3001c.ada
+bd3002a.ada
+bd3003a.ada
+bd3003b.ada
+bd3012a.ada
+bd3013a.ada
+bd4001a.ada
+bd4002a.ada
+bd4003a.ada
+bd4003b.ada
+bd4003c.ada
+bd4006a.tst
+bd4007a.ada
+bd4009a.ada
+bd4011a.ada
+bd5001a.ada
+bd5005a.ada
+bd5005d.ada
+bd5102a.ada
+bd5102b.ada
+bd5103a.ada
+bd5104a.ada
+bd7001a.ada
+bd7101h.ada
+bd7201c.ada
+bd7203a.ada
+bd7204a.ada
+bd7205a.ada
+bd7301a.ada
+bd7302a.ada
+bd8001a.tst
+bd8002a.tst
+bd8003a.tst
+bd8004a.tst
+bd8004b.tst
+bd8004c.tst
+bdb0a01.a
+bdd2001.a
+bdd2002.a
+bde0001.a
+bde0002.a
+bde0003.a
+bde0004.a
+bde0005.a
+bde0006.a
+bde0007.a
+bde0008.a
+bde0009.a
+bde0010.a
+be2101e.ada
+be2101j.ada
+be2114a.ada
+be2116a.ada
+be2208a.ada
+be3002a.ada
+be3002e.ada
+be3205a.ada
+be3301c.ada
+be3606c.ada
+be3703a.ada
+be3802a.ada
+be3803a.ada
+be3902a.ada
+be3903a.ada
+bxa8001.a
+bxac001.a
+bxac002.a
+bxac003.a
+bxac004.a
+bxac005.a
+bxc3001.a
+bxc3002.a
+bxc5001.a
+bxc6001.a
+bxc6002.a
+bxc6003.a
+bxc6a01.a
+bxc6a02.a
+bxc6a03.a
+bxc6a04.a
+bxd1001.a
+bxd1002.a
+bxe2007.a
+bxe2008.a
+bxe2009.a
+bxe2010.a
+bxe2011.a
+bxe2012.a
+bxe2013.a
+bxe2a01.a
+bxe2a02.a
+bxe2a03.a
+bxe2a04.a
+bxe2a05.a
+bxe2a06.a
+bxe4001.a
+bxf1001.a
+bxh4001.a
+bxh4002.a
+bxh4003.a
+bxh4004.a
+bxh4005.a
+bxh4006.a
+bxh4007.a
+bxh4008.a
+bxh4009.a
+bxh4010.a
+bxh4011.a
+bxh4012.a
+bxh4013.a
+c23001a.ada
+c23003a.tst
+c23003b.tst
+c23003g.tst
+c23003i.tst
+c23006a.ada
+c23006b.ada
+c23006c.ada
+c23006d.ada
+c23006e.ada
+c23006f.ada
+c23006g.ada
+c24002d.ada
+c24003a.ada
+c24003b.ada
+c24003c.ada
+c24106a.ada
+c24202d.ada
+c24203a.ada
+c24203b.ada
+c24207a.ada
+c24211a.ada
+c250001.aw
+c250002.aw
+c25001a.ada
+c25001b.ada
+c26006a.ada
+c26008a.ada
+c2a001a.ada
+c2a001b.ada
+c2a001c.ada
+c2a002a.ada
+c2a008a.ada
+c2a021b.ada
+c32001a.ada
+c32001b.ada
+c32001c.ada
+c32001d.ada
+c32001e.ada
+c32107a.ada
+c32107c.ada
+c32108a.ada
+c32108b.ada
+c32111a.ada
+c32111b.ada
+c32112b.ada
+c32113a.ada
+c32115a.ada
+c32115b.ada
+c330001.a
+c330002.a
+c332001.a
+c340001.a
+c34001a.ada
+c34001c.ada
+c34001d.ada
+c34001f.ada
+c34002a.ada
+c34002c.ada
+c34003a.ada
+c34003c.ada
+c34004a.ada
+c34004c.ada
+c34005a.ada
+c34005c.ada
+c34005d.ada
+c34005f.ada
+c34005g.ada
+c34005i.ada
+c34005j.ada
+c34005l.ada
+c34005m.ada
+c34005o.ada
+c34005p.ada
+c34005r.ada
+c34005s.ada
+c34005u.ada
+c34005v.ada
+c34006a.ada
+c34006d.ada
+c34006f.ada
+c34006g.ada
+c34006j.ada
+c34006l.ada
+c34007a.ada
+c34007d.ada
+c34007f.ada
+c34007g.ada
+c34007i.ada
+c34007j.ada
+c34007m.ada
+c34007p.ada
+c34007r.ada
+c34007s.ada
+c34007u.ada
+c34007v.ada
+c34008a.ada
+c34009a.ada
+c34009d.ada
+c34009f.ada
+c34009g.ada
+c34009j.ada
+c34009l.ada
+c34011b.ada
+c34012a.ada
+c34014a.ada
+c34014c.ada
+c34014e.ada
+c34014g.ada
+c34014h.ada
+c34014n.ada
+c34014p.ada
+c34014r.ada
+c34014t.ada
+c34014u.ada
+c34018a.ada
+c340a01.a
+c340a02.a
+c341a01.a
+c341a02.a
+c341a03.a
+c341a04.a
+c35003a.ada
+c35003b.ada
+c35003d.ada
+c35102a.ada
+c352001.a
+c354002.a
+c354003.a
+c35502a.ada
+c35502b.ada
+c35502c.ada
+c35502d.tst
+c35502e.ada
+c35502f.tst
+c35502g.ada
+c35502h.ada
+c35502i.ada
+c35502j.ada
+c35502k.ada
+c35502l.ada
+c35502m.ada
+c35502n.ada
+c35502o.ada
+c35502p.ada
+c35503a.ada
+c35503b.ada
+c35503c.ada
+c35503d.tst
+c35503e.ada
+c35503f.tst
+c35503g.ada
+c35503h.ada
+c35503k.ada
+c35503l.ada
+c35503o.ada
+c35503p.ada
+c35504a.ada
+c35504b.ada
+c35505c.ada
+c35505e.ada
+c35505f.ada
+c35507a.ada
+c35507b.ada
+c35507c.ada
+c35507e.ada
+c35507g.ada
+c35507h.ada
+c35507i.ada
+c35507j.ada
+c35507k.ada
+c35507l.ada
+c35507m.ada
+c35507n.ada
+c35507o.ada
+c35507p.ada
+c35508a.ada
+c35508b.ada
+c35508c.ada
+c35508e.ada
+c35508g.ada
+c35508h.ada
+c35508k.ada
+c35508l.ada
+c35508o.ada
+c35508p.ada
+c35703a.ada
+c35704a.ada
+c35704b.ada
+c35704c.ada
+c35704d.ada
+c35801d.ada
+c35902d.ada
+c35904a.ada
+c35904b.ada
+c35a02a.ada
+c35a05a.ada
+c35a05d.ada
+c35a05n.ada
+c35a05q.ada
+c35a07a.ada
+c35a07d.ada
+c35a08b.ada
+c360002.a
+c36104a.ada
+c36104b.ada
+c36172a.ada
+c36172b.ada
+c36172c.ada
+c36174a.ada
+c36180a.ada
+c36202c.ada
+c36203a.ada
+c36204a.ada
+c36204b.ada
+c36204c.ada
+c36204d.ada
+c36205a.ada
+c36205b.ada
+c36205c.ada
+c36205d.ada
+c36205e.ada
+c36205f.ada
+c36205g.ada
+c36205h.ada
+c36205i.ada
+c36205j.ada
+c36205k.ada
+c36205l.ada
+c36301a.ada
+c36301b.ada
+c36302a.ada
+c36304a.ada
+c36305a.ada
+c37002a.ada
+c37003a.ada
+c37003b.ada
+c37005a.ada
+c37006a.ada
+c37008a.ada
+c37008b.ada
+c37009a.ada
+c37010a.ada
+c37010b.ada
+c371001.a
+c371002.a
+c371003.a
+c37102b.ada
+c37103a.ada
+c37105a.ada
+c37107a.ada
+c37108b.ada
+c37206a.ada
+c37207a.ada
+c37208a.ada
+c37208b.ada
+c37209a.ada
+c37209b.ada
+c37210a.ada
+c37211a.ada
+c37211b.ada
+c37211c.ada
+c37211d.ada
+c37211e.ada
+c37213b.ada
+c37213d.ada
+c37213f.ada
+c37213h.ada
+c37213j.ada
+c37213k.ada
+c37213l.ada
+c37215b.ada
+c37215d.ada
+c37215f.ada
+c37215h.ada
+c37217a.ada
+c37217b.ada
+c37217c.ada
+c37304a.ada
+c37305a.ada
+c37306a.ada
+c37309a.ada
+c37310a.ada
+c37312a.ada
+c37402a.ada
+c37403a.ada
+c37404a.ada
+c37404b.ada
+c37405a.ada
+c37411a.ada
+c380001.a
+c380002.a
+c380003.a
+c380004.a
+c38002a.ada
+c38002b.ada
+c38005a.ada
+c38005b.ada
+c38005c.ada
+c38006a.ada
+c38102a.ada
+c38102b.ada
+c38102c.ada
+c38102d.ada
+c38102e.ada
+c38104a.ada
+c38107a.ada
+c38107b.ada
+c38108a.ada
+c38108b.ada
+c38108c0.ada
+c38108c1.ada
+c38108c2.ada
+c38108d0.ada
+c38108d1.ada
+c38202a.ada
+c3900010.a
+c3900011.am
+c390002.a
+c390003.a
+c390004.a
+c3900050.a
+c3900051.a
+c3900052.a
+c3900053.am
+c3900060.a
+c3900061.a
+c3900062.a
+c3900063.am
+c390007.a
+c390010.a
+c390011.a
+c39006a.ada
+c39006b.ada
+c39006c0.ada
+c39006c1.ada
+c39006d.ada
+c39006e.ada
+c39006f0.ada
+c39006f1.ada
+c39006f2.ada
+c39006f3.ada
+c39006g.ada
+c39007a.ada
+c39007b.ada
+c39008a.ada
+c39008b.ada
+c39008c.ada
+c390a010.a
+c390a011.am
+c390a020.a
+c390a021.a
+c390a022.am
+c390a030.a
+c390a031.am
+c391001.a
+c391002.a
+c392002.a
+c392003.a
+c392004.a
+c392005.a
+c392008.a
+c392010.a
+c392011.a
+c392013.a
+c392014.a
+c392a01.a
+c392c05.a
+c392c07.a
+c392d01.a
+c392d02.a
+c392d03.a
+c393001.a
+c393007.a
+c393008.a
+c393009.a
+c393010.a
+c393011.a
+c393012.a
+c393a02.a
+c393a03.a
+c393a05.a
+c393a06.a
+c393b12.a
+c393b13.a
+c393b14.a
+c3a0001.a
+c3a0002.a
+c3a0003.a
+c3a0004.a
+c3a0005.a
+c3a0006.a
+c3a0007.a
+c3a0008.a
+c3a0009.a
+c3a0010.a
+c3a0011.a
+c3a00120.a
+c3a00121.a
+c3a00122.am
+c3a0013.a
+c3a0014.a
+c3a0015.a
+c3a1001.a
+c3a1002.a
+c3a2001.a
+c3a2002.a
+c3a2003.a
+c3a2a01.a
+c3a2a02.a
+c410001.a
+c41101d.ada
+c41103a.ada
+c41103b.ada
+c41104a.ada
+c41105a.ada
+c41107a.ada
+c41201d.ada
+c41203a.ada
+c41203b.ada
+c41204a.ada
+c41205a.ada
+c41206a.ada
+c41207a.ada
+c41301a.ada
+c41303a.ada
+c41303b.ada
+c41303c.ada
+c41303e.ada
+c41303f.ada
+c41303g.ada
+c41303i.ada
+c41303j.ada
+c41303k.ada
+c41303m.ada
+c41303n.ada
+c41303o.ada
+c41303q.ada
+c41303r.ada
+c41303s.ada
+c41303u.ada
+c41303v.ada
+c41303w.ada
+c41304a.ada
+c41304b.ada
+c41306a.ada
+c41306b.ada
+c41306c.ada
+c41307d.ada
+c41309a.ada
+c41320a.ada
+c41321a.ada
+c41322a.ada
+c41323a.ada
+c41324a.ada
+c41325a.ada
+c41326a.ada
+c41327a.ada
+c41328a.ada
+c41401a.ada
+c41402a.ada
+c41404a.ada
+c420001.a
+c42006a.ada
+c42007e.ada
+c43003a.ada
+c43004a.ada
+c43004c.ada
+c431001.a
+c43103a.ada
+c43103b.ada
+c43104a.ada
+c43105a.ada
+c43105b.ada
+c43106a.ada
+c43107a.ada
+c43108a.ada
+c432001.a
+c432002.a
+c432003.a
+c432004.a
+c43204a.ada
+c43204c.ada
+c43204e.ada
+c43204f.ada
+c43204g.ada
+c43204h.ada
+c43204i.ada
+c43205a.ada
+c43205b.ada
+c43205c.ada
+c43205d.ada
+c43205e.ada
+c43205g.ada
+c43205h.ada
+c43205i.ada
+c43205j.ada
+c43205k.ada
+c43206a.ada
+c43207b.ada
+c43207d.ada
+c43208a.ada
+c43208b.ada
+c43209a.ada
+c43210a.ada
+c43211a.ada
+c43212a.ada
+c43212c.ada
+c43214a.ada
+c43214b.ada
+c43214c.ada
+c43214d.ada
+c43214e.ada
+c43214f.ada
+c43215a.ada
+c43215b.ada
+c43222a.ada
+c43224a.ada
+c433001.a
+c44003d.ada
+c44003f.ada
+c44003g.ada
+c450001.a
+c45112a.ada
+c45112b.ada
+c45113a.ada
+c45114b.ada
+c452001.a
+c45201a.ada
+c45201b.ada
+c45202b.ada
+c45210a.ada
+c45211a.ada
+c45220a.ada
+c45220b.ada
+c45220c.ada
+c45220d.ada
+c45220e.ada
+c45220f.ada
+c45231a.ada
+c45231b.dep
+c45231c.dep
+c45231d.tst
+c45232b.ada
+c45242b.ada
+c45251a.ada
+c45252a.ada
+c45252b.ada
+c45253a.ada
+c45262a.ada
+c45262b.ada
+c45262c.ada
+c45262d.ada
+c45264a.ada
+c45264b.ada
+c45264c.ada
+c45265a.ada
+c45271a.ada
+c45272a.ada
+c45273a.ada
+c45274a.ada
+c45274b.ada
+c45274c.ada
+c45281a.ada
+c45282a.ada
+c45282b.ada
+c45291a.ada
+c45303a.ada
+c45304a.ada
+c45304b.dep
+c45304c.dep
+c45322a.ada
+c45323a.ada
+c45331a.ada
+c45342a.ada
+c45343a.ada
+c45344a.ada
+c45345b.ada
+c45347a.ada
+c45347b.ada
+c45347c.ada
+c45347d.ada
+c45411a.ada
+c45411b.dep
+c45411c.dep
+c45411d.ada
+c45413a.ada
+c45431a.ada
+c455001.a
+c45502b.dep
+c45502c.dep
+c45503a.ada
+c45503b.dep
+c45503c.dep
+c45504a.ada
+c45504b.dep
+c45504c.dep
+c45504d.ada
+c45504e.dep
+c45504f.dep
+c45505a.ada
+c45523a.ada
+c45531a.ada
+c45531b.ada
+c45531c.ada
+c45531d.ada
+c45531e.ada
+c45531f.ada
+c45531g.ada
+c45531h.ada
+c45531i.ada
+c45531j.ada
+c45531k.ada
+c45531l.ada
+c45531m.dep
+c45531n.dep
+c45531o.dep
+c45531p.dep
+c45532a.ada
+c45532b.ada
+c45532c.ada
+c45532d.ada
+c45532e.ada
+c45532f.ada
+c45532g.ada
+c45532h.ada
+c45532i.ada
+c45532j.ada
+c45532k.ada
+c45532l.ada
+c45532m.dep
+c45532n.dep
+c45532o.dep
+c45532p.dep
+c45534b.ada
+c45536a.dep
+c456001.a
+c45611a.ada
+c45611b.dep
+c45611c.dep
+c45613a.ada
+c45613b.dep
+c45613c.dep
+c45614a.ada
+c45614b.dep
+c45614c.dep
+c45631a.ada
+c45631b.dep
+c45631c.dep
+c45632a.ada
+c45632b.dep
+c45632c.dep
+c45651a.ada
+c45662a.ada
+c45662b.ada
+c45672a.ada
+c460001.a
+c460002.a
+c460004.a
+c460005.a
+c460006.a
+c460007.a
+c460008.a
+c460009.a
+c460010.a
+c460011.a
+c460012.a
+c46011a.ada
+c46013a.ada
+c46014a.ada
+c46021a.ada
+c46024a.ada
+c46031a.ada
+c46032a.ada
+c46033a.ada
+c46041a.ada
+c46042a.ada
+c46043b.ada
+c46044b.ada
+c46051a.ada
+c46051b.ada
+c46051c.ada
+c46052a.ada
+c46053a.ada
+c46054a.ada
+c460a01.a
+c460a02.a
+c47002a.ada
+c47002b.ada
+c47002c.ada
+c47002d.ada
+c47003a.ada
+c47004a.ada
+c47005a.ada
+c47006a.ada
+c47007a.ada
+c47008a.ada
+c47009a.ada
+c47009b.ada
+c48004a.ada
+c48004b.ada
+c48004c.ada
+c48004d.ada
+c48004e.ada
+c48004f.ada
+c48005a.ada
+c48005b.ada
+c48006a.ada
+c48006b.ada
+c48007a.ada
+c48007b.ada
+c48007c.ada
+c48008a.ada
+c48008c.ada
+c48009a.ada
+c48009b.ada
+c48009c.ada
+c48009d.ada
+c48009e.ada
+c48009f.ada
+c48009g.ada
+c48009h.ada
+c48009i.ada
+c48009j.ada
+c48010a.ada
+c48011a.ada
+c48012a.ada
+c490001.a
+c490002.a
+c490003.a
+c49020a.ada
+c49021a.ada
+c49022a.ada
+c49022b.ada
+c49022c.ada
+c49023a.ada
+c49024a.ada
+c49025a.ada
+c49026a.ada
+c4a005b.ada
+c4a006a.ada
+c4a007a.tst
+c4a010a.ada
+c4a010b.ada
+c4a011a.ada
+c4a012b.ada
+c4a013a.ada
+c4a014a.ada
+c51004a.ada
+c52005a.ada
+c52005b.ada
+c52005c.ada
+c52005d.ada
+c52005e.ada
+c52005f.ada
+c52008a.ada
+c52008b.ada
+c52009a.ada
+c52009b.ada
+c52010a.ada
+c52011a.ada
+c52011b.ada
+c52101a.ada
+c52102a.ada
+c52102b.ada
+c52102c.ada
+c52102d.ada
+c52103a.ada
+c52103b.ada
+c52103c.ada
+c52103f.ada
+c52103g.ada
+c52103h.ada
+c52103k.ada
+c52103l.ada
+c52103m.ada
+c52103p.ada
+c52103q.ada
+c52103r.ada
+c52103x.ada
+c52104a.ada
+c52104b.ada
+c52104c.ada
+c52104f.ada
+c52104g.ada
+c52104h.ada
+c52104k.ada
+c52104l.ada
+c52104m.ada
+c52104p.ada
+c52104q.ada
+c52104r.ada
+c52104x.ada
+c52104y.ada
+c53007a.ada
+c540001.a
+c54a03a.ada
+c54a04a.ada
+c54a07a.ada
+c54a13a.ada
+c54a13b.ada
+c54a13c.ada
+c54a13d.ada
+c54a22a.ada
+c54a23a.ada
+c54a24a.ada
+c54a24b.ada
+c54a42a.ada
+c54a42b.ada
+c54a42c.ada
+c54a42d.ada
+c54a42e.ada
+c54a42f.ada
+c54a42g.ada
+c55b03a.ada
+c55b04a.ada
+c55b05a.ada
+c55b06a.ada
+c55b06b.ada
+c55b07a.dep
+c55b07b.dep
+c55b10a.ada
+c55b11a.ada
+c55b11b.ada
+c55b15a.ada
+c55b16a.ada
+c55c02a.ada
+c55c02b.ada
+c56002a.ada
+c57003a.ada
+c57004a.ada
+c57004b.ada
+c58004c.ada
+c58004d.ada
+c58004g.ada
+c58005a.ada
+c58005b.ada
+c58005h.ada
+c58006a.ada
+c58006b.ada
+c59002a.ada
+c59002b.ada
+c59002c.ada
+c61008a.ada
+c61009a.ada
+c61010a.ada
+c62002a.ada
+c62003a.ada
+c62003b.ada
+c62004a.ada
+c62006a.ada
+c631001.a
+c640001.a
+c64002b.ada
+c64004g.ada
+c64005a.ada
+c64005b.ada
+c64005c.ada
+c64005d0.ada
+c64005da.ada
+c64005db.ada
+c64005dc.ada
+c641001.a
+c64103b.ada
+c64103c.ada
+c64103d.ada
+c64103e.ada
+c64103f.ada
+c64104a.ada
+c64104b.ada
+c64104c.ada
+c64104d.ada
+c64104e.ada
+c64104f.ada
+c64104g.ada
+c64104h.ada
+c64104i.ada
+c64104j.ada
+c64104k.ada
+c64104l.ada
+c64104m.ada
+c64104n.ada
+c64104o.ada
+c64105a.ada
+c64105b.ada
+c64105c.ada
+c64105d.ada
+c64106a.ada
+c64106b.ada
+c64106c.ada
+c64106d.ada
+c64107a.ada
+c64108a.ada
+c64109a.ada
+c64109b.ada
+c64109c.ada
+c64109d.ada
+c64109e.ada
+c64109f.ada
+c64109g.ada
+c64109h.ada
+c64109i.ada
+c64109j.ada
+c64109k.ada
+c64109l.ada
+c64201b.ada
+c64201c.ada
+c64202a.ada
+c650001.a
+c65003a.ada
+c65003b.ada
+c66002a.ada
+c66002c.ada
+c66002d.ada
+c66002e.ada
+c66002f.ada
+c66002g.ada
+c67002a.ada
+c67002b.ada
+c67002c.ada
+c67002d.ada
+c67002e.ada
+c67003f.ada
+c67005a.ada
+c67005b.ada
+c67005c.ada
+c67005d.ada
+c72001b.ada
+c72002a.ada
+c730001.a
+c730002.a
+c730003.a
+c730004.a
+c73002a.ada
+c730a01.a
+c730a02.a
+c731001.a
+c74004a.ada
+c74203a.ada
+c74206a.ada
+c74207b.ada
+c74208a.ada
+c74208b.ada
+c74209a.ada
+c74210a.ada
+c74211a.ada
+c74211b.ada
+c74302a.ada
+c74302b.ada
+c74305a.ada
+c74305b.ada
+c74306a.ada
+c74307a.ada
+c74401d.ada
+c74401e.ada
+c74401k.ada
+c74401q.ada
+c74402a.ada
+c74402b.ada
+c74406a.ada
+c74407b.ada
+c74409b.ada
+c760001.a
+c760002.a
+c760007.a
+c760009.a
+c760010.a
+c760011.a
+c760012.a
+c760013.a
+c761001.a
+c761002.a
+c761003.a
+c761004.a
+c761005.a
+c761006.a
+c761007.a
+c761010.a
+c761011.a
+c761012.a
+c83007a.ada
+c83012d.ada
+c83022a.ada
+c83022g0.ada
+c83022g1.ada
+c83023a.ada
+c83024a.ada
+c83024e0.ada
+c83024e1.ada
+c83025a.ada
+c83025c.ada
+c83027a.ada
+c83027c.ada
+c83028a.ada
+c83029a.ada
+c83030a.ada
+c83030c.ada
+c83031a.ada
+c83031c.ada
+c83031e.ada
+c83032a.ada
+c83033a.ada
+c83051a.ada
+c83b02a.ada
+c83b02b.ada
+c83e02a.ada
+c83e02b.ada
+c83e03a.ada
+c83f01a.ada
+c83f01b.ada
+c83f01c0.ada
+c83f01c1.ada
+c83f01c2.ada
+c83f01d0.ada
+c83f01d1.ada
+c83f03a.ada
+c83f03b.ada
+c83f03c0.ada
+c83f03c1.ada
+c83f03c2.ada
+c83f03d0.ada
+c83f03d1.ada
+c840001.a
+c84002a.ada
+c84005a.ada
+c84008a.ada
+c84009a.ada
+c85004b.ada
+c85005a.ada
+c85005b.ada
+c85005c.ada
+c85005d.ada
+c85005e.ada
+c85005f.ada
+c85005g.ada
+c85006a.ada
+c85006b.ada
+c85006c.ada
+c85006d.ada
+c85006e.ada
+c85006f.ada
+c85006g.ada
+c85007a.ada
+c85007e.ada
+c85009a.ada
+c85011a.ada
+c85013a.ada
+c85014a.ada
+c85014b.ada
+c85014c.ada
+c85017a.ada
+c85018a.ada
+c85018b.ada
+c85019a.ada
+c854001.a
+c854002.a
+c854003.a
+c86003a.ada
+c86004a.ada
+c86004b0.ada
+c86004b1.ada
+c86004b2.ada
+c86004c0.ada
+c86004c1.ada
+c86004c2.ada
+c86006i.ada
+c86007a.ada
+c87a05a.ada
+c87a05b.ada
+c87b02a.ada
+c87b02b.ada
+c87b03a.ada
+c87b04a.ada
+c87b04b.ada
+c87b04c.ada
+c87b05a.ada
+c87b06a.ada
+c87b07a.ada
+c87b07b.ada
+c87b07c.ada
+c87b07d.ada
+c87b07e.ada
+c87b08a.ada
+c87b09a.ada
+c87b09c.ada
+c87b10a.ada
+c87b11a.ada
+c87b11b.ada
+c87b13a.ada
+c87b14a.ada
+c87b14b.ada
+c87b14c.ada
+c87b14d.ada
+c87b15a.ada
+c87b16a.ada
+c87b17a.ada
+c87b18a.ada
+c87b18b.ada
+c87b19a.ada
+c87b23a.ada
+c87b24a.ada
+c87b24b.ada
+c87b26b.ada
+c87b27a.ada
+c87b28a.ada
+c87b29a.ada
+c87b30a.ada
+c87b31a.ada
+c87b32a.ada
+c87b33a.ada
+c87b34a.ada
+c87b34b.ada
+c87b34c.ada
+c87b35c.ada
+c87b38a.ada
+c87b39a.ada
+c87b40a.ada
+c87b41a.ada
+c87b42a.ada
+c87b43a.ada
+c87b44a.ada
+c87b45a.ada
+c87b45c.ada
+c87b47a.ada
+c87b48a.ada
+c87b48b.ada
+c87b50a.ada
+c87b54a.ada
+c87b57a.ada
+c87b62a.ada
+c87b62b.ada
+c87b62c.ada
+c87b62d.tst
+c910001.a
+c910002.a
+c910003.a
+c91004b.ada
+c91004c.ada
+c91006a.ada
+c91007a.ada
+c92002a.ada
+c92003a.ada
+c92005a.ada
+c92005b.ada
+c92006a.ada
+c930001.a
+c93001a.ada
+c93002a.ada
+c93003a.ada
+c93004a.ada
+c93004b.ada
+c93004c.ada
+c93004d.ada
+c93004f.ada
+c93005a.ada
+c93005b.ada
+c93005c.ada
+c93005d.ada
+c93005e.ada
+c93005f.ada
+c93005g.ada
+c93005h.ada
+c93006a.ada
+c93007a.ada
+c93008a.ada
+c93008b.ada
+c940001.a
+c940002.a
+c940004.a
+c940005.a
+c940006.a
+c940007.a
+c940010.a
+c940011.a
+c940012.a
+c940013.a
+c940014.a
+c940015.a
+c940016.a
+c94001a.ada
+c94001b.ada
+c94001c.ada
+c94001e.ada
+c94001f.ada
+c94001g.ada
+c94002a.ada
+c94002b.ada
+c94002d.ada
+c94002e.ada
+c94002f.ada
+c94002g.ada
+c94004a.ada
+c94004b.ada
+c94004c.ada
+c94005a.ada
+c94005b.ada
+c94006a.ada
+c94007a.ada
+c94007b.ada
+c94008a.ada
+c94008b.ada
+c94008c.ada
+c94008d.ada
+c94010a.ada
+c94011a.ada
+c94020a.ada
+c940a03.a
+c95008a.ada
+c95009a.ada
+c95010a.ada
+c95011a.ada
+c95012a.ada
+c95021a.ada
+c95022a.ada
+c95022b.ada
+c95033a.ada
+c95033b.ada
+c95034a.ada
+c95034b.ada
+c95035a.ada
+c95040a.ada
+c95040b.ada
+c95040c.ada
+c95040d.ada
+c95041a.ada
+c95065a.ada
+c95065b.ada
+c95065c.ada
+c95065d.ada
+c95065e.ada
+c95065f.ada
+c95066a.ada
+c95067a.ada
+c95071a.ada
+c95072a.ada
+c95072b.ada
+c95073a.ada
+c95074c.ada
+c95076a.ada
+c95078a.ada
+c95080b.ada
+c95082g.ada
+c95085a.ada
+c95085b.ada
+c95085c.ada
+c95085d.ada
+c95085e.ada
+c95085f.ada
+c95085g.ada
+c95085h.ada
+c95085i.ada
+c95085j.ada
+c95085k.ada
+c95085l.ada
+c95085m.ada
+c95085n.ada
+c95085o.ada
+c95086a.ada
+c95086b.ada
+c95086c.ada
+c95086d.ada
+c95086e.ada
+c95086f.ada
+c95087a.ada
+c95087b.ada
+c95087c.ada
+c95087d.ada
+c95088a.ada
+c95089a.ada
+c95090a.ada
+c95092a.ada
+c95093a.ada
+c95095a.ada
+c95095b.ada
+c95095c.ada
+c95095d.ada
+c95095e.ada
+c951001.a
+c951002.a
+c953001.a
+c953002.a
+c953003.a
+c954001.a
+c954010.a
+c954011.a
+c954012.a
+c954013.a
+c954014.a
+c954015.a
+c954016.a
+c954017.a
+c954018.a
+c954019.a
+c954020.a
+c954021.a
+c954022.a
+c954023.a
+c954024.a
+c954025.a
+c954026.a
+c954a01.a
+c954a02.a
+c954a03.a
+c960001.a
+c960002.a
+c960004.a
+c96001a.ada
+c96004a.ada
+c96005a.ada
+c96005b.tst
+c96005d.ada
+c96005f.ada
+c96006a.ada
+c96007a.ada
+c96008a.ada
+c96008b.ada
+c97112a.ada
+c97113a.ada
+c97114a.ada
+c97115a.ada
+c97116a.ada
+c97117a.ada
+c97117b.ada
+c97117c.ada
+c97118a.ada
+c97120a.ada
+c97120b.ada
+c97201a.ada
+c97201b.ada
+c97201c.ada
+c97201d.ada
+c97201e.ada
+c97201g.ada
+c97201h.ada
+c97201x.ada
+c97202a.ada
+c97203a.ada
+c97203b.ada
+c97203c.ada
+c97204a.ada
+c97204b.ada
+c97205a.ada
+c97205b.ada
+c97301a.ada
+c97301b.ada
+c97301c.ada
+c97301d.ada
+c97301e.ada
+c97302a.ada
+c97303a.ada
+c97303b.ada
+c97303c.ada
+c97304a.ada
+c97304b.ada
+c97305a.ada
+c97305b.ada
+c97305c.ada
+c97305d.ada
+c97307a.ada
+c974001.a
+c974002.a
+c974003.a
+c974004.a
+c974005.a
+c974006.a
+c974007.a
+c974008.a
+c974009.a
+c974010.a
+c974011.a
+c974012.a
+c974013.a
+c974014.a
+c980001.a
+c980002.a
+c980003.a
+c99004a.ada
+c99005a.ada
+c9a003a.ada
+c9a004a.ada
+c9a007a.ada
+c9a009a.ada
+c9a009c.ada
+c9a009f.ada
+c9a009g.ada
+c9a009h.ada
+c9a010a.ada
+c9a011a.ada
+c9a011b.ada
+ca1003a.ada
+ca1004a.ada
+ca1005a.ada
+ca1006a.ada
+ca1011a0.ada
+ca1011a1.ada
+ca1011a2.ada
+ca1011a3.ada
+ca1011a4.ada
+ca1011a5.ada
+ca1011a6.ada
+ca1012a0.ada
+ca1012a1.ada
+ca1012a2.ada
+ca1012a3.ada
+ca1012a4.ada
+ca1012b0.ada
+ca1012b2.ada
+ca1012b4.ada
+ca1013a0.ada
+ca1013a1.ada
+ca1013a2.ada
+ca1013a3.ada
+ca1013a4.ada
+ca1013a5.ada
+ca1013a6.ada
+ca1014a0.ada
+ca1014a1.ada
+ca1014a2.ada
+ca1014a3.ada
+ca1020e0.ada
+ca1020e1.ada
+ca1020e2.ada
+ca1020e3.ada
+ca1022a0.ada
+ca1022a1.ada
+ca1022a2.ada
+ca1022a3.ada
+ca1022a4.ada
+ca1022a5.ada
+ca1022a6.ada
+ca11001.a
+ca11002.a
+ca11003.a
+ca110040.a
+ca110041.a
+ca110042.am
+ca110050.a
+ca110051.am
+ca11006.a
+ca11007.a
+ca11008.a
+ca11009.a
+ca11010.a
+ca11011.a
+ca11012.a
+ca11013.a
+ca11014.a
+ca11015.a
+ca11016.a
+ca11017.a
+ca11018.a
+ca11019.a
+ca11020.a
+ca11021.a
+ca11022.a
+ca1102a0.ada
+ca1102a1.ada
+ca1102a2.ada
+ca1106a.ada
+ca1108a.ada
+ca1108b.ada
+ca11a01.a
+ca11a02.a
+ca11b01.a
+ca11b02.a
+ca11c01.a
+ca11c02.a
+ca11c03.a
+ca11d010.a
+ca11d011.a
+ca11d012.a
+ca11d013.am
+ca11d02.a
+ca11d03.a
+ca13001.a
+ca13002.a
+ca13003.a
+ca13a01.a
+ca13a02.a
+ca140230.a
+ca140231.a
+ca140232.am
+ca140233.a
+ca140280.a
+ca140281.a
+ca140282.a
+ca140283.am
+ca15003.a
+ca200020.a
+ca200021.a
+ca200022.am
+ca2001h0.ada
+ca2001h1.ada
+ca2001h2.ada
+ca2001h3.ada
+ca2002a0.ada
+ca2002a1.ada
+ca2002a2.ada
+ca2003a0.ada
+ca2003a1.ada
+ca2004a0.ada
+ca2004a1.ada
+ca2004a2.ada
+ca2004a3.ada
+ca2004a4.ada
+ca2007a0.ada
+ca2007a1.ada
+ca2007a2.ada
+ca2007a3.ada
+ca2008a0.ada
+ca2008a1.ada
+ca2008a2.ada
+ca2009a.ada
+ca2009c0.ada
+ca2009c1.ada
+ca2009d.ada
+ca2009f0.ada
+ca2009f1.ada
+ca2009f2.ada
+ca2011b.ada
+ca21001.a
+ca3011a0.ada
+ca3011a1.ada
+ca3011a2.ada
+ca3011a3.ada
+ca3011a4.ada
+ca5003a0.ada
+ca5003a1.ada
+ca5003a2.ada
+ca5003a3.ada
+ca5003a4.ada
+ca5003a5.ada
+ca5003a6.ada
+ca5003b0.ada
+ca5003b1.ada
+ca5003b2.ada
+ca5003b3.ada
+ca5003b4.ada
+ca5003b5.ada
+ca5004a.ada
+ca5004b0.ada
+ca5004b1.ada
+ca5004b2.ada
+ca5006a.ada
+cb10002.a
+cb1001a.ada
+cb1004a.ada
+cb1005a.ada
+cb1010a.ada
+cb1010c.ada
+cb1010d.ada
+cb20001.a
+cb20003.a
+cb20004.a
+cb20005.a
+cb20006.a
+cb20007.a
+cb2004a.ada
+cb2005a.ada
+cb2006a.ada
+cb2007a.ada
+cb20a02.a
+cb3003a.ada
+cb3003b.ada
+cb3004a.ada
+cb40005.a
+cb4001a.ada
+cb4002a.ada
+cb4003a.ada
+cb4004a.ada
+cb4005a.ada
+cb4006a.ada
+cb4007a.ada
+cb4008a.ada
+cb4009a.ada
+cb4013a.ada
+cb40a01.a
+cb40a020.a
+cb40a021.am
+cb40a030.a
+cb40a031.am
+cb40a04.a
+cb41001.a
+cb41002.a
+cb41003.a
+cb41004.a
+cb5001a.ada
+cb5001b.ada
+cb5002a.ada
+cc1004a.ada
+cc1005b.ada
+cc1010a.ada
+cc1010b.ada
+cc1018a.ada
+cc1104c.ada
+cc1107b.ada
+cc1111a.ada
+cc1204a.ada
+cc1207b.ada
+cc1220a.ada
+cc1221a.ada
+cc1221b.ada
+cc1221c.ada
+cc1221d.ada
+cc1222a.ada
+cc1223a.ada
+cc1224a.ada
+cc1225a.tst
+cc1226b.ada
+cc1227a.ada
+cc1301a.ada
+cc1302a.ada
+cc1304a.ada
+cc1304b.ada
+cc1307a.ada
+cc1307b.ada
+cc1308a.ada
+cc1310a.ada
+cc1311a.ada
+cc1311b.ada
+cc2002a.ada
+cc30001.a
+cc30002.a
+cc3004a.ada
+cc3007a.ada
+cc3007b.ada
+cc3011a.ada
+cc3011d.ada
+cc3012a.ada
+cc3015a.ada
+cc3016b.ada
+cc3016c.ada
+cc3016f.ada
+cc3016i.ada
+cc3017b.ada
+cc3017c.ada
+cc3019a.ada
+cc3019b0.ada
+cc3019b1.ada
+cc3019b2.ada
+cc3019c0.ada
+cc3019c1.ada
+cc3019c2.ada
+cc3106b.ada
+cc3120a.ada
+cc3120b.ada
+cc3121a.ada
+cc3123a.ada
+cc3125a.ada
+cc3125b.ada
+cc3125c.ada
+cc3125d.ada
+cc3126a.ada
+cc3127a.ada
+cc3128a.ada
+cc3203a.ada
+cc3207b.ada
+cc3220a.ada
+cc3221a.ada
+cc3222a.ada
+cc3223a.ada
+cc3224a.ada
+cc3225a.ada
+cc3230a.ada
+cc3231a.ada
+cc3232a.ada
+cc3233a.ada
+cc3234a.ada
+cc3235a.ada
+cc3236a.ada
+cc3240a.ada
+cc3305a.ada
+cc3305b.ada
+cc3305c.ada
+cc3305d.ada
+cc3601a.ada
+cc3601c.ada
+cc3602a.ada
+cc3603a.ada
+cc3605a.ada
+cc3606a.ada
+cc3606b.ada
+cc3607b.ada
+cc40001.a
+cc50001.a
+cc50a01.a
+cc50a02.a
+cc51001.a
+cc51002.a
+cc51003.a
+cc51004.a
+cc51006.a
+cc51007.a
+cc51008.a
+cc51a01.a
+cc51b03.a
+cc51d01.a
+cc51d02.a
+cc54001.a
+cc54002.a
+cc54003.a
+cc54004.a
+cc70001.a
+cc70002.a
+cc70003.a
+cc70a01.a
+cc70a02.a
+cc70b01.a
+cc70b02.a
+cc70c01.a
+cc70c02.a
+cd10001.a
+cd10002.a
+cd1009a.ada
+cd1009b.ada
+cd1009d.ada
+cd1009e.ada
+cd1009f.ada
+cd1009g.ada
+cd1009h.ada
+cd1009i.ada
+cd1009j.ada
+cd1009k.tst
+cd1009l.ada
+cd1009m.ada
+cd1009n.ada
+cd1009o.ada
+cd1009p.ada
+cd1009q.ada
+cd1009r.ada
+cd1009s.ada
+cd1009t.tst
+cd1009u.tst
+cd1009v.ada
+cd1009w.ada
+cd1009x.ada
+cd1009y.ada
+cd1009z.ada
+cd1c03a.ada
+cd1c03b.ada
+cd1c03c.ada
+cd1c03e.tst
+cd1c03f.ada
+cd1c03g.ada
+cd1c03h.ada
+cd1c03i.ada
+cd1c04a.ada
+cd1c04d.ada
+cd1c04e.ada
+cd1c06a.tst
+cd20001.a
+cd2a21a.ada
+cd2a21c.ada
+cd2a21e.ada
+cd2a22a.ada
+cd2a22e.ada
+cd2a22i.ada
+cd2a22j.ada
+cd2a23a.ada
+cd2a23e.ada
+cd2a24a.ada
+cd2a24e.ada
+cd2a24i.ada
+cd2a24j.ada
+cd2a31a.ada
+cd2a31c.ada
+cd2a31e.ada
+cd2a32a.ada
+cd2a32c.ada
+cd2a32e.ada
+cd2a32g.ada
+cd2a32i.ada
+cd2a32j.ada
+cd2a51a.ada
+cd2a53a.ada
+cd2a53e.ada
+cd2a83c.tst
+cd2a91c.tst
+cd2b11a.ada
+cd2b11b.ada
+cd2b11d.ada
+cd2b11e.ada
+cd2b11f.ada
+cd2b15c.ada
+cd2b16a.ada
+cd2c11a.tst
+cd2c11d.tst
+cd2d11a.ada
+cd2d13a.ada
+cd30001.a
+cd30002.a
+cd30003.a
+cd30004.a
+cd300050.am
+cd300051.c
+cd3014a.ada
+cd3014c.ada
+cd3014d.ada
+cd3014f.ada
+cd3015a.ada
+cd3015c.ada
+cd3015e.ada
+cd3015f.ada
+cd3015g.ada
+cd3015h.ada
+cd3015i.ada
+cd3015k.ada
+cd3021a.ada
+cd33001.a
+cd33002.a
+cd40001.a
+cd4031a.ada
+cd4041a.tst
+cd4051a.ada
+cd4051b.ada
+cd4051c.ada
+cd4051d.ada
+cd5003a.ada
+cd5003b.ada
+cd5003c.ada
+cd5003d.ada
+cd5003e.ada
+cd5003f.ada
+cd5003g.ada
+cd5003h.ada
+cd5003i.ada
+cd5011a.ada
+cd5011c.ada
+cd5011e.ada
+cd5011g.ada
+cd5011i.ada
+cd5011k.ada
+cd5011m.ada
+cd5011q.ada
+cd5011s.ada
+cd5012a.ada
+cd5012b.ada
+cd5012e.ada
+cd5012f.ada
+cd5012i.ada
+cd5012m.ada
+cd5013a.ada
+cd5013c.ada
+cd5013e.ada
+cd5013g.ada
+cd5013i.ada
+cd5013k.ada
+cd5013m.ada
+cd5013o.ada
+cd5014a.ada
+cd5014c.ada
+cd5014e.ada
+cd5014g.ada
+cd5014i.ada
+cd5014k.ada
+cd5014m.ada
+cd5014o.ada
+cd5014t.ada
+cd5014v.ada
+cd5014x.ada
+cd5014y.ada
+cd5014z.ada
+cd70001.a
+cd7002a.ada
+cd7007b.ada
+cd7101d.ada
+cd7101e.dep
+cd7101f.dep
+cd7101g.tst
+cd7103d.ada
+cd7202a.ada
+cd7204b.ada
+cd7204c.ada
+cd72a01.a
+cd72a02.a
+cd7305a.ada
+cd90001.a
+cd92001.a
+cda201a.ada
+cda201b.ada
+cda201c.ada
+cda201e.ada
+cdb0a01.a
+cdb0a02.a
+cdd1001.a
+cdd2001.a
+cdd2a01.a
+cdd2a02.a
+cdd2a03.a
+cde0001.a
+ce2102a.ada
+ce2102b.ada
+ce2102c.tst
+ce2102d.ada
+ce2102e.ada
+ce2102f.ada
+ce2102g.ada
+ce2102h.tst
+ce2102i.ada
+ce2102j.ada
+ce2102k.ada
+ce2102l.ada
+ce2102m.ada
+ce2102n.ada
+ce2102o.ada
+ce2102p.ada
+ce2102q.ada
+ce2102r.ada
+ce2102s.ada
+ce2102t.ada
+ce2102u.ada
+ce2102v.ada
+ce2102w.ada
+ce2102x.ada
+ce2102y.ada
+ce2103a.tst
+ce2103b.tst
+ce2103c.ada
+ce2103d.ada
+ce2104a.ada
+ce2104b.ada
+ce2104c.ada
+ce2104d.ada
+ce2106a.ada
+ce2106b.ada
+ce2108e.ada
+ce2108f.ada
+ce2108g.ada
+ce2108h.ada
+ce2109a.ada
+ce2109b.ada
+ce2109c.ada
+ce2110a.ada
+ce2110c.ada
+ce2111a.ada
+ce2111b.ada
+ce2111c.ada
+ce2111e.ada
+ce2111f.ada
+ce2111g.ada
+ce2111i.ada
+ce2201a.ada
+ce2201b.ada
+ce2201c.ada
+ce2201d.dep
+ce2201e.dep
+ce2201f.ada
+ce2201g.ada
+ce2201h.ada
+ce2201i.ada
+ce2201j.ada
+ce2201k.ada
+ce2201l.ada
+ce2201m.ada
+ce2201n.ada
+ce2202a.ada
+ce2203a.tst
+ce2204a.ada
+ce2204b.ada
+ce2204c.ada
+ce2204d.ada
+ce2205a.ada
+ce2206a.ada
+ce2208b.ada
+ce2401a.ada
+ce2401b.ada
+ce2401c.ada
+ce2401e.ada
+ce2401f.ada
+ce2401h.ada
+ce2401i.ada
+ce2401j.ada
+ce2401k.ada
+ce2401l.ada
+ce2402a.ada
+ce2403a.tst
+ce2404a.ada
+ce2404b.ada
+ce2405b.ada
+ce2406a.ada
+ce2407a.ada
+ce2407b.ada
+ce2408a.ada
+ce2408b.ada
+ce2409a.ada
+ce2409b.ada
+ce2410a.ada
+ce2410b.ada
+ce2411a.ada
+ce3002b.tst
+ce3002c.tst
+ce3002d.ada
+ce3002f.ada
+ce3102a.ada
+ce3102b.tst
+ce3102d.ada
+ce3102e.ada
+ce3102f.ada
+ce3102g.ada
+ce3102h.ada
+ce3102i.ada
+ce3102j.ada
+ce3102k.ada
+ce3103a.ada
+ce3104a.ada
+ce3104b.ada
+ce3104c.ada
+ce3106a.ada
+ce3106b.ada
+ce3107a.tst
+ce3107b.ada
+ce3108a.ada
+ce3108b.ada
+ce3110a.ada
+ce3112c.ada
+ce3112d.ada
+ce3114a.ada
+ce3115a.ada
+ce3201a.ada
+ce3202a.ada
+ce3206a.ada
+ce3207a.ada
+ce3301a.ada
+ce3302a.ada
+ce3303a.ada
+ce3304a.tst
+ce3305a.ada
+ce3306a.ada
+ce3401a.ada
+ce3402a.ada
+ce3402c.ada
+ce3402d.ada
+ce3402e.ada
+ce3403a.ada
+ce3403b.ada
+ce3403c.ada
+ce3403d.ada
+ce3403e.ada
+ce3403f.ada
+ce3404a.ada
+ce3404b.ada
+ce3404c.ada
+ce3404d.ada
+ce3405a.ada
+ce3405c.ada
+ce3405d.ada
+ce3406a.ada
+ce3406b.ada
+ce3406c.ada
+ce3406d.ada
+ce3407a.ada
+ce3407b.ada
+ce3407c.ada
+ce3408a.ada
+ce3408b.ada
+ce3408c.ada
+ce3409a.ada
+ce3409b.ada
+ce3409c.ada
+ce3409d.ada
+ce3409e.ada
+ce3410a.ada
+ce3410b.ada
+ce3410c.ada
+ce3410d.ada
+ce3410e.ada
+ce3411a.ada
+ce3411c.ada
+ce3412a.ada
+ce3413a.ada
+ce3413b.ada
+ce3413c.ada
+ce3414a.ada
+ce3601a.ada
+ce3602a.ada
+ce3602b.ada
+ce3602c.ada
+ce3602d.ada
+ce3603a.ada
+ce3604a.ada
+ce3604b.ada
+ce3605a.ada
+ce3605b.ada
+ce3605c.ada
+ce3605d.ada
+ce3605e.ada
+ce3606a.ada
+ce3606b.ada
+ce3701a.ada
+ce3704a.ada
+ce3704b.ada
+ce3704c.ada
+ce3704d.ada
+ce3704e.ada
+ce3704f.ada
+ce3704m.ada
+ce3704n.ada
+ce3704o.ada
+ce3705a.ada
+ce3705b.ada
+ce3705c.ada
+ce3705d.ada
+ce3705e.ada
+ce3706c.ada
+ce3706d.ada
+ce3706f.ada
+ce3706g.ada
+ce3707a.ada
+ce3708a.ada
+ce3801a.ada
+ce3801b.ada
+ce3804a.ada
+ce3804b.ada
+ce3804c.ada
+ce3804d.ada
+ce3804e.ada
+ce3804f.ada
+ce3804g.ada
+ce3804h.ada
+ce3804i.ada
+ce3804j.ada
+ce3804m.ada
+ce3804o.ada
+ce3804p.ada
+ce3805a.ada
+ce3805b.ada
+ce3806a.ada
+ce3806b.ada
+ce3806c.ada
+ce3806d.ada
+ce3806e.ada
+ce3806f.ada
+ce3806g.ada
+ce3806h.ada
+ce3809a.ada
+ce3809b.ada
+ce3810a.ada
+ce3810b.ada
+ce3815a.ada
+ce3901a.ada
+ce3902b.ada
+ce3904a.ada
+ce3904b.ada
+ce3905a.ada
+ce3905b.ada
+ce3905c.ada
+ce3905l.ada
+ce3906a.ada
+ce3906b.ada
+ce3906c.ada
+ce3906d.ada
+ce3906e.ada
+ce3906f.ada
+ce3907a.ada
+ce3908a.ada
+checkfil.ada
+coverage.txt
+cxa3001.a
+cxa3002.a
+cxa3003.a
+cxa3004.a
+cxa4001.a
+cxa4002.a
+cxa4003.a
+cxa4004.a
+cxa4005.a
+cxa4006.a
+cxa4007.a
+cxa4008.a
+cxa4009.a
+cxa4010.a
+cxa4011.a
+cxa4012.a
+cxa4013.a
+cxa4014.a
+cxa4015.a
+cxa4016.a
+cxa4017.a
+cxa4018.a
+cxa4019.a
+cxa4020.a
+cxa4021.a
+cxa4022.a
+cxa4023.a
+cxa4024.a
+cxa4025.a
+cxa4026.a
+cxa4027.a
+cxa4028.a
+cxa4029.a
+cxa4030.a
+cxa4031.a
+cxa4032.a
+cxa4033.a
+cxa4034.a
+cxa5011.a
+cxa5012.a
+cxa5013.a
+cxa5015.a
+cxa5a01.a
+cxa5a02.a
+cxa5a03.a
+cxa5a04.a
+cxa5a05.a
+cxa5a06.a
+cxa5a07.a
+cxa5a08.a
+cxa5a09.a
+cxa5a10.a
+cxa8001.a
+cxa8002.a
+cxa8003.a
+cxa9001.a
+cxa9002.a
+cxaa001.a
+cxaa002.a
+cxaa003.a
+cxaa004.a
+cxaa005.a
+cxaa006.a
+cxaa007.a
+cxaa008.a
+cxaa009.a
+cxaa010.a
+cxaa011.a
+cxaa012.a
+cxaa013.a
+cxaa014.a
+cxaa015.a
+cxaa016.a
+cxaa017.a
+cxaa018.a
+cxaa019.a
+cxab001.a
+cxac001.a
+cxac002.a
+cxac003.a
+cxac004.a
+cxac005.a
+cxaca01.a
+cxaca02.a
+cxacb01.a
+cxacb02.a
+cxacc01.a
+cxaf001.a
+cxb2001.a
+cxb2002.a
+cxb2003.a
+cxb3001.a
+cxb3002.a
+cxb3003.a
+cxb30040.c
+cxb30041.am
+cxb3005.a
+cxb30060.c
+cxb30061.am
+cxb3007.a
+cxb3008.a
+cxb3009.a
+cxb3010.a
+cxb3011.a
+cxb3012.a
+cxb30130.c
+cxb30131.c
+cxb30132.am
+cxb3014.a
+cxb3015.a
+cxb3016.a
+cxb4001.a
+cxb4002.a
+cxb4003.a
+cxb4004.a
+cxb4005.a
+cxb4006.a
+cxb4007.a
+cxb4008.a
+cxb40090.cbl
+cxb40091.cbl
+cxb40092.cbl
+cxb40093.am
+cxb5001.a
+cxb5002.a
+cxb5003.a
+cxb50040.ftn
+cxb50041.ftn
+cxb50042.am
+cxb50050.ftn
+cxb50051.ftn
+cxb50052.am
+cxc3001.a
+cxc3002.a
+cxc3003.a
+cxc3004.a
+cxc3005.a
+cxc3006.a
+cxc3007.a
+cxc3008.a
+cxc3009.a
+cxc6001.a
+cxc6002.a
+cxc6003.a
+cxc7001.a
+cxc7002.a
+cxc7003.a
+cxc7004.a
+cxd1001.a
+cxd1002.a
+cxd1003.a
+cxd1004.a
+cxd1005.a
+cxd1006.a
+cxd1007.a
+cxd1008.a
+cxd2001.a
+cxd2002.a
+cxd2003.a
+cxd2004.a
+cxd2006.a
+cxd2007.a
+cxd2008.a
+cxd3001.a
+cxd3002.a
+cxd3003.a
+cxd4001.a
+cxd4002.a
+cxd4003.a
+cxd4004.a
+cxd4005.a
+cxd4006.a
+cxd4007.a
+cxd4008.a
+cxd4009.a
+cxd4010.a
+cxd5001.a
+cxd6001.a
+cxd6002.a
+cxd6003.a
+cxd8001.a
+cxd8002.a
+cxd8003.a
+cxd9001.a
+cxda001.a
+cxda002.a
+cxda003.a
+cxda004.a
+cxdb001.a
+cxdb002.a
+cxdb003.a
+cxdb004.a
+cxe1001.a
+cxe2001.a
+cxe2002.a
+cxe4001.a
+cxe4002.a
+cxe4003.a
+cxe4004.a
+cxe4005.a
+cxe4006.a
+cxe5001.a
+cxe5002.a
+cxe5003.a
+cxf1001.a
+cxf2001.a
+cxf2002.a
+cxf2003.a
+cxf2004.a
+cxf2005.a
+cxf2a01.a
+cxf2a02.a
+cxf3001.a
+cxf3002.a
+cxf3003.a
+cxf3004.a
+cxf3a01.a
+cxf3a02.a
+cxf3a03.a
+cxf3a04.a
+cxf3a05.a
+cxf3a06.a
+cxf3a07.a
+cxf3a08.a
+cxg1001.a
+cxg1002.a
+cxg1003.a
+cxg1004.a
+cxg1005.a
+cxg2001.a
+cxg2002.a
+cxg2003.a
+cxg2004.a
+cxg2005.a
+cxg2006.a
+cxg2007.a
+cxg2008.a
+cxg2009.a
+cxg2010.a
+cxg2011.a
+cxg2012.a
+cxg2013.a
+cxg2014.a
+cxg2015.a
+cxg2016.a
+cxg2017.a
+cxg2018.a
+cxg2019.a
+cxg2020.a
+cxg2021.a
+cxg2022.a
+cxg2023.a
+cxg2024.a
+cxh1001.a
+cxh3001.a
+cxh3002.a
+cxh30030.a
+cxh30031.am
+cz00004.a
+cz1101a.ada
+cz1102a.ada
+cz1103a.ada
+d4a002a.ada
+d4a002b.ada
+d4a004a.ada
+d4a004b.ada
+e28002b.ada
+e28005d.ada
+e52103y.ada
+eb4011a.ada
+eb4012a.ada
+eb4014a.ada
+ee3203a.ada
+ee3204a.ada
+ee3402b.ada
+ee3409f.ada
+ee3412c.ada
+enumchek.ada
+f340a000.a
+f340a001.a
+f341a00.a
+f390a00.a
+f392a00.a
+f392c00.a
+f392d00.a
+f393a00.a
+f393b00.a
+f3a2a00.a
+f460a00.a
+f730a000.a
+f730a001.a
+f731a00.a
+f940a00.a
+f954a00.a
+fa11a00.a
+fa11b00.a
+fa11c00.a
+fa11d00.a
+fa13a00.a
+fa13b00.a
+fa21a00.a
+fb20a00.a
+fb40a00.a
+fc50a00.a
+fc51a00.a
+fc51b00.a
+fc51c00.a
+fc51d00.a
+fc54a00.a
+fc70a00.a
+fc70b00.a
+fc70c00.a
+fcndecl.ada
+fd72a00.a
+fdb0a00.a
+fdd2a00.a
+fxa5a00.a
+fxaca00.a
+fxacb00.a
+fxacc00.a
+fxc6a00.a
+fxe2a00.a
+fxf2a00.a
+fxf3a00.a
+impdef.a
+impdefc.a
+impdefd.a
+impdefe.a
+impdefg.a
+impdefh.a
+la140010.a
+la140011.am
+la140012.a
+la140020.a
+la140021.am
+la140022.a
+la140030.a
+la140031.a
+la140032.am
+la140033.a
+la140040.a
+la140041.am
+la140042.a
+la140050.a
+la140051.a
+la140052.am
+la140053.a
+la140060.a
+la140061.a
+la140062.am
+la140063.a
+la140070.a
+la140071.a
+la140072.am
+la140073.a
+la140080.a
+la140081.a
+la140082.am
+la140083.a
+la140090.a
+la140091.a
+la140092.am
+la140093.a
+la140100.a
+la140101.a
+la140102.am
+la140103.a
+la140110.a
+la140111.a
+la140112.am
+la140113.a
+la140120.a
+la140121.a
+la140122.am
+la140123.a
+la140130.a
+la140131.a
+la140132.am
+la140133.a
+la140140.a
+la140141.a
+la140142.am
+la140143.a
+la140150.a
+la140151.a
+la140152.am
+la140153.a
+la140160.a
+la140161.a
+la140162.am
+la140163.a
+la140170.a
+la140171.a
+la140172.am
+la140173.a
+la140180.a
+la140181.a
+la140182.am
+la140183.a
+la140190.a
+la140191.a
+la140192.am
+la140193.a
+la140200.a
+la140201.a
+la140202.am
+la140203.a
+la140210.a
+la140211.am
+la140212.a
+la140220.a
+la140221.am
+la140222.a
+la140240.a
+la140241.a
+la140242.am
+la140243.a
+la140250.a
+la140251.am
+la140252.a
+la140260.a
+la140261.a
+la140262.am
+la140263.a
+la140270.a
+la140271.a
+la140272.am
+la140273.a
+la200010.a
+la200011.a
+la200012.am
+la5001a0.ada
+la5001a1.ada
+la5001a2.ada
+la5001a3.ada
+la5001a4.ada
+la5001a5.ada
+la5001a6.ada
+la5001a7.ada
+la5007a0.ada
+la5007a1.ada
+la5007b0.ada
+la5007b1.ada
+la5007c0.ada
+la5007c1.ada
+la5007d0.ada
+la5007d1.ada
+la5007e0.ada
+la5007e1.ada
+la5007f0.ada
+la5007f1.ada
+la5007g0.ada
+la5007g1.ada
+la5008a0.ada
+la5008a1.ada
+la5008b0.ada
+la5008b1.ada
+la5008c0.ada
+la5008c1.ada
+la5008d0.ada
+la5008d1.ada
+la5008e0.ada
+la5008e1.ada
+la5008f0.ada
+la5008f1.ada
+la5008g0.ada
+la5008g1.ada
+lc300010.a
+lc300011.a
+lc300012.am
+lc300020.a
+lc300021.a
+lc300022.am
+lc300030.a
+lc300031.a
+lc300032.am
+lencheck.ada
+lxd70010.a
+lxd70011.a
+lxd70012.am
+lxd70030.a
+lxd70031.a
+lxd70032.am
+lxd70040.a
+lxd70041.a
+lxd70042.am
+lxd70050.a
+lxd70051.a
+lxd70052.am
+lxd70060.a
+lxd70061.a
+lxd70062.am
+lxd70070.a
+lxd70071.a
+lxd70072.am
+lxd70080.a
+lxd70081.a
+lxd70082.am
+lxd70090.a
+lxd70091.a
+lxd70092.am
+lxe30010.am
+lxe30011.am
+lxe30020.am
+lxe30021.am
+lxh40010.a
+lxh40011.a
+lxh40012.am
+lxh40020.a
+lxh40021.a
+lxh40022.am
+lxh40030.a
+lxh40031.a
+lxh40032.a
+lxh40033.am
+lxh40040.a
+lxh40041.a
+lxh40042.a
+lxh40043.am
+lxh40050.a
+lxh40051.a
+lxh40052.a
+lxh40053.am
+lxh40060.a
+lxh40061.a
+lxh40062.a
+lxh40063.am
+lxh40070.a
+lxh40071.a
+lxh40072.a
+lxh40073.am
+lxh40080.a
+lxh40081.a
+lxh40082.a
+lxh40083.a
+lxh40084.am
+lxh40090.a
+lxh40091.a
+lxh40092.a
+lxh40093.am
+lxh40100.a
+lxh40101.a
+lxh40102.a
+lxh40103.am
+lxh40110.a
+lxh40111.a
+lxh40112.am
+lxh40120.a
+lxh40121.a
+lxh40122.a
+lxh40123.am
+lxh40130.a
+lxh40131.a
+lxh40132.a
+lxh40133.am
+lxh40140.a
+lxh40141.a
+lxh40142.am
+macro.dfs
+macrosub.ada
+repbody.ada
+repspec.ada
+spprt13s.tst
+tctouch.ada
+testobj.txt
+tsttests.dat
+ug-apxa.doc
+ug-apxa.pdf
+ug-apxa.txt
+ug-apxb.doc
+ug-apxb.pdf
+ug-apxb.txt
+ug-apxc.doc
+ug-apxc.pdf
+ug-apxc.txt
+ug-apxd.doc
+ug-apxd.pdf
+ug-apxd.txt
+ug-body.doc
+ug-body.pdf
+ug-body.txt
+widechr.a
diff --git a/gcc/testsuite/ada/acats/support/fcndecl.ada b/gcc/testsuite/ada/acats/support/fcndecl.ada
index 53347a4ac85..eddc13743fd 100644
--- a/gcc/testsuite/ada/acats/support/fcndecl.ada
+++ b/gcc/testsuite/ada/acats/support/fcndecl.ada
@@ -3,22 +3,22 @@
 --                             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
+--     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
+--     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
+--     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
+--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE 
 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
 --     PARTICULAR PURPOSE OF SAID MATERIAL.
 --*
diff --git a/gcc/testsuite/ada/acats/support/impdef.a b/gcc/testsuite/ada/acats/support/impdef.a
index 9c23d0b7f76..ca02a7ae2fa 100644
--- a/gcc/testsuite/ada/acats/support/impdef.a
+++ b/gcc/testsuite/ada/acats/support/impdef.a
@@ -105,6 +105,9 @@ package ImpDef is
    Minimum_Task_Switch : constant Duration := 0.001;
    --                                         ^^^ --- MODIFY HERE AS NEEDED
 
+   -- The above constant has been chosen for use with delay statements in the
+   -- GCC testsuite so that they do not take too long, but may be too small.
+
    Long_Minimum_Task_Switch : constant Duration := 0.1;
 
 --=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====--
@@ -119,6 +122,9 @@ package ImpDef is
    Switch_To_New_Task : constant Duration := 0.001;
    --                                        ^^^ -- MODIFY HERE AS NEEDED
 
+   -- The above constant has been chosen for use with delay statements in the
+   -- GCC testsuite so that they do not take too long, but may be too small.
+
    Long_Switch_To_New_Task : constant Duration := 0.1;
 
 --=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====--
@@ -208,7 +214,7 @@ package ImpDef is
  
    -- CD30005_1_Foreign_Address : constant System.Address:=
    --          System.Storage_Elements.To_Address ( 16#0000_0000# )
-   --               --MODIFY HERE AS REQUIRED --- ^^^^^^^^^^^^^
+   --                    MODIFY HERE AS REQUIRED --- ^^^^^^^^^^^^^
 
 --=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====--
 
@@ -337,11 +343,14 @@ package ImpDef is
    -- package Address_Value_IO is
    --     new Ada.Text_IO.Integer_IO(System.Storage_Elements.Integer_Address);
 
-    package Address_Value_IO is
-         new Ada.Text_IO.Modular_IO(System.Storage_Elements.Integer_Address);
+   package Address_Value_IO is
+        new Ada.Text_IO.Modular_IO(System.Storage_Elements.Integer_Address);
 
 --=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====--
 
+   -- The following constants have been defined for use with various delay
+   -- statements in the GCC testsuite so that they do not take too long.
+
    One_Second : constant Duration := 0.001;
    One_Long_Second : constant Duration := 0.1;
 
diff --git a/gcc/testsuite/ada/acats/support/impdefg.a b/gcc/testsuite/ada/acats/support/impdefg.a
index 459ba9c9462..6afc7cd3ca7 100644
--- a/gcc/testsuite/ada/acats/support/impdefg.a
+++ b/gcc/testsuite/ada/acats/support/impdefg.a
@@ -60,24 +60,31 @@ end ImpDef.Annex_G;
  
 package body ImpDef.Annex_G is
 
+   -- NOTE: These are example bodies.  It is expected that implementors
+   --       will write their own versions of these routines.
 
 --=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====--
 
-   --  This function must return a negative zero value for implementations
-   --  for which Float'Signed_Zeros is True.
-   --  We generate the smallest normalized negative number, and divide by a
-   --  few powers of two to obtain a number whose absolute value equals zero
-   --  but whose sign is negative.
+   -- This function must return a negative zero value for implementations
+   -- for which Float'Signed_Zeros is True.
+   --
+   -- The default body simply returns a negated literal 0.0.  If the
+   -- default body does not return the value corresponding to a negatively
+   -- signed zero for the implementation under test, it must be replaced
+   -- by one which does.  See RM A.5.3(13).
 
    function Negative_Zero return Float is
-      negz : float := -1.0 *
-         float (float'Machine_Radix)
-            ** ( Float'Machine_Emin - Float'Machine_Mantissa); 
    begin
-      return negz / 8.0;
+      return -0.0;      -- Note: If this value is not negative zero for the
+                        --       implementation, use of this "default" value
+                        --       could result in false failures in
+                        --       implementations where Float'Signed_Zeros
+                        --       is True.
+
+   -- ^^^^^^^^^^^^^^^^^^^^  MODIFY THIS BODY AS NEEDED  ^^^^^^^^^^^^^^^^^^^^
+
    end Negative_Zero;
 
 --=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====-=====--
 
 end ImpDef.Annex_G;
-
diff --git a/gcc/testsuite/ada/acats/support/macro.dfs b/gcc/testsuite/ada/acats/support/macro.dfs
index e3c55596f25..c0acaf104b1 100644
--- a/gcc/testsuite/ada/acats/support/macro.dfs
+++ b/gcc/testsuite/ada/acats/support/macro.dfs
@@ -244,7 +244,7 @@ MIN_INT                  ACATS4GNATMININT
 -- IDENTIFIER SUCH AS   NO_SUCH_TYPE_AVAILABLE.)                  
 -- USED IN:  C45231D  CD7101G  
 NAME  LONG_LONG_INTEGER                                 
-														
+							
 -- $OPTIONAL_DISC                                       
 -- A DISCRIMINANT USED AS THE DISCRIMINANT PART OF $RECORD_NAME.
 -- IF MACHINE CODE INSERTIONS ARE NOT SUPPORTED THEN SUBSTITUTE
@@ -277,7 +277,7 @@ TASK_SIZE                 ACATS4GNATBIT
 -- THE NUMBER OF STORAGE UNITS REQUIRED FOR A TASK ACTIVATION.
 -- USED IN:  BD2C01D  BD2C02A  BD2C03A  C87B62D  CD1009K  CD1009T  
 --           CD1009U  CD1C03E  CD1C06A  CD2C11A  CC1225A  CD2C11D
-TASK_STORAGE_SIZE 1024                                         
+TASK_STORAGE_SIZE 32768                                         
 							
 -- $VARIABLE_ADDRESS                              
 -- AN EXPRESSION YIELDING A LEGAL ADDRESS FOR A VARIABLE FOR THIS
@@ -298,4 +298,3 @@ VARIABLE_ADDRESS1  VAR_ADDR1
 -- THE MACROS $VARIABLE_ADDRESS AND $VARIABLE_ADDRESS1.          
 -- USED IN:  SPPRT13SP                                    
 VARIABLE_ADDRESS2  VAR_ADDR2
-
diff --git a/gcc/testsuite/ada/acats/support/repbody.ada b/gcc/testsuite/ada/acats/support/repbody.ada
index dd5c53b900f..d7b9fe022cb 100644
--- a/gcc/testsuite/ada/acats/support/repbody.ada
+++ b/gcc/testsuite/ada/acats/support/repbody.ada
@@ -57,7 +57,8 @@
 --      RLB  3/16/00  UPDATED ACATS VERSION STRING TO "2.3".
 --                    CHANGED VARIOUS STRINGS TO READ "ACATS".
 --      RLB  3/22/01  UPDATED ACATS VERSION STRING TO "2.4".
---      RLB  3/29/01  UPDATED ACATS VERSION STRING TO "2.5".
+--      RLB  3/29/02  UPDATED ACATS VERSION STRING TO "2.5".
+--      RLB  3/06/07  UPDATED ACATS VERSION STRING TO "2.6".
 
 WITH TEXT_IO, CALENDAR;
 USE TEXT_IO, CALENDAR;
@@ -80,7 +81,7 @@ PACKAGE BODY REPORT IS
 
 
 
-     ACATS_VERSION : CONSTANT STRING := "2.5";
+     ACATS_VERSION : CONSTANT STRING := "2.6";
                                        -- VERSION OF ACATS BEING RUN (X.XX).
 
      PROCEDURE PUT_MSG (MSG : STRING) IS
diff --git a/gcc/testsuite/ada/acats/support/tctouch.ada b/gcc/testsuite/ada/acats/support/tctouch.ada
index 8fd4f001400..83f12543e0a 100644
--- a/gcc/testsuite/ada/acats/support/tctouch.ada
+++ b/gcc/testsuite/ada/acats/support/tctouch.ada
@@ -93,11 +93,12 @@
 --     16 MAR 00   RLB     Changed foundation id to reflect test suite version.
 --     22 MAR 01   RLB     Changed foundation id to reflect test suite version.
 --     29 MAR 02   RLB     Changed foundation id to reflect test suite version.
+--     06 MAR 07   RLB     Changed foundation id to reflect test suite version.
 --
 --!
 
 package TCTouch is
-  Foundation_ID   : constant String := "TCTouch ACATS 2.5";
+  Foundation_ID   : constant String := "TCTouch ACATS 2.6";
   Max_Touch_Count : constant        := 80;
 
   procedure Assert    ( SB_True  : Boolean; Message : String );
diff --git a/gcc/testsuite/ada/acats/tests/c3/c352001.a b/gcc/testsuite/ada/acats/tests/c3/c352001.a
new file mode 100644
index 00000000000..04b094f1ff3
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/c3/c352001.a
@@ -0,0 +1,270 @@
+--
+-- C352001.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:
+--      Check that the predefined Character type comprises 256 positions.  
+--      Check that the names of the non-graphic characters are usable with 
+--      the attributes (Wide_)Image and (Wide_)Value, and that these
+--      attributes produce the correct result.
+--                 
+-- TEST DESCRIPTION:
+--      Build two tables of nongraphic characters from positions of Row 00 
+--      (0000-001F and 007F-009F) of the ISO 10646 Basic Multilingual Plane.
+--      Fill the first table with compiler created strings. Fill the second 
+--      table with strings defined by the language.  Compare the two tables.  
+--      Check 256 positions of the predefined character type.  Use attributes 
+--      (Wide_)Image and (Wide_)Value to check the values of the non-graphic 
+--      characters and the last 2 characters.
+--
+--
+-- CHANGE HISTORY:
+--      20 Jun 95   SAIC    Initial prerelease version.
+--      27 Jan 96   SAIC    Revised for 2.1.  Hid values, added "del" case.
+--
+--!
+
+with Ada.Characters.Handling;
+with Report;
+procedure C352001 is
+
+   Lower_Bound  : Integer  :=  0;
+   Middle_Bound : Integer  := 31;
+   Upper_Bound  : Integer  := 159;
+   Half_Bound   : Integer  := 127;
+   Max_Bound    : Integer  := 255;
+
+   type Dyn_String is access String;
+   type Value_Result is array (Character) of Dyn_String;
+
+   Table_Of_Character : Value_Result;
+   TC_Table           : Value_Result;
+
+   function CVII(K : Natural) return Character is
+   begin
+     return Character'Val( Report.Ident_Int(K) );
+   end CVII;
+
+   function "=" (L, R : String) return Boolean is
+      UCL : String (L'First .. L'Last);
+      UCR : String (R'First .. R'last);
+   begin
+      UCL := Ada.Characters.Handling.To_Upper (L);
+      UCR := Ada.Characters.Handling.To_Upper (R);
+      if UCL'Last /= UCR'Last then 
+         return False;
+      else
+         for I in UCL'First .. UCR'Last loop
+            if UCL (I) /= UCR (I) then 
+               return False;
+            end if;
+         end loop;
+         return True;
+       end if;
+   end "=";
+
+begin
+
+   Report.Test ("C352001", "Check that, the predefined Character type "     &
+                "comprises 256 positions.  Check that the names of the "    &
+                "non-graphic characters are usable with the attributes "    &
+                "(Wide_)Image and (Wide_)Value, and that these attributes " &
+                "produce the correct result");
+
+   -- Fill table with strings (positions of Row 00 (0000-001F) of the ISO 
+   -- 10646 Basic Multilingual Plane created by the compiler.
+
+   for I in CVII(Lower_Bound) .. CVII(Middle_Bound) loop
+      Table_Of_Character (I) := new String'(Character'Image(I));
+   end loop;
+
+   -- Fill table with strings (positions of Row 00 (007F-009F) of the ISO 
+   -- 10646 Basic Multilingual Plane created by the compiler.
+
+   for I in CVII(Half_Bound) .. CVII(Upper_Bound) loop
+      Table_Of_Character (I) := new String'(Character'Image(I));
+   end loop;
+
+   -- Fill table with strings (positions of Row 00 (0000-001F) of the ISO 
+   -- 10646 Basic Multilingual Plane defined by the language.
+
+   TC_Table (CVII(0))   := new String'("nul");
+   TC_Table (CVII(1))   := new String'("soh");
+   TC_Table (CVII(2))   := new String'("stx");
+   TC_Table (CVII(3))   := new String'("etx");
+   TC_Table (CVII(4))   := new String'("eot");
+   TC_Table (CVII(5))   := new String'("enq");
+   TC_Table (CVII(6))   := new String'("ack");
+   TC_Table (CVII(7))   := new String'("bel"); 
+   TC_Table (CVII(8))   := new String'("bs");
+   TC_Table (CVII(9))   := new String'("ht");
+   TC_Table (CVII(10))  := new String'("lf");
+   TC_Table (CVII(11))  := new String'("vt");
+   TC_Table (CVII(12))  := new String'("ff");
+   TC_Table (CVII(13))  := new String'("cr");
+   TC_Table (CVII(14))  := new String'("so");
+   TC_Table (CVII(15))  := new String'("si");
+   TC_Table (CVII(16))  := new String'("dle");
+   TC_Table (CVII(17))  := new String'("dc1");
+   TC_Table (CVII(18))  := new String'("dc2");
+   TC_Table (CVII(19))  := new String'("dc3");
+   TC_Table (CVII(20))  := new String'("dc4");
+   TC_Table (CVII(21))  := new String'("nak");
+   TC_Table (CVII(22))  := new String'("syn");
+   TC_Table (CVII(23))  := new String'("etb");
+   TC_Table (CVII(24))  := new String'("can");
+   TC_Table (CVII(25))  := new String'("em");
+   TC_Table (CVII(26))  := new String'("sub");
+   TC_Table (CVII(27))  := new String'("esc");
+   TC_Table (CVII(28))  := new String'("fs");
+   TC_Table (CVII(29))  := new String'("gs");
+   TC_Table (CVII(30))  := new String'("rs");
+   TC_Table (CVII(31))  := new String'("us");
+   TC_Table (CVII(127)) := new String'("del");
+
+   -- Fill table with strings (positions of Row 00 (007F-009F) of the ISO 
+   -- 10646 Basic Multilingual Plane defined by the language.
+
+   TC_Table (CVII(128)) := new String'("reserved_128");
+   TC_Table (CVII(129)) := new String'("reserved_129");
+   TC_Table (CVII(130)) := new String'("bph");
+   TC_Table (CVII(131)) := new String'("nbh");
+   TC_Table (CVII(132)) := new String'("reserved_132");
+   TC_Table (CVII(133)) := new String'("nel");
+   TC_Table (CVII(134)) := new String'("ssa");
+   TC_Table (CVII(135)) := new String'("esa");
+   TC_Table (CVII(136)) := new String'("hts");
+   TC_Table (CVII(137)) := new String'("htj");
+   TC_Table (CVII(138)) := new String'("vts");
+   TC_Table (CVII(139)) := new String'("pld");
+   TC_Table (CVII(140)) := new String'("plu");
+   TC_Table (CVII(141)) := new String'("ri");
+   TC_Table (CVII(142)) := new String'("ss2");
+   TC_Table (CVII(143)) := new String'("ss3");
+   TC_Table (CVII(144)) := new String'("dcs");
+   TC_Table (CVII(145)) := new String'("pu1");
+   TC_Table (CVII(146)) := new String'("pu2");
+   TC_Table (CVII(147)) := new String'("sts");
+   TC_Table (CVII(148)) := new String'("cch");
+   TC_Table (CVII(149)) := new String'("mw");
+   TC_Table (CVII(150)) := new String'("spa");
+   TC_Table (CVII(151)) := new String'("epa");
+   TC_Table (CVII(152)) := new String'("sos");
+   TC_Table (CVII(153)) := new String'("reserved_153");
+   TC_Table (CVII(154)) := new String'("sci");
+   TC_Table (CVII(155)) := new String'("csi");
+   TC_Table (CVII(156)) := new String'("st");
+   TC_Table (CVII(157)) := new String'("osc");
+   TC_Table (CVII(158)) := new String'("pm");
+   TC_Table (CVII(159)) := new String'("apc");
+
+
+   -- Compare the first half of two tables.
+   for I in CVII(Lower_Bound) .. CVII(Middle_Bound) loop
+     if TC_Table(I).all /= Table_Of_Character(I).all then
+       Report.Failed("Value of character#" & Integer'Image(Character'Pos(I)) &
+                     " is not the same in the first half of the table");
+     end if;
+   end loop;
+
+
+   -- Compare the second half of two tables.
+   for I in CVII(Half_Bound) .. CVII(Upper_Bound) loop
+     if TC_Table(I).all /= Table_Of_Character(I).all then
+       Report.Failed("Value of character#" & Integer'Image(Character'Pos(I)) &
+                     " is not the same in the second half of the table");
+     end if;
+   end loop;
+
+
+   -- Check the first character.
+   if Character'Image( Character'First ) /= "NUL" then
+      Report.Failed("Value of character#"                           &
+                     Integer'Image(Character'Pos (Character'First)) &
+                    " is not NUL");
+   end if;
+
+
+   -- Check that the names of the non-graphic characters are usable with
+   -- Image and Value attributes.
+   if Character'Value( Character'Image( CVII(153) )) /= 
+     CVII( 153 ) then
+        Report.Failed ("Value of character#"                       &
+                        Integer'Image( Character'Pos(CVII(153)) )  &
+                       " is not reserved_153");
+   end if;
+
+
+   for I in CVII(Lower_Bound) .. CVII(Max_Bound) loop
+     if Character'Value( 
+          Report.Ident_Str(
+            Character'Image(CVII(Character'Pos(I)))))
+        /= CVII( Character'Pos(I)) then
+          Report.Failed ("Value of character#"                             &
+                          Integer'Image( Character'Pos(I) )                &
+                         " is not the same as the predefined character type");
+     end if;
+   end loop;
+
+
+   -- Check Wide_Character attributes.
+   for I in Wide_Character'Val(Lower_Bound) .. Wide_Character'Val(Max_Bound) 
+   loop
+     if Wide_Character'Wide_Value(
+          Report.Ident_Wide_Str(
+            Wide_Character'Wide_Image(
+              Wide_Character'Val(Wide_Character'Pos(I)))))
+        /= Wide_Character'Val(Wide_Character'Pos(I)) 
+     then
+        Report.Failed ("Value of the predefined Wide_Character type " &
+                       "is not correct");
+     end if;
+   end loop;
+
+
+   if Wide_Character'Value( Wide_Character'Image(Wide_Character'Val(132)) ) 
+     /= Wide_Character'Val( Report.Ident_Int(132) ) then
+        Report.Failed ("Wide_Character at 132 is not reserved_132");
+   end if;
+
+
+   if Wide_Character'Image( Wide_Character'First ) /= "NUL" then
+      Report.Failed ("Wide_Character'First is not NUL");
+   end if;
+
+
+   if Wide_Character'Image 
+     (Wide_Character'Pred (Wide_Character'Last) ) /= "FFFE" then
+      Report.Failed ("Wide_Character at 65534 is not FFFE");
+   end if;
+  
+    
+   if Wide_Character'Image(Wide_Character'Last) /= "FFFF" then
+      Report.Failed ("Wide_Character'Last is not FFFF");
+   end if;
+
+   Report.Result;
+
+end C352001;
diff --git a/gcc/testsuite/ada/acats/tests/c4/c433001.a b/gcc/testsuite/ada/acats/tests/c4/c433001.a
index 613b688c8ca..305e010b930 100644
--- a/gcc/testsuite/ada/acats/tests/c4/c433001.a
+++ b/gcc/testsuite/ada/acats/tests/c4/c433001.a
@@ -36,6 +36,7 @@
 --
 -- HISTORY:
 --      16 DEC 1999   RLB   Initial Version.
+--      20 JAN 2009   RLB   Corrected error messages.
 
 with Report;
 procedure C433001 is
@@ -82,10 +83,10 @@ procedure C433001 is
            Report.Failed ("First Component incorrect (" & Test_Case & ")");
         end if;
         if Obj(Low+1) /= Second_Component then
-           Report.Failed ("First Component incorrect (" & Test_Case & ")");
+           Report.Failed ("Second Component incorrect (" & Test_Case & ")");
         end if;
         if Obj(High) /= Last_Component then
-           Report.Failed ("First Component incorrect (" & Test_Case & ")");
+           Report.Failed ("Last Component incorrect (" & Test_Case & ")");
         end if;
     end Check_1;
 
@@ -104,10 +105,10 @@ procedure C433001 is
            Report.Failed ("First Component incorrect (" & Test_Case & ")");
         end if;
         if Obj(Color_Type'Succ(Low)) /= Second_Component then
-           Report.Failed ("First Component incorrect (" & Test_Case & ")");
+           Report.Failed ("Second Component incorrect (" & Test_Case & ")");
         end if;
         if Obj(High) /= Last_Component then
-           Report.Failed ("First Component incorrect (" & Test_Case & ")");
+           Report.Failed ("Last Component incorrect (" & Test_Case & ")");
         end if;
     end Check_2;
 
diff --git a/gcc/testsuite/ada/acats/tests/c4/c453001.a b/gcc/testsuite/ada/acats/tests/c4/c453001.a
new file mode 100644
index 00000000000..53f458464c5
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/c4/c453001.a
@@ -0,0 +1,236 @@
+-- C453001.A
+--
+--                             Grant of Unlimited Rights
+--
+--     The Ada Conformity Assessment Authority (ACAA) holds unlimited
+--     rights in the software and documentation contained herein. Unlimited
+--     rights are the same as those granted by the U.S. Government for older
+--     parts of the Ada Conformity Assessment Test Suite, and are defined
+--     in DFAR 252.227-7013(a)(19). By making this public release, the ACAA
+--     intends to confer upon all recipients unlimited rights equal to those
+--     held by the ACAA. 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 ACAA 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.
+--
+--                                     Notice
+--
+--     The ACAA has created and maintains the Ada Conformity Assessment Test
+--     Suite for the purpose of conformity assessments conducted in accordance
+--     with the International Standard ISO/IEC 18009 - Ada: Conformity
+--     assessment of a language processor. This test suite should not be used
+--     to make claims of conformance unless used in accordance with
+--     ISO/IEC 18009 and any applicable ACAA procedures.
+--*
+-- OBJECTIVES:
+--     Check that overflow checking is not performed for adding operators of
+--     modular types.
+--
+-- TEST DESCRIPTION:
+--     Check that Constraint_Error is not raised by + or - when the result
+--     is out of the range of the base type.
+--     Also check that assignment to values in the upper half of the range
+--     does not raise Constraint_Error.
+--
+--     We define modular types of various common sizes. We cannot
+--     assume a binary modulus greater than 2**16 is supported by 3.5.4(23),
+--     so the DWord type might be smaller on some targets. We also try
+--     a small prime number as a modulus (these are often used for hashing).
+--     We also the language-defined types
+--     System.Storage_Elements.Storage_Element, Ada.Streams.Stream_Element,
+--     and Ada.Containers.Hash_Type.
+--
+-- CHANGE HISTORY:
+--      11 Feb 17   JAC   Initial pre-release version.
+--      30 Mar 17   RLB   Renamed, removed non-modular test cases, removed
+--                        types that aren't required to be supported, added
+--                        other language-defined types, added key to locate
+--                        failures, added additional test cases.
+--      03 Apr 17   RLB   Removed Ada.Containers from the Ada 95 version of
+--                        this test.
+--
+--!
+with Report;
+with System.Storage_Elements;
+with Ada.Streams;
+
+procedure C453001 is
+   type Unsigned_Byte_Type    is mod 16#100#; -- 256;
+
+   type Unsigned_Word_Type    is mod 16#1_0000#; -- 65536;
+
+   type Unsigned_DWord_Type   is mod
+                                Natural'Min (2**32, System.Max_Binary_Modulus);
+
+   type Unsigned_NBM_Type     is mod System.Max_Nonbinary_Modulus;
+
+   type Biggest_Unsigned_Type is mod System.Max_Binary_Modulus;
+
+   type Prime_Type            is mod 23; -- Prime number for hashing.
+
+   generic
+      type Mod_Type is mod <>; -- Assume this is a base type.
+      Key : in String;
+   procedure Test_Operators;
+
+   procedure Test_Operators is
+
+      function Ident_Mod (Val : in Mod_Type) return Mod_Type is
+         -- Optimization breaker.
+      begin
+         if Report.Equal (4, 12) then -- Always False (but complex).
+            return 1;
+         else
+            return Val;
+         end if;
+      end Ident_Mod;
+
+   begin
+      if Mod_Type'First /= 0 then -- The First of a base type is always 0.
+         Report.Failed ("Not base type first - " & Key);
+      end if;
+      if Mod_Type'Last /= Mod_Type'Base'Last then
+         Report.Failed ("Not base type last - " & Key);
+      end if;
+
+      -- Note: Mod_Type'First always is 0.
+
+      -- Check addition
+      declare
+         M : constant Mod_Type := Mod_Type'Last;
+         V : Mod_Type;
+      begin
+         V := M + 1; -- Should wrap around
+         if Ident_Mod (V) /= 0 then
+            Report.Failed ("Addition didn't wrap round - " & Key);
+         end if;
+         V := Ident_Mod (M - 2) + 5; -- Should wrap around
+         if Ident_Mod (V) /= 2 then
+            Report.Failed ("Addition didn't wrap round again - " & Key);
+         end if;
+      exception
+         when Constraint_Error =>
+            Report.Failed ("Constraint_Error raised for addition - " & Key);
+         when others           =>
+            Report.Failed
+             ("Some even more unexpected exception raised for addition - " &
+               Key);
+      end;
+
+      -- Check subtraction
+      declare
+         M : constant Mod_Type := 0;
+         V : Mod_Type;
+      begin
+         V := M - 1; -- Should wrap around
+         if Ident_Mod (V) /= Mod_Type'Last then
+            Report.Failed ("Subtraction didn't wrap round - " & Key);
+         end if;
+         V := Ident_Mod (3) - 7; -- Should wrap around
+         if Ident_Mod (V) /= Mod_Type'Last-3 then
+            Report.Failed ("Subtraction didn't wrap round again - " & Key);
+         end if;
+      exception
+         when Constraint_Error =>
+            Report.Failed ("Constraint_Error raised for subtraction - " & Key);
+         when others           =>
+            Report.Failed
+             ("Some even more unexpected exception raised for subtraction - " &
+                Key);
+      end;
+
+   end Test_Operators;
+
+   procedure Test_Unsigned_Byte_Operators    is new Test_Operators
+                                              (Unsigned_Byte_Type, "Byte");
+
+   procedure Test_Unsigned_Word_Operators    is new Test_Operators
+                                              (Unsigned_Word_Type, "Word");
+
+   procedure Test_Unsigned_DWord_Operators   is new Test_Operators
+                                              (Unsigned_DWord_Type, "DWord");
+
+   procedure Test_Unsigned_NBM_Operators     is new Test_Operators
+                                                 (Unsigned_NBM_Type, "NBM");
+
+   procedure Test_Biggest_Unsigned_Operators is new Test_Operators
+                                              (Biggest_Unsigned_Type, "Big");
+
+   procedure Test_Prime_Operators is new Test_Operators (Prime_Type, "Prime");
+
+   procedure Test_Storage_Element_Operators  is new Test_Operators
+                        (System.Storage_Elements.Storage_Element, "Storage");
+
+   procedure Test_Stream_Element_Operators   is new Test_Operators
+                                     (Ada.Streams.Stream_Element, "Stream");
+
+begin
+
+   Report.Test
+     ("C453001",
+      "Check that overflow checking is not performed for adding operators " &
+      "of modular types");
+
+   -- Check assignment
+   declare
+      -- Define subtypes
+      subtype My_Unsigned_Byte_Type  is Unsigned_Byte_Type;
+      subtype My_Unsigned_Word_Type  is Unsigned_Word_Type;
+      subtype My_Unsigned_DWord_Type is Unsigned_DWord_Type;
+
+      -- Define constants in upper half of range
+      C1 : constant Unsigned_Byte_Type     := Unsigned_Byte_Type'Last;
+      C2 : constant My_Unsigned_Byte_Type  := 16#FE#;
+      C3 : constant Unsigned_Word_Type     := 16#FACE#;
+      C4 : constant My_Unsigned_Word_Type  := My_Unsigned_Word_Type'Last;
+      C5 : constant Unsigned_DWord_Type    := My_Unsigned_DWord_Type'Last;
+
+      -- Define variables
+      V1 : Unsigned_Byte_Type;
+      V2 : My_Unsigned_Byte_Type;
+      V3 : Unsigned_Word_Type;
+      V4 : My_Unsigned_Word_Type;
+      V5 : Unsigned_DWord_Type;
+   begin
+      V1 := C1;
+      V1 := C2;
+      V2 := C1;
+      V2 := C2;
+      V3 := C3;
+      V3 := C4;
+      V4 := C3;
+      V4 := C4;
+      V5 := C5;
+      if V1 /= C2 or V2 /= C2 or V3 /= C4 or V4 /= C4 or V5 /= C5 then
+         Report.Comment ("Don't optimize assignment!"); -- Optimization breaker
+      end if;
+   exception
+      when Constraint_Error =>
+         Report.Failed ("Constraint_Error raised for assignment");
+      when others           =>
+         Report.Failed ("Some even more unexpected exception raised " &
+                        "for assignment");
+   end;
+
+   Test_Unsigned_Byte_Operators;
+   Test_Unsigned_Word_Operators;
+   Test_Unsigned_DWord_Operators;
+   Test_Unsigned_NBM_Operators;
+   Test_Biggest_Unsigned_Operators;
+   Test_Prime_Operators;
+   Test_Storage_Element_Operators;
+   Test_Stream_Element_Operators;
+
+   Report.Result;
+
+end C453001;
+
diff --git a/gcc/testsuite/ada/acats/tests/c4/c45622a.ada b/gcc/testsuite/ada/acats/tests/c4/c45622a.ada
deleted file mode 100644
index 42f02045f17..00000000000
--- a/gcc/testsuite/ada/acats/tests/c4/c45622a.ada
+++ /dev/null
@@ -1,83 +0,0 @@
--- C45622A.ADA
-
---                             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:
---     FOR EXPONENTIATION OF FLOATING POINT TYPES, CHECK THAT
---      CONSTRAINT_ERROR IS RAISED IF
---     MACHINE_OVERFLOWS IS TRUE AND THE RESULT IS OUTSIDE THE RANGE OF
---     THE BASE TYPE.  THIS TESTS DIGITS 5.
-
--- *** NOTE: This test has been modified since ACVC version 1.11 to    -- 9X
--- ***       remove incompatibilities associated with the transition   -- 9X
--- ***       to Ada 9X.                                                -- 9X
--- ***                                                                 -- 9X
-
--- HISTORY:
---     BCB 02/09/88  CREATED ORIGINAL TEST.
---     MRM 03/30/93  REMOVED NUMERIC_ERROR FOR 9X COMPATIBILITY
-
-WITH REPORT; USE REPORT;
-
-PROCEDURE C45622A IS
-
-     TYPE FLT IS DIGITS 5;
-
-     F : FLT;
-
-     FUNCTION EQUAL_FLT (ONE, TWO : FLT) RETURN BOOLEAN IS
-     BEGIN
-          RETURN ONE = TWO * FLT (IDENT_INT(1));
-     END EQUAL_FLT;
-
-BEGIN
-     TEST ("C45622A", "FOR EXPONENTIATION OF FLOATING POINT TYPES, " &
-                      "CHECK THAT CONSTRAINT_ERROR " &
-                      "IS RAISED IF MACHINE_OVERFLOWS IS TRUE AND " &
-                      "THE RESULT IS OUTSIDE THE RANGE OF THE BASE " &
-                      "TYPE.  THIS TESTS DIGITS 5");
-
-     IF FLT'MACHINE_OVERFLOWS THEN
-          BEGIN
-               F := (FLT'BASE'LAST)**IDENT_INT (2);
-               FAILED ("CONSTRAINT_ERROR WAS NOT RAISED FOR " &
-                       "EXPONENTIATION");
-
-               IF NOT EQUAL_FLT(F,F) THEN
-                    COMMENT ("DON'T OPTIMIZE F");
-               END IF;
-          EXCEPTION
-               WHEN CONSTRAINT_ERROR =>
-                    COMMENT ("CONSTRAINT_ERROR WAS RAISED FOR " &
-                             "EXPONENTIATION");
-               WHEN OTHERS =>
-                    FAILED ("AN EXCEPTION OTHER THAN CONSTRAINT_ERROR " &
-                            "WAS RAISED FOR EXPONENTIATION");
-          END;
-     ELSE
-          NOT_APPLICABLE ("THIS TEST IS NOT APPLICABLE DUE TO " &
-                          "MACHINE_OVERFLOWS BEING FALSE");
-     END IF;
-
-     RESULT;
-END C45622A;
diff --git a/gcc/testsuite/ada/acats/tests/c4/c45624a.ada b/gcc/testsuite/ada/acats/tests/c4/c45624a.ada
deleted file mode 100644
index 32ba4c07a69..00000000000
--- a/gcc/testsuite/ada/acats/tests/c4/c45624a.ada
+++ /dev/null
@@ -1,86 +0,0 @@
--- C45624A.ADA
-
---                             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:
---     FOR FLOATING POINT TYPES, CHECK THAT CONSTRAINT_ERROR
---     IS RAISED IF THE RESULT OF A FLOATING POINT
---     EXPONENTIATION IS OUTSIDE THE RANGE OF THE BASE TYPE AND
---     MACHINE_OVERFLOWS IS FALSE.  THIS TESTS DIGITS 5.
-
--- *** NOTE: This test has been modified since ACVC version 1.11 to    -- 9X
--- ***       remove incompatibilities associated with the transition   -- 9X
--- ***       to Ada 9X.                                                -- 9X
--- ***                                                                 -- 9X
-
--- HISTORY:
---     BCB 02/09/88  CREATED ORIGINAL TEST.
---     MRM 03/30/93  REMOVED NUMERIC_ERROR FOR 9X COMPATIBILITY
-
-WITH REPORT; USE REPORT;
-
-PROCEDURE C45624A IS
-
-     TYPE FLT IS DIGITS 5;
-
-     F : FLT;
-
-     FUNCTION EQUAL_FLT (ONE, TWO : FLT) RETURN BOOLEAN IS
-     BEGIN
-          IF EQUAL(3,3) THEN
-               RETURN ONE = TWO;
-          ELSE
-               RETURN ONE /= TWO;
-          END IF;
-     END EQUAL_FLT;
-
-BEGIN
-     TEST ("C45624A", "FOR FLOATING POINT TYPES, CHECK THAT " &
-                      "CONSTRAINT_ERROR IS RAISED " &
-                      "IF MACHINE_OVERFLOWS IS FALSE.  THIS TESTS " &
-                      "DIGITS 5");
-
-     IF FLT'MACHINE_OVERFLOWS THEN
-          NOT_APPLICABLE ("THIS TEST IS NOT APPLICABLE DUE TO " &
-                          "MACHINE_OVERFLOWS BEING TRUE");
-     ELSE
-          BEGIN
-               F := FLT'BASE'FIRST**IDENT_INT (2);
-               COMMENT ("CONSTRAINT_ERROR WAS NOT RAISED WHEN " &
-                         "MACHINE_OVERFLOWS WAS FALSE");
-
-               IF EQUAL_FLT(F,F**IDENT_INT(1)) THEN
-                    COMMENT ("DON'T OPTIMIZE F");
-               END IF;
-          EXCEPTION
-               WHEN CONSTRAINT_ERROR =>
-                    COMMENT ("CONSTRAINT_ERROR WAS RAISED WHEN " &
-                             "MACHINE_OVERFLOWS WAS FALSE");
-               WHEN OTHERS =>
-                    FAILED ("AN EXCEPTION OTHER THAN CONSTRAINT_ERROR " &
-                            "WAS RAISED");
-          END;
-     END IF;
-
-     RESULT;
-END C45624A;
diff --git a/gcc/testsuite/ada/acats/tests/c4/c45624b.ada b/gcc/testsuite/ada/acats/tests/c4/c45624b.ada
deleted file mode 100644
index c7bd592d6f6..00000000000
--- a/gcc/testsuite/ada/acats/tests/c4/c45624b.ada
+++ /dev/null
@@ -1,81 +0,0 @@
--- C45624B.ADA
-
---                             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:
---     FOR FLOATING POINT TYPES, CHECK THAT
---     CONSTRAINT_ERROR IS RAISED IF THE RESULT OF A FLOATING POINT
---     EXPONENTIATION IS OUTSIDE THE RANGE OF THE BASE TYPE AND
---     MACHINE_OVERFLOWS IS FALSE.  THIS TESTS DIGITS 6.
-
--- *** NOTE: This test has been modified since ACVC version 1.11 to    -- 9X
--- ***       remove incompatibilities associated with the transition   -- 9X
--- ***       to Ada 9X.                                                -- 9X
--- ***                                                                 -- 9X
-
--- HISTORY:
---     BCB 07/14/88  CREATED ORIGINAL TEST.
---     MRM 03/30/93  REMOVED NUMERIC_ERROR FOR 9X COMPATIBILITY
-
-WITH REPORT; USE REPORT;
-
-PROCEDURE C45624B IS
-
-     TYPE FLT IS DIGITS 6;
-
-     F : FLT;
-
-     FUNCTION EQUAL_FLT (ONE, TWO : FLT) RETURN BOOLEAN IS
-     BEGIN
-          RETURN ONE = TWO * FLT (IDENT_INT(1));
-     END EQUAL_FLT;
-
-BEGIN
-     TEST ("C45624B", "FOR FLOATING POINT TYPES, CHECK THAT " &
-                      "CONSTRAINT_ERROR IS RAISED " &
-                      "IF MACHINE_OVERFLOWS IS FALSE.  THIS TESTS " &
-                      "DIGITS 6");
-
-     IF FLT'MACHINE_OVERFLOWS THEN
-          NOT_APPLICABLE ("THIS TEST IS NOT APPLICABLE DUE TO " &
-                          "MACHINE_OVERFLOWS BEING TRUE");
-     ELSE
-          BEGIN
-               F := FLT'BASE'LAST**IDENT_INT (2);
-               COMMENT ("CONSTRAINT_ERROR WAS NOT RAISED WHEN " &
-                        "MACHINE_OVERFLOWS WAS FALSE");
-               IF NOT EQUAL_FLT(F,F**IDENT_INT(1)) THEN
-                    COMMENT ("DON'T OPTIMIZE F");
-               END IF;
-          EXCEPTION
-               WHEN CONSTRAINT_ERROR =>
-                    COMMENT ("CONSTRAINT_ERROR WAS RAISED WHEN " &
-                             "MACHINE_OVERFLOWS WAS FALSE");
-               WHEN OTHERS =>
-                    FAILED ("AN EXCEPTION OTHER THAN CONSTRAINT_ERROR " &
-                            "WAS RAISED");
-          END;
-     END IF;
-
-     RESULT;
-END C45624B;
diff --git a/gcc/testsuite/ada/acats/tests/c4/c460013.a b/gcc/testsuite/ada/acats/tests/c4/c460013.a
new file mode 100644
index 00000000000..7644f88594d
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/c4/c460013.a
@@ -0,0 +1,188 @@
+-- C460013.A
+--
+--                             Grant of Unlimited Rights
+--
+--     The Ada Conformity Assessment Authority (ACAA) holds unlimited
+--     rights in the software and documentation contained herein. Unlimited
+--     rights are the same as those granted by the U.S. Government for older
+--     parts of the Ada Conformity Assessment Test Suite, and are defined
+--     in DFAR 252.227-7013(a)(19). By making this public release, the ACAA
+--     intends to confer upon all recipients unlimited rights equal to those
+--     held by the ACAA. 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:
+--    Check that if the target subtype excludes null, the value is not
+--    null. Check access parameters, which null-excluding if:
+--     (1) not null is given in their definition;
+--     (2) the access parameter is controlling;
+--     (3) an Ada 95 compiler is in use.
+--
+--    Note that the not null syntax is required even for Ada 95 compilers
+--    (see AI95-00447).
+--
+-- CHANGE HISTORY:
+--    18 DEC 2006   RLB   Initial version.
+--    05 JAN 2007   RLB   Corrected syntax error.
+--
+--!
+with Ada.Exceptions;
+use Ada.Exceptions;
+with Report;
+use Report;
+procedure C460013 is
+
+
+    package Nest1 is
+        type Doggie is tagged record
+            Cnt : Natural;
+        end record;
+        type Doggie_Access is access all Doggie;
+
+        procedure Controlled (P : access Doggie); -- Always null-excluding.
+    end Nest1;
+
+    package Nest2 is
+        type Kitty is record
+            Cnt : Natural;
+        end record;
+        type Kitty_Access is access all Kitty;
+
+        procedure Include (P : access Kitty); -- Null-excluding only in Ada 95.
+        procedure Exclude (P : not null access Kitty); -- Always null-excluding.
+    end Nest2;
+
+
+    package body Nest1 is
+        procedure Controlled (P : access Doggie) is
+        begin
+            if P.Cnt /= Ident_Int(4) then
+                Failed ("Bad value in null-excluding controlling parameter");
+            -- else OK
+            end if;
+        exception
+            when Constraint_Error => -- Dereference of null
+                Failed ("Null allowed in null-excluding controlling parameter");
+        end Controlled;
+    end Nest1;
+
+    package body Nest2 is
+        procedure Include (P : access Kitty) is
+        begin
+            if P.Cnt /= Ident_Int(31) then
+                Failed ("Bad value in access parameter");
+            -- else OK
+            end if;
+        exception
+            when Constraint_Error => -- Dereference of null
+                null;
+                --Comment ("Null allowed in access parameter - Ada 2005 semantics");
+        end Include;
+
+        procedure Exclude (P : not null access Kitty) is
+        begin
+            if P.Cnt /= Ident_Int(80) then
+                Failed ("Bad value in explicit null-excluding parameter");
+            -- else OK
+            end if;
+        exception
+            when Constraint_Error => -- Dereference of null
+                Failed ("Null allowed in explicit null-excluding parameter");
+        end Exclude;
+    end Nest2;
+
+    Shep : aliased Nest1.Doggie := (Cnt => 4);
+    Frisky : aliased Nest2.Kitty := (Cnt => 80);
+    Snuggles : aliased Nest2.Kitty := (Cnt => 31);
+
+begin
+    Test ("C460013",
+          "Check that if the target subtype excludes null, the value is not" &
+          " null - access parameter cases");
+
+    declare
+        Ptr : Nest1.Doggie_Access := Shep'Access;
+    begin
+        begin
+            Nest1.Controlled (Ptr); -- OK.
+        exception
+	    when A: others =>
+	        Failed ("Unexpected exception " & Exception_Name (A) &
+                        " raised (1A) - " & Exception_Message (A));
+        end;
+        Ptr := null;
+        begin
+            Nest1.Controlled (Ptr);
+	    Failed ("Null allowed for null-excluding controlling access parameter (1)");
+        exception
+            when Constraint_Error =>
+                null;
+	    when B: others =>
+	        Failed ("Unexpected exception " & Exception_Name (B) &
+                        " raised (1B) - " & Exception_Message (B));
+        end;
+    end;
+
+    declare
+        Ptr : Nest2.Kitty_Access := Frisky'Access;
+    begin
+        begin
+            Nest2.Exclude (Ptr); -- OK.
+        exception
+	    when C: others =>
+	        Failed ("Unexpected exception " & Exception_Name (C) &
+                        " raised (2A) - " & Exception_Message (C));
+        end;
+        Ptr := null;
+        begin
+            Nest2.Exclude (Ptr);
+	    Failed ("Null allowed for null-excluding access parameter (2)");
+        exception
+            when Constraint_Error =>
+                null;
+	    when D: others =>
+	        Failed ("Unexpected exception " & Exception_Name (D) &
+                        " raised (2B) - " & Exception_Message (D));
+        end;
+    end;
+
+    declare
+        Ptr : Nest2.Kitty_Access := Snuggles'Access;
+    begin
+        begin
+            Nest2.Include (Ptr); -- OK.
+        exception
+	    when E: others =>
+	        Failed ("Unexpected exception " & Exception_Name (E) &
+                        " raised (3A) - " & Exception_Message (E));
+        end;
+        Ptr := null;
+        begin
+            Nest2.Include (Ptr);
+            Comment ("Null allowed for normal access parameter - " &
+                     "Ada 2005 semantics");
+        exception
+            when Constraint_Error =>
+                Comment ("Null not allowed for normal access parameter - " &
+                         "Ada 95 semantics");
+	    when F: others =>
+	        Failed ("Unexpected exception " & Exception_Name (F) &
+                        " raised (3B) - " & Exception_Message (F));
+        end;
+    end;
+
+    Result;
+end C460013;
+
diff --git a/gcc/testsuite/ada/acats/tests/c4/c460014.a b/gcc/testsuite/ada/acats/tests/c4/c460014.a
new file mode 100644
index 00000000000..59a95d95873
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/c4/c460014.a
@@ -0,0 +1,289 @@
+-- C460014.A
+--
+--                             Grant of Unlimited Rights
+--
+--     The Ada Conformity Assessment Authority (ACAA) holds unlimited
+--     rights in the software and documentation contained herein. Unlimited
+--     rights are the same as those granted by the U.S. Government for older
+--     parts of the Ada Conformity Assessment Test Suite, and are defined
+--     in DFAR 252.227-7013(a)(19). By making this public release, the ACAA
+--     intends to confer upon all recipients unlimited rights equal to those
+--     held by the ACAA. 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 ACAA 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.
+--
+--                                     Notice
+--
+--     The ACAA has created and maintains the Ada Conformity Assessment Test
+--     Suite for the purpose of conformity assessments conducted in accordance
+--     with the International Standard ISO/IEC 18009 - Ada: Conformity
+--     assessment of a language processor. This test suite should not be used
+--     to make claims of conformance unless used in accordance with
+--     ISO/IEC 18009 and any applicable ACAA procedures.
+--*
+-- OBJECTIVES:
+--      Check that if the operand type of a type conversion is
+--      access-to-class-wide, Constraint_Error is raised if the tag of the
+--      object designated by the operand does not identify a specific type
+--      that is covered by or descended from the target type.
+--
+-- TEST DESCRIPTION:
+--      Attempt to convert a parameter of a type that designates a class-wide
+--      type to an object of a type that designates a specific member of that
+--      class, for both an actual with a different tag and an actual with a
+--      matching tag.
+--
+--      This test checks 4.6(42) as required by 4.6(50).
+--
+-- CHANGE HISTORY:
+--      19 Aug 16   JAC     Initial pre-release version.
+--      19 Jan 17   RLB     Readied for release: replaced objective, renamed
+--                          to appropriate number, added class-wide cases,
+--                          eliminated 11.6 problems, added third level of
+--                          types, and checks on null.
+--
+--!
+package C460014_1 is
+   type Root_Facade_Type is tagged record
+      Error_Code : Integer;
+   end record;
+
+   type Root_Facade_Ptr_Type is access all Root_Facade_Type;
+
+   type Facade_Class_Ptr_Type is access all Root_Facade_Type'Class;
+
+   type Data_A_Type is
+   record
+      A : Boolean;
+   end record;
+
+   type Facade_A_Type is new Root_Facade_Type with
+   record
+      Data_A : Data_A_Type;
+   end record;
+
+   type Facade_A_Ptr_Type is access all Facade_A_Type;
+
+   type Facade_A_Class_Ptr_Type is access all Facade_A_Type'Class;
+
+   type Facade_B_Type is new Facade_A_Type with
+   record
+      B : Character;
+   end record;
+
+   type Facade_B_Ptr_Type is access all Facade_B_Type;
+
+   type Facade_B_Class_Ptr_Type is access all Facade_B_Type'Class;
+
+   procedure Define_Construct
+     (Facade_Class_Ptr : in Facade_Class_Ptr_Type);
+
+   procedure Define_Class_Construct
+     (Facade_Class_Ptr : in Facade_Class_Ptr_Type);
+
+   function Init_Root_Facade_Ptr return Root_Facade_Ptr_Type;
+
+   function Init_Facade_A_Ptr     return Facade_A_Ptr_Type;
+
+   function Init_Facade_B_Ptr     return Facade_B_Ptr_Type;
+
+   function Init_Facade_Class_Ptr_with_Root return Facade_Class_Ptr_Type;
+
+   function Init_Facade_Class_Ptr_with_A return Facade_Class_Ptr_Type;
+
+   function Init_Facade_Class_Ptr_with_B return Facade_Class_Ptr_Type;
+
+end C460014_1;
+
+with Report;
+package body C460014_1 is
+
+   procedure Define_Construct
+    (Facade_Class_Ptr : in Facade_Class_Ptr_Type) is
+
+      Facade_A_Ptr : constant Facade_A_Ptr_Type :=
+                                         Facade_A_Ptr_Type (Facade_Class_Ptr);
+
+      My_A : Data_A_Type renames Facade_A_Ptr.Data_A;
+   begin
+      if not My_A.A then
+         Report.Comment ("Wrong value"); -- So My_A is not dead by 11.6(5).
+      end if;
+   end Define_Construct;
+
+   procedure Define_Class_Construct
+    (Facade_Class_Ptr : in Facade_Class_Ptr_Type) is
+
+      Facade_Class_A_Ptr : constant Facade_A_Class_Ptr_Type :=
+                                  Facade_A_Class_Ptr_Type (Facade_Class_Ptr);
+
+   begin
+      if Facade_Class_A_Ptr /= null and then
+         (not Facade_Class_A_Ptr.Data_A.A) then
+         Report.Comment ("Wrong value"); -- So the ptr is not dead by 11.6(5).
+      end if;
+   end Define_Class_Construct;
+
+   Dummy_Root_Facade : aliased Root_Facade_Type := (Error_Code => 123);
+
+   function Init_Root_Facade_Ptr return Root_Facade_Ptr_Type is
+   begin
+      return Dummy_Root_Facade'Access;
+   end Init_Root_Facade_Ptr;
+
+   Dummy_Facade_A    : aliased Facade_A_Type := (Error_Code => 123,
+                                                 Data_A     => (A => True));
+
+   function Init_Facade_A_Ptr     return Facade_A_Ptr_Type is
+   begin
+      return Dummy_Facade_A'Access;
+   end Init_Facade_A_Ptr;
+
+   Dummy_Facade_B    : aliased Facade_B_Type := (Error_Code => 234,
+                                                 Data_A     => (A => True),
+                                                 B          => 'P');
+
+   function Init_Facade_B_Ptr     return Facade_B_Ptr_Type is
+   begin
+      return Dummy_Facade_B'Access;
+   end Init_Facade_B_Ptr;
+
+   function Init_Facade_Class_Ptr_with_Root return Facade_Class_Ptr_Type is
+   begin
+      return Dummy_Root_Facade'Access;
+   end Init_Facade_Class_Ptr_with_Root;
+
+   function Init_Facade_Class_Ptr_with_A return Facade_Class_Ptr_Type is
+   begin
+      return Dummy_Facade_A'Access;
+   end Init_Facade_Class_Ptr_with_A;
+
+   function Init_Facade_Class_Ptr_with_B return Facade_Class_Ptr_Type is
+   begin
+      return Dummy_Facade_B'Access;
+   end Init_Facade_Class_Ptr_with_B;
+
+end C460014_1;
+
+
+with C460014_1;
+with Report;
+
+procedure C460014 is
+
+   My_Root_Facade_Ptr : constant C460014_1.Facade_Class_Ptr_Type :=
+                                    C460014_1.Init_Facade_Class_Ptr_with_Root;
+
+   My_Facade_A_Ptr    : constant C460014_1.Facade_Class_Ptr_Type :=
+                                    C460014_1.Init_Facade_Class_Ptr_with_A;
+
+   My_Facade_B_Ptr    : constant C460014_1.Facade_Class_Ptr_Type :=
+                                    C460014_1.Init_Facade_Class_Ptr_with_B;
+
+   My_Null_Facade_B_Ptr    : constant C460014_1.Facade_B_Ptr_Type := null;
+
+   Constraint_Error_Raised : Boolean;
+
+   procedure Test_Define_Construct
+    (Facade_Class_Ptr : in C460014_1.Facade_Class_Ptr_Type) is
+   begin
+      Constraint_Error_Raised := False;
+      -- Should fail Tag_Check and therefore raise Constraint_Error if
+      -- parameter doesn't designate an object of Facade_A_Type
+      -- or Facade_B_Type.
+      C460014_1.Define_Construct (Facade_Class_Ptr => Facade_Class_Ptr);
+   exception
+      when Constraint_Error =>
+         Constraint_Error_Raised := True;
+   end Test_Define_Construct;
+
+
+   procedure Test_Define_Class_Construct
+    (Facade_Class_Ptr : in C460014_1.Facade_Class_Ptr_Type) is
+   begin
+      Constraint_Error_Raised := False;
+      -- Should fail Tag_Check and therefore raise Constraint_Error if
+      -- parameter doesn't designate an object of Facade_A_Type
+      -- or Facade_B_Type.
+      C460014_1.Define_Class_Construct (Facade_Class_Ptr => Facade_Class_Ptr);
+   exception
+      when Constraint_Error =>
+         Constraint_Error_Raised := True;
+   end Test_Define_Class_Construct;
+
+begin
+
+   Report.Test
+     ("C460014",
+      "Check that if the operand type of a type conversion is " &
+      "access-to-class-wide, Constraint_Error is raised if the tag of the " &
+      "object designated by the operand does not identify a specific type " &
+      "that is covered by or descended from the target type");
+
+   Test_Define_Construct (Facade_Class_Ptr => My_Root_Facade_Ptr);
+
+   if not Constraint_Error_Raised then
+      Report.Failed ("Didn't get expected Constraint_Error (1)");
+   end if;
+
+   Test_Define_Construct
+     (Facade_Class_Ptr => My_Facade_A_Ptr);
+
+   if Constraint_Error_Raised then
+      Report.Failed ("Unexpected Constraint_Error (2)");
+   end if;
+
+   Test_Define_Construct
+     (Facade_Class_Ptr => My_Facade_B_Ptr);
+
+   if Constraint_Error_Raised then
+      Report.Failed ("Unexpected Constraint_Error (3)");
+   end if;
+
+   Test_Define_Class_Construct (Facade_Class_Ptr => My_Root_Facade_Ptr);
+
+   if not Constraint_Error_Raised then
+      Report.Failed ("Didn't get expected Constraint_Error (4)");
+   end if;
+
+   Test_Define_Class_Construct
+     (Facade_Class_Ptr => My_Facade_A_Ptr);
+
+   if Constraint_Error_Raised then
+      Report.Failed ("Unexpected Constraint_Error (5)");
+   end if;
+
+   Test_Define_Class_Construct
+     (Facade_Class_Ptr => My_Facade_B_Ptr);
+
+   if Constraint_Error_Raised then
+      Report.Failed ("Unexpected Constraint_Error (6)");
+   end if;
+
+   -- Check that it is OK to pass null and that does not cause some failure.
+   Test_Define_Class_Construct (Facade_Class_Ptr => null);
+
+   if Constraint_Error_Raised then
+      Report.Failed ("Unexpected Constraint_Error (7)");
+   end if;
+
+   Test_Define_Class_Construct (Facade_Class_Ptr =>
+      C460014_1.Facade_Class_Ptr_Type (My_Null_Facade_B_Ptr));
+
+   if Constraint_Error_Raised then
+      Report.Failed ("Unexpected Constraint_Error (8)");
+   end if;
+
+   Report.Result;
+
+end C460014;
diff --git a/gcc/testsuite/ada/acats/tests/c6/c620001.a b/gcc/testsuite/ada/acats/tests/c6/c620001.a
new file mode 100644
index 00000000000..0f854d198c7
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/c6/c620001.a
@@ -0,0 +1,340 @@
+-- C620001.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:
+--    Check that elementary parameters are passed by copy.
+--
+--    Part 1: Integer, float, and access types, procedures and functions.
+--
+-- TEST DESCRIPTION:
+--    Subtests are:
+--        (A) Scalar parameters to procedures.
+--        (B) Scalar parameters to functions.
+--        (C) Access parameters to procedures.
+--        (D) Access parameters to functions.
+--
+--    For the procedure examples, we pass array elements indexed by dynamically
+--    determined indexes. Doing this side-steps the check of 6.4.1(6.15/3) and
+--    makes the test more realistic.
+--
+--    To completely test this objective, we should also try in out and out
+--    parameters for functions (Ada 2012), in/in out/out parameters for
+--    task and protected entries, and a variety of different scalar types
+--    (enumeration, modular, fixed, decimal).
+--
+-- CHANGE HISTORY:
+--    14 Jan 1980 DAS Created test.
+--    26 Oct 1982 SPS
+--    25 May 1984 CPP
+--    29 Oct 1985 EG  Eliminate the use of Numeric_Error in the test.
+--    14 Mar 2014 RLB Revised so test cases are legal for Ada 2012, modernized
+--                    objective, converted to modern format, added float cases.
+
+with Report;
+procedure C620001 is
+
+     use Report;
+
+begin
+     Test ("C620001", "Check that elementary parameters are passed by copy");
+
+     --------------------------------------------------
+
+     declare  -- (A)
+
+          I,J,K : Natural := Report.Ident_Int(1); -- Index values.
+          Arr   : array (1 .. 4) of Integer;
+          E     : exception;
+
+          procedure P (PI  : in     Integer;
+                       PO  :    out Integer;
+                       PIO : in out Integer) is
+
+               Tmp  : Integer;
+
+          begin
+
+               Tmp := PI;     -- Save value of PI at procedure entry.
+
+               PO := 10;
+               if (PI /= Tmp) then
+                    Failed ("Assignement to scalar out " &
+                            "parameter changes the value of " &
+                            "input parameter");
+                    Tmp := PI;     -- Reset Tmp for next case.
+               end if;
+
+               PIO := PIO + 100;
+               if (PI /= Tmp) then
+                    Failed ("Assignment to scalar in out " &
+                            "parameter changes the value of " &
+                            "inputparameter");
+                    Tmp := PI;     -- Reset Tmp for next case.
+               end if;
+
+               Arr(I) := Arr(I) + 1;
+               if (PI /= Tmp) then
+                    Failed ("Assignment to scalar actual " &
+                            "parameter changes the value of " &
+                            "input parameter");
+               end if;
+
+               raise E;  -- Check exception handling.
+          end P;
+
+     begin  -- (A)
+          Arr := (others => 0);
+          P (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - A");
+     exception
+          when E =>
+               if (Arr(I) /= 1) then
+                    case Arr(I) is
+                         when 11  =>
+                              Failed ("Out actual scalar parameter " &
+                                      "changed global value");
+                         when 101 =>
+                              Failed ("In out actual scalar " &
+                                      "parameter changed global value");
+                         when 111 =>
+                              Failed ("Out and in out actual scalar " &
+                                      "parameters changed global " &
+                                      "value");
+                         when others =>
+                              Failed ("Uundetermined change to global " &
+                                      "value");
+                    end case;
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - A");
+     end;  -- (A)
+
+     --------------------------------------------------
+
+     declare  -- (B)
+
+          I,J  : Integer;
+
+          function F (FI : in Integer) return Integer is
+
+               Tmp  : Integer := FI;
+
+          begin
+
+               I := I + 1;
+               if (FI /= Tmp) then
+                    Failed ("Assignment to scalar actual function " &
+                            "parameter changes the value of " &
+                            "input parameter");
+               end if;
+
+               return (100);
+          end F;
+
+     begin  -- (B)
+          I := 100;
+          J := F (I);
+     end;  -- (B)
+
+     --------------------------------------------------
+
+     declare  -- (C)
+
+          type Acctype is access Integer;
+
+          I,J,K : Natural := Report.Ident_Int(2); -- Index values.
+          Arr   : array (1 .. 5) of Acctype;
+          E     : exception;
+
+          procedure P (PI  : in     Acctype;
+                       PO  :    out Acctype;
+                       PIO : in out Acctype) is
+
+               Tmp  : Acctype;
+
+          begin
+
+               Tmp := PI;     -- Save value of PI at procedure entry.
+
+               Arr(I) := new Integer'(101);
+               if (PI /= Tmp) then
+                    Failed ("Assignment to access actual " &
+                            "parameter changes the value of " &
+                            "input parameter");
+                    Tmp := PI;     -- Reset Tmp for next case.
+               end if;
+
+               PO := new Integer'(1);
+               if (PI /= Tmp) then
+                    Failed ("Assignment to access out " &
+                            "parameter changes the value of " &
+                            "input parameter");
+                    Tmp := PI;     -- Reset Tmp for next case.
+               end if;
+
+               PIO := new Integer'(10);
+               if (PI /= Tmp) then
+                    Failed ("Assignment to access in out " &
+                            "parameter changes the value of " &
+                            "input parameter");
+               end if;
+
+               raise E;  -- Check exception handling.
+          end P;
+
+     begin  -- (C)
+          Arr(I) := new Integer'(100);
+          P (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - C");
+     exception
+          when E =>
+               if (Arr(I).all /= 101) then
+                    Failed ("Out or in out actual procedure " &
+                            "parameter value changed despite " &
+                            "raised exception");
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - C");
+     end;  -- (C)
+
+     --------------------------------------------------
+
+     declare  -- (D)
+
+          Type Acctype is access Integer;
+
+          I,J  : Acctype;
+
+          function F (FI : in Acctype) return Acctype is
+
+               Tmp  : Acctype := FI;
+
+          begin
+
+               I := new Integer;
+               if (FI /= Tmp) then
+                    Failed ("Assignment to access actual function " &
+                            "parameter changes the value of " &
+                            "Input parameter");
+               end if;
+
+               return null;
+          end F;
+
+     begin  -- (D)
+          I := null;
+          J := F(I);
+     end;  -- (D)
+
+     --------------------------------------------------
+
+     declare  -- (E)
+
+          I,J,K : Natural := Report.Ident_Int(3); -- Index values.
+          Arr   : array (1 .. 3) of Float;
+          E     : exception;
+
+          procedure P (PI  : in     Float;
+                       PO  :    out Float;
+                       PIO : in out Float) is
+
+               Tmp  : Float;
+
+          begin
+
+               Tmp := PI;     -- Save value of PI at procedure entry.
+
+               PO := 0.5;
+               if (PI /= Tmp) then
+                    Failed ("Assignement to float out " &
+                            "parameter changes the value of " &
+                            "input parameter");
+                    Tmp := PI;     -- Reset Tmp for next case.
+               end if;
+
+               PIO := PIO + 0.25;
+               if (PI /= Tmp) then
+                    Failed ("Assignment to float in out " &
+                            "parameter changes the value of " &
+                            "inputparameter");
+                    Tmp := PI;     -- Reset Tmp for next case.
+               end if;
+
+               Arr(I) := Arr(I) + 1.0;
+               if (PI /= Tmp) then
+                    Failed ("Assignment to float actual " &
+                            "parameter changes the value of " &
+                            "input parameter");
+               end if;
+
+               raise E;  -- Check exception handling.
+          end P;
+
+     begin  -- (E)
+          Arr := (others => 0.0);
+          P (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - E");
+     exception
+          when E =>
+               if (Arr(I) /= 1.0) then
+                    Failed ("Out or in out actual procedure " &
+                            "parameter value changed despite " &
+                            "raised exception");
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - E");
+     end;  -- (E)
+
+     --------------------------------------------------
+
+     declare  -- (F)
+
+          I,J  : Float;
+
+          function F (FI : in Float) return Float is
+
+               Tmp  : Float := FI;
+
+          begin
+
+               I := I + 1.0;
+               if (FI /= Tmp) then
+                    Failed ("Assignment to float actual function " &
+                            "parameter changes the value of " &
+                            "input parameter");
+               end if;
+
+               return 100.0;
+          end F;
+
+     begin  -- (F)
+          I := 100.0;
+          J := F (I);
+     end;  -- (F)
+
+     --------------------------------------------------
+
+     Result;
+
+end C620001;
diff --git a/gcc/testsuite/ada/acats/tests/c6/c620002.a b/gcc/testsuite/ada/acats/tests/c6/c620002.a
new file mode 100644
index 00000000000..b46a04ecb80
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/c6/c620002.a
@@ -0,0 +1,509 @@
+-- C620001.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:
+--    Check that elementary parameters are passed by copy.
+--
+--    Part 2: Integer, float, and access types, task and protected entries.
+--
+-- TEST DESCRIPTION:
+--    Subtests are:
+--        (A) Scalar parameters to task entries.
+--        (B) Scalar parameters to protected entries.
+--        (C) Access parameters to task entries.
+--        (D) Access parameters to protected entries.
+--
+--    For all of these examples, we pass array elements indexed by dynamically
+--    determined indexes. Doing this side-steps the check of 6.4.1(6.15/3) and
+--    makes the test more realistic.
+--
+--    Note: This is based on legacy test C95072A.ADA (which was withdrawn).
+--
+-- CHANGE HISTORY:
+--    22 Jul 1985 DAS Created test.
+--    12 May 2020 RLB Revised so test cases are legal for Ada 2012, modernized
+--                    objective, converted to modern format, added float 
+--                    and protected cases.
+
+with Report;
+procedure C620002 is
+
+     use Report;
+
+begin
+     Test ("C620002", "Check that elementary parameters are passed by copy," &
+                      " part 2 - task and protected entries");
+
+     --------------------------------------------------
+
+     declare  -- (A)
+
+          I,J,K : Natural := Report.Ident_Int (1); -- Index values.
+          Arr   : array (1 .. 4) of Integer;
+          E     : exception;
+
+          task TA is
+               entry EA (EI  : in     Integer;
+                         EO  :    out Integer;
+                         EIO : in out Integer);
+          end TA;
+
+          task body TA is
+
+               Tmp : Integer;
+
+          begin
+
+               accept EA (EI  : in     Integer;
+                          EO  :    out Integer;
+                          EIO : in out Integer) do
+
+                    Tmp := EI;     -- Save value of EI at accept.
+
+                    EO := 10;
+                    if EI /= Tmp then
+                         Failed ("Assignement to scalar out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - A");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    EIO := EIO + 100;
+                    if EI /= Tmp then
+                         Failed ("Assignment to scalar in out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - A");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    Arr(I) := Arr(I) + 1;
+                    if EI /= Tmp then
+                         Failed ("Assignment to scalar actual " &
+                                 "parameter changes the value of " &
+                                 "input parameter - A");
+                    end if;
+ 
+                    raise E;  -- Check exception handling.
+               end EA;
+
+          exception
+               when others => null;
+          end TA;
+
+     begin  -- (A)
+          Arr := (others => 0);
+          TA.EA (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - A");
+     exception
+          when E =>
+               if Arr(I) /= 1 then
+                    case Arr(I) is
+                         when 11  =>
+                              Failed ("Out actual scalar parameter " &
+                                      "changed global value - A");
+                         when 101 =>
+                              Failed ("In out actual scalar " &
+                                      "parameter changed global value - A");
+                         when 111 =>
+                              Failed ("Out and in out actual scalar " &
+                                      "parameters changed global " &
+                                      "value - A");
+                         when others =>
+                              Failed ("Undetermined change to global " &
+                                      "value - A");
+                    end case;
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - A");
+     end;  -- (A)
+
+     --------------------------------------------------
+
+     declare  -- (B)
+
+          I,J,K : Natural := Report.Ident_Int (3); -- Index values.
+          Arr   : array (1 .. 5) of Integer;
+          E     : exception;
+
+          protected PA is
+               entry EA (EI  : in     Integer;
+                         EO  :    out Integer;
+                         EIO : in out Integer);
+          end PA;
+
+          protected body PA is
+
+               entry EA (EI  : in     Integer;
+                         EO  :    out Integer;
+                         EIO : in out Integer) when True is
+
+                   Tmp : Integer;
+
+               begin
+
+                    Tmp := EI;     -- Save value of EI at entry.
+
+                    EO := 10;
+                    if EI /= Tmp then
+                         Failed ("Assignement to scalar out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - B");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    EIO := EIO + 100;
+                    if EI /= Tmp then
+                         Failed ("Assignment to scalar in out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - B");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    Arr(I) := Arr(I) + 1;
+                    if EI /= Tmp then
+                         Failed ("Assignment to scalar actual " &
+                                 "parameter changes the value of " &
+                                 "input parameter - B");
+                    end if;
+ 
+                    raise E;  -- Check exception handling.
+               end EA;
+
+          end PA;
+
+     begin  -- (B)
+          Arr := (others => 0);
+          PA.EA (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - B");
+     exception
+          when E =>
+               if Arr(I) /= 1 then
+                    case Arr(I) is
+                         when 11  =>
+                              Failed ("Out actual scalar parameter " &
+                                      "changed global value - B");
+                         when 101 =>
+                              Failed ("In out actual scalar " &
+                                      "parameter changed global value - B");
+                         when 111 =>
+                              Failed ("Out and in out actual scalar " &
+                                      "parameters changed global " &
+                                      "value - B");
+                         when others =>
+                              Failed ("Undetermined change to global " &
+                                      "value - B");
+                    end case;
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - B");
+     end;  -- (B)
+
+     --------------------------------------------------
+
+     declare  -- (C)
+
+          type Acctype is access Integer;
+
+          I,J,K : Natural := Report.Ident_Int (2); -- Index values.
+          Arr   : array (1 .. 5) of Acctype;
+          E     : exception;
+
+          task TB is
+               entry EB (EI  : in     Acctype;
+                         EO  :    out Acctype;
+                         EIO : in out Acctype);
+          end TB;
+
+          task body TB is
+
+               Tmp  : Acctype;
+
+          begin
+
+               accept EB (EI  : in     Acctype;
+                          EO  :    out Acctype;
+                          EIO : in out Acctype) do
+
+                    Tmp := EI;     -- Save value of EI at accept.
+
+                    Arr(I) := new Integer'(101);
+                    if EI /= Tmp then
+                         Failed ("Assignment to access actual " &
+                                 "parameter changes the value of " &
+                                 "input parameter - C");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    EO := new Integer'(1);
+                    if EI /= Tmp then
+                         Failed ("Assignment to access out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - C");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    EIO := new Integer'(10);
+                    if EI /= Tmp then
+                         Failed ("Assignment to access in out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - C");
+                    end if;
+
+                    raise E;  -- Check exception handling.
+              end EB;
+
+          exception
+               when others => null;
+          end TB;
+
+     begin  -- (C)
+          Arr(I) := new Integer'(100);
+          TB.EB (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - C");
+     exception
+          when E =>
+               if (Arr(I).all /= 101) then
+                    Failed ("Out or in out actual " &
+                            "parameter value changed despite " &
+                            "raised exception - C");
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - C");
+     end;  -- (C)
+
+     --------------------------------------------------
+
+     declare  -- (D)
+
+          type Acctype is access Integer;
+
+          I,J,K : Natural := Report.Ident_Int (4); -- Index values.
+          Arr   : array (1 .. 6) of Acctype;
+          E     : exception;
+
+          protected PB is
+               entry EB (EI  : in     Acctype;
+                         EO  :    out Acctype;
+                         EIO : in out Acctype);
+          end PB;
+
+          protected body PB is
+
+               entry EB (EI  : in     Acctype;
+                         EO  :    out Acctype;
+                         EIO : in out Acctype) when True is
+
+                    Tmp  : Acctype;
+
+               begin
+                    Tmp := EI;     -- Save value of EI at entry.
+
+                    Arr(I) := new Integer'(101);
+                    if EI /= Tmp then
+                         Failed ("Assignment to access actual " &
+                                 "parameter changes the value of " &
+                                 "input parameter - D");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    EO := new Integer'(1);
+                    if EI /= Tmp then
+                         Failed ("Assignment to access out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - D");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    EIO := new Integer'(10);
+                    if EI /= Tmp then
+                         Failed ("Assignment to access in out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - D");
+                    end if;
+
+                    raise E;  -- Check exception handling.
+               end EB;
+
+          end PB;
+
+     begin  -- (D)
+          Arr(I) := new Integer'(100);
+          PB.EB (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - D");
+     exception
+          when E =>
+               if (Arr(I).all /= 101) then
+                    Failed ("Out or in out actual " &
+                            "parameter value changed despite " &
+                            "raised exception - D");
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - D");
+     end;  -- (D)
+
+     --------------------------------------------------
+
+     declare  -- (E)
+
+          I,J,K : Natural := Report.Ident_Int (3); -- Index values.
+          Arr   : array (1 .. 3) of Float;
+          E     : exception;
+
+          task TC is
+               entry EC (EI  : in     Float;
+                         EO  :    out Float;
+                         EIO : in out Float);
+          end TC;
+
+          task body TC is
+
+               Tmp : Float;
+
+          begin
+
+               accept EC (EI  : in     Float;
+                          EO  :    out Float;
+                          EIO : in out Float) do
+
+                    Tmp := EI;     -- Save value of EI at accept.
+
+                    EO := 0.5;
+                    if EI /= Tmp then
+                         Failed ("Assignement to float out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - E");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    EIO := EIO + 0.25;
+                    if EI /= Tmp then
+                         Failed ("Assignment to float in out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - E");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    Arr(I) := Arr(I) + 1.0;
+                    if EI /= Tmp then
+                         Failed ("Assignment to float actual " &
+                                 "parameter changes the value of " &
+                                 "input parameter - E");
+                    end if;
+ 
+                    raise E;  -- Check exception handling.
+               end EC;
+
+          exception
+               when others => null;
+          end TC;
+
+     begin  -- (E)
+          Arr := (others => 0.0);
+          TC.EC (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - E");
+     exception
+          when E =>
+               if (Arr(I) /= 1.0) then
+                    Failed ("Out or in out actual procedure " &
+                            "parameter value changed despite " &
+                            "raised exception - E");
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - E");
+     end;  -- (E)
+
+     --------------------------------------------------
+
+     declare  -- (F)
+
+          I,J,K : Natural := Report.Ident_Int (6); -- Index values.
+          Arr   : array (1 .. 7) of Float;
+          E     : exception;
+
+          protected PC is
+               entry EC (EI  : in     Float;
+                         EO  :    out Float;
+                         EIO : in out Float);
+          end PC;
+
+          protected body PC is
+
+               entry EC (EI  : in     Float;
+                         EO  :    out Float;
+                         EIO : in out Float) when True is
+
+                    Tmp : Float;
+
+               begin
+
+                    Tmp := EI;     -- Save value of EI at entry.
+
+                    EO := 0.5;
+                    if EI /= Tmp then
+                         Failed ("Assignement to float out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - F");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    EIO := EIO + 0.25;
+                    if EI /= Tmp then
+                         Failed ("Assignment to float in out " &
+                                 "parameter changes the value of " &
+                                 "input parameter - F");
+                         Tmp := EI;     -- Reset Tmp for next case.
+                    end if;
+
+                    Arr(I) := Arr(I) + 1.0;
+                    if EI /= Tmp then
+                         Failed ("Assignment to float actual " &
+                                 "parameter changes the value of " &
+                                 "input parameter - F");
+                    end if;
+ 
+                    raise E;  -- Check exception handling.
+               end EC;
+
+          end PC;
+
+     begin  -- (F)
+          Arr := (others => 0.0);
+          PC.EC (Arr(I), Arr(J), Arr(K));
+          Failed ("Exception not raised - F");
+     exception
+          when E =>
+               if (Arr(I) /= 1.0) then
+                    Failed ("Out or in out actual procedure " &
+                            "parameter value changed despite " &
+                            "raised exception - F");
+               end if;
+          when others =>
+               Failed ("Wrong exception raised - F");
+     end;  -- (F)
+
+     --------------------------------------------------
+
+     Result;
+
+end C620002;
diff --git a/gcc/testsuite/ada/acats/tests/c7/c761006.a b/gcc/testsuite/ada/acats/tests/c7/c761006.a
index 771e625d10f..5cf4d899536 100644
--- a/gcc/testsuite/ada/acats/tests/c7/c761006.a
+++ b/gcc/testsuite/ada/acats/tests/c7/c761006.a
@@ -55,6 +55,9 @@
 --      01 DEC 97   EDS    Made correction wrt RM 7.6(21)
 --      16 MAR 01   RLB    Corrected Adjust cases to avoid problems with
 --                         RM 7.6.1(16/1) from Technical Corrigendum 1.
+--      05 JUL 12   RLB    Redid Unchecked_Deallocation case to handle
+--                         the fact that the behavior is unspecified (see
+--                         AI95-0179-1). Also fixed indentation.
 --
 --!
 
@@ -346,23 +349,39 @@ procedure C761006 is
     -- finalization of Item/Target should cause PE
     end Finalize_15;
 
-  -- check failure in finalize due to Unchecked_Deallocation
+    -- check failure in finalize due to Unchecked_Deallocation
 
-  type Shark is access C761006_2.Fin_Check;
+    procedure Finalize_17_Outer is
+      -- This procedure exists to make Shark local, so everything allocated
+      -- on it will be finalized when this routine exits.
 
-  procedure Catch is
-    new Unchecked_Deallocation( C761006_2.Fin_Check, Shark );
+      type Shark is access C761006_2.Fin_Check;
 
-  procedure Finalize_17 is
-    White : Shark := new C761006_2.Fin_Check;
-  begin
-    Catch( White );
-  exception
-    when Program_Error =>
+      procedure Catch is
+        new Unchecked_Deallocation( C761006_2.Fin_Check, Shark );
+
+      procedure Finalize_17_Inner is
+        White : Shark := new C761006_2.Fin_Check;
+      begin
+        Catch (White);
+          -- Note: It is unspecified if Catch deallocates the memory
+          -- of the allocated object, and if it ceases to exist.
+          -- As such, it is possible that it will be finalized when
+          -- the scope of the access type is exited. We check for this
+          -- case below.
+      exception
+        when Program_Error =>
            if not Sup.Events_Occurring(Sup.Good_Finalize) then
              Report.Failed("Unchecked_Deallocation: " & Fin_Not_Perf);
            end if;
-  end Finalize_17;
+      end Finalize_17_Inner;
+
+    begin
+       Finalize_17_Inner;
+    exception
+      when others =>
+        Report.Failed("Unchecked_Deallocation check, unwanted exception in Outer");
+    end Finalize_17_Outer;
 
   begin
 
@@ -373,10 +392,12 @@ procedure C761006 is
     end Exception_In_Finalization;
 
     Use_Of_Unchecked_Deallocation: begin
-      Finalize_17;
+      Finalize_17_Outer;
     exception
+      when Program_Error =>
+        Report.Comment("Unchecked_Deallocation check, double finalization occurred");
       when others =>
-        Report.Failed("Unchecked_Deallocation check, unwanted exception");
+        Report.Failed("Unchecked_Deallocation check, unwanted exception in caller");
     end Use_Of_Unchecked_Deallocation;
 
   end Finalize_Test;
diff --git a/gcc/testsuite/ada/acats/tests/c9/c96004a.ada b/gcc/testsuite/ada/acats/tests/c9/c96004a.ada
index f5357fc5130..b1f769b3375 100644
--- a/gcc/testsuite/ada/acats/tests/c9/c96004a.ada
+++ b/gcc/testsuite/ada/acats/tests/c9/c96004a.ada
@@ -3,22 +3,22 @@
 --                             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 
+--     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 
+--     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 
+--     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 
+--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
 --     PARTICULAR PURPOSE OF SAID MATERIAL.
 --*
@@ -35,6 +35,8 @@
 --     CPP 08/15/84  CREATED ORIGINAL TEST.
 --     JET 01/06/88  UPDATED HEADER FORMAT AND ADDED CODE TO PREVENT
 --                   OPTIMIZATION.
+--     RLB 12/18/06  Changed so that the test will work for Ada 2005
+--                   implementations.
 
 WITH CALENDAR;  USE CALENDAR;
 WITH REPORT;  USE REPORT;
@@ -92,15 +94,35 @@ BEGIN
           END;
 
           BEGIN
-               YR := IDENT_INT(YEAR_NUMBER'LAST + 1);
-               FAILED ("EXCEPTION NOT RAISED - (A)3");
+               YR := IDENT_INT(2100);
                IF NOT EQUAL (YR, YR) THEN
                     COMMENT ("NO EXCEPTION RAISED");
                END IF;
-
+               BEGIN
+                    YR := 2399;
+                    IF NOT EQUAL (YR, YR) THEN
+                         COMMENT ("NO EXCEPTION RAISED");
+                    END IF;
+
+               EXCEPTION
+                   WHEN OTHERS =>
+                        FAILED ("ADA 2005 CASE RAISED EXCEPTION ON 2399 - (A)");
+               END;
+               BEGIN
+                    YR := IDENT_INT(2400);
+                    IF NOT EQUAL (YR, YR) THEN
+                        COMMENT ("NO EXCEPTION RAISED");
+                    END IF;
+                    FAILED ("EXCEPTION NOT RAISED - (A)3");
+               EXCEPTION
+                    WHEN CONSTRAINT_ERROR =>
+                         Comment ("Upper bound of Year_Number is appropriate" &
+                                  " for Ada 2005");
+               END;
           EXCEPTION
                WHEN CONSTRAINT_ERROR =>
-                    NULL;
+                    Comment ("Upper bound of Year_Number is appropriate" &
+                             " for Ada 95");
                WHEN OTHERS =>
                     FAILED ("WRONG EXCEPTION RAISED - (A)3");
           END;
diff --git a/gcc/testsuite/ada/acats/tests/c9/c96007a.ada b/gcc/testsuite/ada/acats/tests/c9/c96007a.ada
index beda25fd5e8..15ac5e9b7ed 100644
--- a/gcc/testsuite/ada/acats/tests/c9/c96007a.ada
+++ b/gcc/testsuite/ada/acats/tests/c9/c96007a.ada
@@ -3,22 +3,22 @@
 --                             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 
+--     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 
+--     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 
+--     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 
+--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
 --     PARTICULAR PURPOSE OF SAID MATERIAL.
 --*
@@ -27,7 +27,9 @@
 --   (A) TIME_ERROR IS RAISED ON INVALID DATES.
 --   (B) CONSTRAINT_ERROR IS RAISED FOR OUT-OF-RANGE PARAMETERS.
 
--- CPP 8/16/84
+-- CPP  8/16/84
+-- RLB 12/18/06 - Changed so that the test will work for Ada 2005
+--                implementations.
 
 WITH CALENDAR;  USE CALENDAR;
 WITH REPORT;  USE REPORT;
@@ -136,13 +138,13 @@ BEGIN
           END;
 
           BEGIN
-               BAD_TIME := TIME_OF (YEAR_NUMBER'LAST + 1, 8, 13);
-               FAILED ("EXCEPTION NOT RAISED - 2100 (B)");
+               BAD_TIME := TIME_OF (YEAR_NUMBER'LAST+1, 8, 13);
+               FAILED ("EXCEPTION NOT RAISED - YEAR_NUM'LAST+1 (B)");
           EXCEPTION
                WHEN CONSTRAINT_ERROR =>
                     NULL;
                WHEN OTHERS =>
-                    FAILED ("WRONG EXCEPTION RAISED - 2100 (B)");
+                    FAILED ("WRONG EXCEPTION RAISED - YEAR_NUM'LAST+1 (B)");
           END;
 
           BEGIN
diff --git a/gcc/testsuite/ada/acats/tests/cb/cb41004.a b/gcc/testsuite/ada/acats/tests/cb/cb41004.a
index 5a7b704949f..b73ed8fcf14 100644
--- a/gcc/testsuite/ada/acats/tests/cb/cb41004.a
+++ b/gcc/testsuite/ada/acats/tests/cb/cb41004.a
@@ -56,10 +56,8 @@
 --      06 Dec 94   SAIC    ACVC 2.0
 --      08 Dec 00   RLB     Removed Exception_Identity subtest, pending
 --                          resolution of AI95-00241.
---                          Notes for future: Replace Exception_Identity
---                          subtest with whatever the resolution is.
---                          Add a subtest for Exception_Name(Null_Id), which
---                          is missing from this test.
+--      29 Mar 07   RLB     Replaced Exception_Identity subtest, repaired
+--                          Raise_Exception subtest for AI95-00446.
 --!
 
 with Report;
@@ -96,6 +94,29 @@ begin
       end if;
 
 
+      -- Verify that Raise_Exception has no effect in the case of Null_Id.
+      -- Modified by AI-446.
+      begin
+         Ada.Exceptions.Raise_Exception(A_Null_Exception_Id);
+         Report.Comment(
+           "No exception raised by procedure Raise_Exception " &
+           "when called with a Null_Id input parameter - compatible with " &
+           "original Ada95");
+      exception
+         when Constraint_Error => null; -- OK, expected exception.
+            Report.Comment(
+               "Constraint_Error exception raised by procedure Raise_Exception " &
+               "when called with a Null_Id input parameter - compatible with " &
+               "AI95-00446");
+         when others =>
+            Report.Failed(
+               "Unexpected exception raised by procedure Raise_Exception " &
+               "when called with a Null_Id input parameter");
+      end;
+
+      TC_Flag := False;
+
+
       -- Verify that Reraise_Occurrence has no effect in the case of
       -- Null_Occurrence.
       begin
@@ -135,26 +156,30 @@ begin
       end;
 
 
---      -- Verify that function Exception_Identity raises Constraint_Error for
---      -- a Null_Occurrence input parameter.
---      -- Note: (RLB, 2000/12/08) This behavior may be modified by AI-00241.
---      -- As such, this test case has been removed pending a resolution.
---      begin
---         declare
---            Id : Ada.Exceptions.Exception_Id :=
---              Ada.Exceptions.Exception_Identity(A_Null_Exception_Occurrence);
---         begin
---            Report.Failed
---              ("Constraint_Error not raised by Function Exception_Identity " &
---               "when called with a Null_Occurrence input parameter");
---         end;
---      exception
---         when Constraint_Error => null; -- OK, expected exception.
---         when others =>
---            Report.Failed
---              ("Unexpected exception raised by Function Exception_Identity " &
---               "when called with a Null_Occurrence input parameter");
---      end;
+      -- Verify that function Exception_Identity raises Constraint_Error for
+      -- a Null_Occurrence input parameter.
+      -- Modified by AI-241.
+      begin
+         declare
+            Id : Ada.Exceptions.Exception_Id :=
+              Ada.Exceptions.Exception_Identity(A_Null_Exception_Occurrence);
+         begin
+            Report.Comment
+              ("No exception raised by Function Exception_Identity " &
+               "when called with a Null_Occurrence input parameter - " &
+               "compatible with AI95-00241.");
+         end;
+      exception
+         when Constraint_Error =>
+            Report.Comment
+              ("Constraint_Error raised by Function Exception_Identity " &
+               "when called with a Null_Occurrence input parameter - " &
+               "compatible with original Ada95.");
+         when others =>
+            Report.Failed
+              ("Unexpected exception raised by Function Exception_Identity " &
+               "when called with a Null_Occurrence input parameter");
+      end;
 
 
       -- Verify that function Exception_Name raises Constraint_Error for
diff --git a/gcc/testsuite/ada/acats/tests/cc/cc3016f.ada b/gcc/testsuite/ada/acats/tests/cc/cc3016f.ada
index 9a1f099c1c9..ef94672086d 100644
--- a/gcc/testsuite/ada/acats/tests/cc/cc3016f.ada
+++ b/gcc/testsuite/ada/acats/tests/cc/cc3016f.ada
@@ -3,26 +3,25 @@
 --                             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 
+--     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 
+--     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 
+--     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 
+--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
 --     PARTICULAR PURPOSE OF SAID MATERIAL.
 --*
---     OFFICE, 3E 114, THE PENTAGON, WASHINGTON DC 20301-3081.
 
 -- OBJECTIVE:
 --   CHECK THAT AN INSTANTIATED PACKAGE HAS THE PROPERTIES REQUIRED
diff --git a/gcc/testsuite/ada/acats/tests/cd/cd30011.a b/gcc/testsuite/ada/acats/tests/cd/cd30011.a
new file mode 100644
index 00000000000..2cd96a44b71
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/cd/cd30011.a
@@ -0,0 +1,155 @@
+-- CD30011.A
+
+--                             Grant of Unlimited Rights
+--
+--     The Ada Conformity Assessment Authority (ACAA) holds unlimited
+--     rights in the software and documentation contained herein. Unlimited
+--     rights are the same as those granted by the U.S. Government for older
+--     parts of the Ada Conformity Assessment Test Suite, and are defined
+--     in DFAR 252.227-7013(a)(19). By making this public release, the ACAA
+--     intends to confer upon all recipients unlimited rights equal to those
+--     held by the ACAA. 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.
+--
+--                                     Notice
+--
+--     The ACAA has created and maintains the Ada Conformity Assessment Test
+--     Suite for the purpose of conformity assessments conducted in accordance
+--     with the International Standard ISO/IEC 18009 - Ada: Conformity
+--     assessment of a language processor. This test suite should not be used
+--     to make claims of conformance unless used in accordance with
+--     ISO/IEC 18009 and any applicable ACAA procedures.
+--
+--*
+-- OBJECTIVE:
+--     Check that a size specification can be given by an attribute definition
+--     clause for an enumeration type:
+--        * in the visible or private part of a package for a type declared
+--          in the visible part;
+--        * for a derived enumeration type;
+--        * for a derived private type whose full declaration is an
+--          enumeration type.
+--
+-- TEST DESCRIPTION:
+--     This test was created from legacy tests CD1009B and CD2A31C. The
+--     objective of CD1009B was also an objective of CD2A31C; the tests
+--     were merged to eliminate duplication and add appropriate applicability
+--     criteria.
+--
+-- APPLICABILITY CRITERIA:
+--     All implementations must attempt to compile this test.
+--
+--     For implementations validating against Systems Programming Annex (C):
+--        this test must execute and report PASSED.
+--
+--     or implementations not validating against Annex C:
+--        this test may report compile time errors at one or more points
+--        indicated by "-- ANX-C RQMT", in which case it may be graded as
+--        inapplicable. Otherwise, the test must execute and report PASSED.
+--
+-- CHANGE HISTORY:
+--      17 Jun 87  PWB  Created original test CD2A21C.
+--      07 Oct 87  VCL  Created original test CD1009B.
+--      17 Apr 89  DHH  Changed extension from '.DEP' TO '.ADA', changed
+--                      operators on 'Size tests, and added check on
+--                      representation clause.
+--      26 Mar 92  JRL  Removed testing of nonobjective types.
+--      29 Mar 17  RLB  Created test from CD2A21C and CD1009B; reformatted
+--                      to "modern" standards, added applicability criteria.
+
+with Report; use Report;
+with Length_Check;                      -- CONTAINS A CALL TO 'Failed'.
+procedure CD30011 is
+
+   type Basic_Enum is (A, B, C, D, E);
+   Specified_Size : constant := Basic_Enum'Size;
+
+   Minimum_Size : Integer := Report.Ident_Int (Specified_Size);
+
+   type Derived_Enum is new Basic_Enum;
+   for Derived_Enum'Size use Specified_Size;                  -- ANX-C RQMT.
+
+   package P is
+      type Enum_in_P is (A1, B1, C1, D1, E1, F1, G1);
+      for Enum_in_P'Size use Specified_Size;                  -- ANX-C RQMT.
+      type private_Enum is private;
+      type Alt_Enum_in_P is (A2, B2, C2, D2, E2, F2, G2);
+   private
+      type private_Enum is (A3, B3, C3, D3, E3, F3, G3);
+      for Alt_Enum_in_P'Size use Specified_Size;              -- ANX-C RQMT.
+   end P;
+
+   type Derived_Private_Enum is new P.Private_Enum;
+   for Derived_Private_Enum'Size use Specified_Size;          -- ANX-C RQMT.
+
+   use P;
+
+   procedure Check_1 is new Length_Check (Derived_Enum);
+   procedure Check_2 is new Length_Check (Enum_in_P);
+   procedure Check_3 is new Length_Check (Alt_Enum_in_P);
+
+   X : Enum_in_P := A1;
+   Y : Alt_Enum_in_P := A2;
+
+begin
+
+   Report.Test ("CD30011", "Check that 'Size attribute definition clauses " &
+                           "can be given in the visible or private part " &
+                           "of a package for enumeration types declared " &
+                           "declared in the visible part, and for derived " &
+                           "enumeration types and derived private types " &
+                           "whose full declarations are as enumeration types");
+
+   Check_1 (C,  Specified_Size, "Derived_Enum");
+   Check_2 (C1, Specified_Size, "Enum_in_P");
+   Check_3 (C2, Specified_Size, "Alt_Enum_in_P");
+
+   if Derived_Enum'Size /= Minimum_Size then
+      Failed ("Derived_Enum'Size should not be greater than" &
+              Integer'Image (Minimum_Size) & ". Actual Size is" &
+              Integer'Image (Derived_Enum'Size));
+   end if;
+
+   if Enum_in_P'Size /= Minimum_Size then
+      Failed ("Enum_in_P'Size should not be greater than" &
+              Integer'Image (Minimum_Size) & ". Actual Size is" &
+              Integer'Image (Enum_in_P'Size));
+   end if;
+
+   if Alt_Enum_in_P'Size /= Minimum_Size then
+      Failed ("Alt_Enum_in_P'Size should not be greater than" &
+              Integer'Image (Minimum_Size) & ". Actual Size is" &
+              Integer'Image (Alt_Enum_in_P'Size));
+   end if;
+
+   if Derived_Private_Enum'Size /= Minimum_Size then
+
+      Failed ("Derived_Private_Enum'Size should not be greater " &
+              "than " & Integer'Image (Minimum_Size) & ". Actual Size is" &
+              Integer'Image (Derived_Private_Enum'Size));
+   end if;
+
+   if X'Size < Specified_Size then
+      Failed ("Object'Size is too small --" &
+              Enum_in_P'Image (X));
+   end if;
+
+   if Y'Size < Specified_Size then
+      Failed ("Object'Size is too small --" &
+              Alt_Enum_in_P'Image (Y));
+   end if;
+
+   Report.Result;
+
+end CD30011;
diff --git a/gcc/testsuite/ada/acats/tests/cd/cd30012.a b/gcc/testsuite/ada/acats/tests/cd/cd30012.a
new file mode 100644
index 00000000000..a55dfbd47a2
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/cd/cd30012.a
@@ -0,0 +1,173 @@
+-- CD30012.A
+
+--                             Grant of Unlimited Rights
+--
+--     The Ada Conformity Assessment Authority (ACAA) holds unlimited
+--     rights in the software and documentation contained herein. Unlimited
+--     rights are the same as those granted by the U.S. Government for older
+--     parts of the Ada Conformity Assessment Test Suite, and are defined
+--     in DFAR 252.227-7013(a)(19). By making this public release, the ACAA
+--     intends to confer upon all recipients unlimited rights equal to those
+--     held by the ACAA. 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.
+--
+--                                     Notice
+--
+--     The ACAA has created and maintains the Ada Conformity Assessment Test
+--     Suite for the purpose of conformity assessments conducted in accordance
+--     with the International Standard ISO/IEC 18009 - Ada: Conformity
+--     assessment of a language processor. This test suite should not be used
+--     to make claims of conformance unless used in accordance with
+--     ISO/IEC 18009 and any applicable ACAA procedures.
+--
+--*
+-- OBJECTIVE:
+--     Check that a size specification can be given by an attribute definition
+--     clause for an integer type:
+--        * in the visible or private part of a package for a type declared
+--          in the visible part;
+--        * for a derived integer type;
+--        * for a derived private type whose full declaration is an
+--          integer type.
+--
+-- TEST DESCRIPTION:
+--     This test was created from legacy tests CD1009B and CD2A31C. The
+--     objective of CD1009B was also an objective of CD30012; the tests
+--     were merged to eliminate duplication and add appropriate applicability
+--     criteria.
+--
+-- APPLICABILITY CRITERIA:
+--     All implementations must attempt to compile this test.
+--
+--     For implementations validating against Systems Programming Annex (C):
+--        this test must execute and report PASSED.
+--
+--     or implementations not validating against Annex C:
+--        this test may report compile time errors at one or more points
+--        indicated by "-- ANX-C RQMT", in which case it may be graded as
+--        inapplicable. Otherwise, the test must execute and report PASSED.
+--
+-- CHANGE HISTORY:
+--      17 Jun 87  PWB  Created original test CD2A31C.
+--      09 Sep 87  VCL  Created original test CD1009A.
+--      06 Apr 89  DHH  Changed extension from '.DEP' TO '.ADA', changed
+--                      size clause value to 9, and added representation
+--                      clause check and included test for for integer in a
+--                      generic unit.
+--      27 Mar 92  JRL  Removed testing of nonobjective types.
+--      17 Jun 92  DTN  Removed the length clause for type Private_Int.
+--      29 Mar 17  RLB  Created test from CD2A31C and CD1009A; reformatted
+--                      to "modern" standards, added applicability criteria,
+--                      removed nonobjective packed array.
+
+with Report; use Report;
+with Length_Check;                      -- Contains a call to 'Failed'.
+procedure CD30012 is
+
+   type Basic_Int is range -60 .. 80;
+   Specified_Size : constant := 9;
+
+   type Derived_Int is new Basic_Int;
+   for Derived_Int'Size use Specified_Size;                   -- ANX-C RQMT.
+
+   package P is
+      type Int_in_P is range -125 .. 125;
+      for Int_in_P'Size use Specified_Size;                   -- ANX-C RQMT.
+      type Private_Int is private;
+      type Alt_Int_in_P is range -125 .. 125;
+   private
+      type Private_Int is range -125 .. 125;
+      for Alt_Int_in_P'Size use Specified_Size;               -- ANX-C RQMT.
+   end P;
+
+   use P;
+   type Derived_Private_Int is new Private_Int;
+   for Derived_Private_Int'Size use Specified_Size;           -- ANX-C RQMT.
+   Minimum_Size : Integer := Report.Ident_Int (Specified_Size);
+
+   -- Size specification given in a generic procedure:
+
+   generic
+   procedure Genproc;
+
+   procedure Genproc is
+      type Check_Int is range -125 .. 125;
+      for Check_Int'Size use Specified_Size;                  -- ANX-C RQMT.
+
+      procedure Check_4 is new Length_Check (Check_Int);
+
+   begin
+
+      if Check_Int'Size /= Minimum_Size then
+         Failed ("Generic Check_Int'Size is incorrect");
+      end if;
+      Check_4 (-60, 9, "generic Check_Int");
+
+   end Genproc;
+
+   procedure Newproc is new Genproc;
+
+   procedure Check_1 is new Length_Check (Derived_Int);
+   procedure Check_2 is new Length_Check (Int_in_P);
+   procedure Check_3 is new Length_Check (Alt_Int_in_P);
+
+   Obj1 : Int_in_P := 92;
+   Obj2 : Alt_Int_in_P := 52;
+
+begin
+
+   Report.Test ("CD30012", "Check that 'Size attribute definition clauses " &
+                           "can be given in the visible or private part " &
+                           "of a package for integer types declared " &
+                           "declared in the visible part, and for derived " &
+                           "integer types and derived private types " &
+                           "whose full declarations are as integer types");
+
+   Check_1 (-60, 9, "Derived_Int");
+   Check_2 (-60, 9, "Int_in_P");
+   Check_3 (-60, 9, "Alt_Int_in_P");
+   Check_2 (Obj1, 9, "Int_in_P");
+   Check_3 (Obj2, 9, "Alt_Int_in_P");
+
+   Newproc;
+
+   if Derived_Int'Size /= Minimum_Size then
+        Failed ("Derived_Int'Size incorrect");
+   end if;
+
+   if Int_in_P'Size /= Minimum_Size then
+        Failed ("Int_in_P'Size incorrect");
+   end if;
+
+   if Alt_Int_in_P'Size /= Minimum_Size then
+        Failed ("Alt_Int_in_P'Size incorrect");
+   end if;
+
+   if Derived_Private_Int'Size /= Minimum_Size then
+        Failed ("Derived_Private_Int'Size incorrect");
+   end if;
+
+   if Obj1'Size < Specified_Size then
+      Failed ("Object'Size is too small --" &
+              Int_in_P'Image (Obj1));
+   end if;
+
+   if Obj2'Size < Specified_Size then
+      Failed ("Object'Size is too small --" &
+              Alt_Int_in_P'Image (Obj2));
+   end if;
+
+   Report.Result;
+
+end CD30012;
diff --git a/gcc/testsuite/ada/acats/tests/cd/cd90001.a b/gcc/testsuite/ada/acats/tests/cd/cd90001.a
index bd5c070a622..3f3bd890152 100644
--- a/gcc/testsuite/ada/acats/tests/cd/cd90001.a
+++ b/gcc/testsuite/ada/acats/tests/cd/cd90001.a
@@ -3,22 +3,22 @@
 --                             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 
+--     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 
+--     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 
+--     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 
+--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
 --     PARTICULAR PURPOSE OF SAID MATERIAL.
 --*
@@ -26,11 +26,11 @@
 -- OBJECTIVE:
 --      Check that Unchecked_Conversion is supported and is reversible in
 --      the cases where:
---        Source'Size = Target'Size                            
---        Source'Alignment = Target'Alignment                  
---        Source and Target are both represented contiguously  
+--        Source'Size = Target'Size
+--        Source'Alignment = Target'Alignment
+--        Source and Target are both represented contiguously
 --        Bit pattern in Source is a meaningful value of Target type
---                                                             
+--
 -- TEST DESCRIPTION:
 --      This test declares an enumeration type with a representation
 --      specification that should fit neatly into an 8 bit object; and a
@@ -61,6 +61,7 @@
 --      27 JUL 96   SAIC   Allowed for partial N/A to be PASS
 --      14 FEB 97   PWB.CTA  Corrected "=" to "/=" in alignment check.
 --      16 FEB 98   EDS    Modified documentation.
+--      21 DEC 05   RLB    Corrected "=" to "/=" in other alignment check.
 --!
 
 ----------------------------------------------------------------- CD90001_0
@@ -136,7 +137,7 @@ package body CD90001_0 is
         Report.Failed ("EU => EB conversion failed");
       end if;
 
-    end loop; 
+    end loop;
   end TC_Check_Case_1;
 
   procedure TC_Check_Case_2 is
@@ -209,7 +210,7 @@ begin  -- Main test procedure.
       Report.Comment("The sizes of the 16 bit types used in this test "
                             & "do not match" );
       Sixteen_NA := True;
-    elsif CD90001_0.Signed_16'Alignment = CD90001_0.Bits_16'Alignment then
+    elsif CD90001_0.Signed_16'Alignment /= CD90001_0.Bits_16'Alignment then
       Report.Comment("The alignments of the 16 bit types used in this "
                             & "test do not match" );
       Sixteen_NA := True;
diff --git a/gcc/testsuite/ada/acats/tests/cxa/cxa3004.a b/gcc/testsuite/ada/acats/tests/cxa/cxa3004.a
new file mode 100644
index 00000000000..ed2023e37e5
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/cxa/cxa3004.a
@@ -0,0 +1,235 @@
+-- CXA3004.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:
+--      Check that the functions defined in package Ada.Characters.Handling
+--      for classification of and conversion between Wide_Character and
+--      Character values produce correct results when given the appropriate
+--      Character and String inputs.
+--
+-- TEST DESCRIPTION:
+--      This test demonstrates the functions defined in package 
+--      Ada.Characters.Handling which provide for the classification of and 
+--      conversion between Wide_Characters and Characters, in character 
+--      variables and strings.
+--      Each of the functions is provided with input values that are of the 
+--      appropriate range. The results of the function processing are 
+--      subsequently evaluated.
+--      
+-- APPLICABILITY CRITERIA: 
+--      Applicable to all implementations using the Latin_1 set as the
+--      definition of Character.
+--
+--       
+-- CHANGE HISTORY:
+--      06 Dec 94   SAIC    ACVC 2.0
+--      27 Dec 94   SAIC    Corrected variable names.
+--
+--!
+
+with Report;
+with Ada.Characters.Handling;
+
+procedure CXA3004 is
+begin
+
+   Report.Test ("CXA3004", "Check that the functions defined in package "  &
+                           "Ada.Characters.Handling for classification "   &
+                           "of and conversion between Wide_Character and " &
+                           "Character values produce correct results "     &
+                           "when given the appropriate Character "         &
+                           "and String inputs");
+
+   Test_Block:
+   declare
+
+      package ACH renames Ada.Characters.Handling;
+
+      Char_End      : Integer        := 255;
+      WC_Start      : Integer        := 256;
+      Sub_Char      : Character      := '*';
+
+      Blank         : Character      := ' ';
+      First_Char    : Character      := Character'First;
+      Last_Char     : Character      := Character'Last;
+      F_Char        : Character      := 'F';
+
+
+      First_Wide_Char        : Wide_Character := Wide_Character'First;
+      Last_Non_Wide_Char     : Wide_Character := Wide_Character'Val(Char_End);
+      First_Unique_Wide_Char : Wide_Character := Wide_Character'Val(WC_Start);
+      Last_Wide_Char         : Wide_Character := Wide_Character'Last;
+
+      A_String      : String (1..3)      := First_Char & 'X' & Last_Char;
+      A_Wide_String : Wide_String (1..3) := First_Wide_Char            & 
+                                            ACH.To_Wide_Character('X') & 
+                                            ACH.To_Wide_Character(Last_Char);
+
+      Unique_Wide_String : Wide_String (1..2) := First_Unique_Wide_Char &
+                                                 Last_Wide_Char;
+
+      Mixed_Wide_String  : Wide_String (1..6) := ACH.To_Wide_Character('A') & 
+                                                 First_Wide_Char            &
+                                                 Last_Non_Wide_Char         & 
+                                                 First_Unique_Wide_Char     & 
+                                                 Last_Wide_Char             &
+                                                 ACH.To_Wide_Character('Z');
+
+
+      Basic_Char         : Character          := 'A';
+      Basic_Wide_Char    : Wide_Character     := 'A';
+      Basic_String       : String (1..6)      := "ABCXYZ";
+      Basic_Wide_String  : Wide_String (1..6) := "ABCXYZ";
+
+   begin
+
+
+      -- Function Is_Character
+
+
+      if not ACH.Is_Character(First_Wide_Char) then
+         Report.Failed ("Incorrect result from Is_Character - 1");
+      end if;
+
+
+      if ACH.Is_Character(First_Unique_Wide_Char) or        
+         ACH.Is_Character(Last_Wide_Char)
+      then
+         Report.Failed ("Incorrect result from Is_Character - 2");
+      end if;
+       
+
+      -- Function Is_String
+
+
+      if not ACH.Is_String(A_Wide_String) then
+         Report.Failed ("Incorrect result from Is_String - 1");
+      end if;
+
+
+      if ACH.Is_String(Unique_Wide_String) or
+         ACH.Is_String(Mixed_Wide_String)
+      then
+         Report.Failed ("Incorrect result from Is_String - 2");
+      end if;
+      
+
+      -- Function To_Character
+
+
+      -- Use default substitution character in call of To_Character.
+
+      if ACH.To_Character(First_Wide_Char)    /= First_Char or 
+         ACH.To_Character(Last_Non_Wide_Char) /= Last_Char
+      then
+         Report.Failed ("Incorrect result from To_Character - 1");
+      end if;
+
+
+      -- Provide a substitution character for use with To_Character.
+
+      if ACH.To_Character(First_Unique_Wide_Char, Blank)    /= Blank    or
+         ACH.To_Character(First_Unique_Wide_Char, Sub_Char) /= Sub_Char or
+         ACH.To_Character(Last_Wide_Char)                   /= ' '  -- default
+      then
+         Report.Failed ("Incorrect result from To_Character - 2");
+      end if;
+
+
+      -- Function To_String
+
+
+      if ACH.To_String(A_Wide_String) /=  A_String then
+         Report.Failed ("Incorrect result from To_String - 1");
+      end if;
+
+     
+      if ACH.To_String(Unique_Wide_String, Sub_Char) /= "**" then
+         Report.Failed ("Incorrect result from To_String - 2");
+      end if;
+
+
+
+      if ACH.To_String(Mixed_Wide_String,  Sub_Char) /= 
+         ('A' & First_Char & Last_Char & "**" & 'Z')   or
+         ACH.To_String(Mixed_Wide_String,  Sub_Char) /= 
+         (ACH.To_Character(Mixed_Wide_String(1), Sub_Char) &
+          ACH.To_Character(Mixed_Wide_String(2), Sub_Char) &
+          ACH.To_Character(Mixed_Wide_String(3), Sub_Char) &
+          ACH.To_Character(Mixed_Wide_String(4), Sub_Char) &
+          ACH.To_Character(Mixed_Wide_String(5), Sub_Char) &
+          ACH.To_Character(Mixed_Wide_String(6), Sub_Char)) 
+      then
+         Report.Failed ("Incorrect result from To_String - 3");
+      end if;
+
+
+      -- Function To_Wide_Character
+
+
+      if ACH.To_Wide_Character(Basic_Char) /= Basic_Wide_Char then
+         Report.Failed ("Incorrect result from To_Wide_Character");
+      end if;
+
+    
+      -- Function To_Wide_String
+
+
+      if not (ACH.To_Wide_String(Basic_String) = Basic_Wide_String) then
+         Report.Failed ("Incorrect result from To_Wide_String");
+      end if;
+
+
+      -- Functions Used In Combination
+
+      if not ACH.Is_Character (ACH.To_Wide_Character (
+        ACH.To_Character(First_Wide_Char))) 
+      then
+         Report.Failed ("Incorrect result from functions in combination - 1");
+      end if;
+
+
+      if not ACH.Is_String(ACH.To_Wide_String(ACH.To_String(A_Wide_String)))
+      then
+         Report.Failed ("Incorrect result from functions in combination - 2");
+      end if;
+
+
+      if ACH.To_String(ACH.To_Wide_Character('A')    &
+                       ACH.To_Wide_Character(F_Char) &
+                       ACH.To_Wide_Character('Z'))     /=  "AFZ"
+      then
+         Report.Failed ("Incorrect result from functions in combination - 3");
+      end if;
+         
+
+   exception
+      when others => Report.Failed ("Exception raised in Test_Block");
+   end Test_Block;
+
+
+   Report.Result;
+
+end CXA3004;
diff --git a/gcc/testsuite/ada/acats/tests/cxa/cxa5013.a b/gcc/testsuite/ada/acats/tests/cxa/cxa5013.a
new file mode 100644
index 00000000000..fe5b6e2ab93
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/cxa/cxa5013.a
@@ -0,0 +1,326 @@
+-- CXA5013.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:
+--      Check that a discrete random number generator will yield each value
+--      in its result subtype in a finite number of calls, provided that
+--      the number of such values does not exceed 2**15.
+--      
+-- TEST DESCRIPTION:
+--      This test demonstrates certain capabilities of the random number 
+--      generator packages in Ada.Numerics.  A generic subprogram is
+--      defined that will be instantiated to produce a total of two test
+--      subprograms.
+--      The area examined by this test is the production of random values 
+--      over a discrete range.  A generic procedure is instantiated with
+--      an instance of the Discrete_Random package, once for an integer type,
+--      and once for an enumeration type.  The test procedure performs a 
+--      test run, generating a specific number of random numbers over the 
+--      range of the type.  If this run did not generate each of the values
+--      in the type range, an asynchronous select statement is invoked.  This
+--      select statement has a trigger statement delay for a specific 
+--      (implementation defined) amount of time during which additional test
+--      runs will be performed.  
+--      At the end of each run in this test, an evaluation is made to 
+--      determine if each value in the range of possible values have been 
+--      generated.  At the conclusion of the runs, or if the specified test
+--      delay time expires, the test is concluded with  a status value
+--      returned from the test procedure.  An implementation is given three
+--      completely separate opportunities to run the test successfully, and 
+--      if at the conclusion of all of these tests no successful result has 
+--      been returned, the test is considered failed.
+--      
+--       
+-- CHANGE HISTORY:
+--      27 Apr 95   SAIC    Initial prerelease version.
+--
+--!
+
+with Ada.Numerics.Discrete_Random;
+with ImpDef;
+with Report;
+
+procedure CXA5013 is
+
+begin
+
+   Report.Test ("CXA5013", "Check that a discrete random number generator " &
+                           "will yield each value in its result subtype "   &
+                           "in a finite number of calls");
+
+   Test_Block:
+   declare
+
+      use Ada.Numerics;
+
+      -- The following constant designed into the test creates a high 
+      -- probability that a random series of numbers will satisfy the 
+      -- requirements. Occasionally, even a random series of numbers 
+      -- will fail.  In such a case, the test will reset the random 
+      -- number generator and rerun the test conditions.  This constant
+      -- determines how many times the random number generator will be
+      -- reset before any individual test run is failed.
+
+      TC_Max_Random_Test_Runs       : constant :=    3;
+
+      -- The following constant will ensure that multiple attempts of the
+      -- complete set of tests are performed in the event of a failure of 
+      -- a set of test runs.
+
+      TC_Finite_Number_Of_Tests : constant :=    3;
+
+
+      TC_Test_Run               : Integer  :=    0;
+      TC_Success                : Boolean  := False;
+      TC_Trials_Per_Test        : Integer  := 1500;
+
+      type Enum_Type         is (One, Two, Three, Four, Five, Six, Seven);
+      type Discrete_Type     is range 1..100;
+
+
+      package Enum_Pack      is new Discrete_Random(Enum_Type);
+      package Discrete_Pack  is 
+        new Discrete_Random(Result_Subtype => Discrete_Type);
+
+
+
+      --
+      -- Definition of generic Random_Test procedure, which will be 
+      -- instantiated for both an integer type and an enumeration type.
+      --
+
+      generic
+         with package Gen_Pack is new Ada.Numerics.Discrete_Random (<>);
+      procedure Random_Test (Trials_Per_Test : in     Integer;
+                             Success         :    out Boolean); 
+
+
+      procedure Random_Test (Trials_Per_Test : in     Integer;
+                             Success         :    out Boolean) is
+         Total_Runs               : Integer  := 0;
+         Total_Trials             : Integer  := 0;
+         Total_Attempts_This_Test : Integer  := 0;
+         Random_Array             : array (Gen_Pack.Result_Subtype) 
+                                      of Boolean := (others => False);
+         Gen                      : Gen_Pack.Generator;
+
+         function All_Values_Present return Boolean is
+            Result : Boolean := True;
+         begin
+            for i in Gen_Pack.Result_Subtype'Range loop
+               if not Random_Array(i) then 
+                  Result := False; 
+                  exit;
+               end if;
+            end loop;
+            return Result;
+         end All_Values_Present;
+
+      begin
+
+         Success := False;     -- Initialized to failure prior to test.
+         Gen_Pack.Reset(Gen);  -- Perform a time-dependent reset.
+
+         -- Guarantee that a specific minimum number of trials are performed
+         -- prior to the timer being set.
+
+         for i in 1..Trials_Per_Test loop
+            -- Set array element to True when a particular array
+            -- index is generated by the random number generator.
+            Random_Array(Gen_Pack.Random(Gen)) := True;
+         end loop;
+
+         if All_Values_Present then
+
+            Success := True;  -- Test was successful, exit procedure with no
+                              -- further testing performed.
+         else
+
+            -- Initial test above was unsuccessful, so set a timer and perform
+            -- additional trials to determine if all values in the discrete
+            -- range will be produced.
+
+            select
+
+               -- This asynchronous select has a triggering statement which
+               -- is a delay statement, set to an implementation defined 
+               -- number of seconds for any particular test to execute.  
+               -- The point here is to allow the implementation to decide 
+               -- how long to run this test in order to generate an 
+               -- appropriate (i.e., correct) sample from the Random Number
+               -- Generator.
+
+               delay ImpDef.Delay_Per_Random_Test;  -- Delay per test.
+
+               -- If, after expiration of delay, the random number generator
+               -- has generated all values within the range at least once,
+               -- then the result is success; otherwise, a comment is output
+               -- to indicate that the random number generator was 
+               -- unsuccessful in this series of test runs.
+
+               if All_Values_Present then
+                  Success := True;
+               else
+                  Total_Attempts_This_Test := 
+                    Total_Runs * Trials_Per_Test + Total_Trials;
+                  Report.Comment
+                    ("Not all numbers within the Range were produced in " &
+                     Integer'Image(
+                       Integer(ImpDef.Delay_Per_Random_Test*1000.0))      &
+                     " milliseconds or in "                               &
+                     Integer'Image(Total_Attempts_This_Test)              &
+                     " trials during this test");
+               end if;
+
+            then abort
+
+               -- After setting the triggering statement above, the execution
+               -- of this abortable part is begun.
+               -- This loop continues until either a) every value has been
+               -- produced or b) the triggering statement times out.
+
+               Total_Runs := 1;
+
+               Test_Loop:  -- This loop continues until a test run is
+               loop        -- successful, the test run limit has been reached, 
+                           -- or the triggering statement times-out above.
+
+                  Total_Trials := 0;
+
+                  for i in 1..Trials_Per_Test loop
+                     Total_Trials := i; -- Used above if triggering statement
+                                        -- completes prior to test completion.
+
+                     -- Set array element to True when a particular array
+                     -- index is generated by the random number generator.
+
+                     Random_Array(Gen_Pack.Random(Gen)) := True;
+
+                  end loop;
+
+                  -- At the conclusion of a complete series of trials, the
+                  -- following evaluation is performed to determine whether
+                  -- the test run was successful, or whether an additional
+                  -- test run should be re-attempted.
+
+                  if All_Values_Present then
+                     Success := True;
+                     exit Test_Loop;
+                  elsif Total_Runs = TC_Max_Random_Test_Runs then
+                     Report.Comment
+                       ("Not all numbers in the Range were produced in " &
+                        Integer'Image(Total_Runs*Trials_Per_Test) &
+                        " individual trials during this test");
+                     exit Test_Loop;
+                  else
+                     Total_Runs := Total_Runs + 1;
+                  end if;
+
+               end loop Test_Loop;
+            end select;
+         end if;
+      end Random_Test;
+
+
+
+      -- Instantiation of test procedures.
+
+      procedure Discrete_Random_Test    is new Random_Test(Discrete_Pack);
+      procedure Enumeration_Random_Test is new Random_Test(Enum_Pack);
+
+
+   begin
+
+      -- Make a series of test runs, checking to ensure that discrete 
+      -- random number generators produce each value in their result subtype
+      -- within a finite number of calls.  In each case, if the first test
+      -- is not successful, another attempt is made, after a time-dependent
+      -- reset, up to a total of 3 runs.  This allows an implementation 
+      -- multiple opportunities to pass the test successfully.
+      -- Note: The odds of getting all 100 integer values in 1500 trials are
+      --       greater than 99.997 percent, confirmed by Monte Carlo 
+      --       simulation.
+
+
+
+      -- Run the Random_Test for an integer discrete random number generator.
+
+      TC_Test_Run := 0;
+      TC_Success  := False;
+      while TC_Test_Run < TC_Finite_Number_Of_Tests and 
+            not TC_Success 
+      loop
+         TC_Test_Run := TC_Test_Run + 1;            -- Increment test counter.
+         Discrete_Random_Test (TC_Trials_Per_Test,  -- Perform test.
+                               TC_Success); 
+         -- Increment the number of trials that will be performed
+         -- in the next test by 50%.
+         TC_Trials_Per_Test := TC_Trials_Per_Test + TC_Trials_Per_Test/2 ;
+      end loop;
+
+      if not TC_Success then
+         Report.Failed("Random_Test was run " & Integer'Image(TC_Test_Run) &
+                       " times, but a successful result was not recorded " &
+                       "from any run using the integer discrete random "   &
+                       "number generator");
+      end if;
+
+
+
+      -- Run the Random_Test for an enumeration type random number generator.
+
+      -- Note: The odds of getting all seven enumeration values in 100 
+      --       trials are greater than 99.997 percent, confirmed by Monte
+      --       Carlo simulation.
+
+      TC_Test_Run        := 0;
+      TC_Trials_Per_Test := 100;
+      TC_Success         := False;
+      while TC_Test_Run < TC_Finite_Number_Of_Tests and 
+            not TC_Success 
+      loop
+         TC_Test_Run := TC_Test_Run + 1;
+         Enumeration_Random_Test (TC_Trials_Per_Test,
+                                  TC_Success); 
+         -- Increment the number of trials that will be performed
+         -- in the next test by 50%.
+         TC_Trials_Per_Test := TC_Trials_Per_Test + TC_Trials_Per_Test/2 ;
+      end loop;
+
+      if not TC_Success then
+         Report.Failed("Random_Test was run " & Integer'Image(TC_Test_Run) &
+                       " times, but a successful result was not recorded " &
+                       "from any run using the enumeration random number " &
+                       "generator");
+      end if;
+
+
+   exception
+      when others => Report.Failed ("Exception raised in Test_Block");
+   end Test_Block;
+
+   Report.Result;
+
+end CXA5013;
diff --git a/gcc/testsuite/ada/acats/tests/cxa/cxac005.a b/gcc/testsuite/ada/acats/tests/cxa/cxac005.a
index 34a971f7a51..50323576ac6 100644
--- a/gcc/testsuite/ada/acats/tests/cxa/cxac005.a
+++ b/gcc/testsuite/ada/acats/tests/cxa/cxac005.a
@@ -31,6 +31,7 @@
 --    12 FEB 2001   PHL   Initial version.
 --    14 MAR 2001   RLB   Readied for release; fixed Not_Applicable check
 --                        to terminate test gracefully.
+--    05 MAR 2007   RLB   Updated to avoid problems with return-by-reference.
 --
 --!
 with Ada.Streams.Stream_Io;
@@ -53,7 +54,6 @@ procedure CXAC005 is
     package Checked_Stream_Io is
 
         type File_Type (Max_Size : Stream_Element_Count) is limited private;
-        function Stream_Io_File (File : File_Type) return Stream_Io.File_Type;
 
         procedure Create (File : in out File_Type;
                           Mode : in Stream_Io.File_Mode := Stream_Io.Out_File;
@@ -93,6 +93,8 @@ procedure CXAC005 is
 
         function Index (File : in File_Type) return Stream_Io.Positive_Count;
 
+        function Size (File : in File_Type) return Stream_Io.Count;
+
         procedure Set_Mode (File : in out File_Type;
                             Mode : in Stream_Io.File_Mode);
 
@@ -111,11 +113,6 @@ procedure CXAC005 is
 
         use Stream_Io;
 
-        function Stream_Io_File (File : File_Type) return Stream_Io.File_Type is
-        begin
-            return File.File;
-        end Stream_Io_File;
-
         procedure Create (File : in out File_Type;
                           Mode : in Stream_Io.File_Mode := Stream_Io.Out_File;
                           Name : in String := "";
@@ -244,6 +241,13 @@ procedure CXAC005 is
             return New_Index;
         end Index;
 
+        function Size (File : in File_Type) return Stream_Io.Count is
+            New_Size : constant Count := Stream_Io.Size (File.File);
+        begin
+            TC_Assert (New_Size <= Count(File.Max_Size), "File too large");
+            return New_Size;
+        end Size;
+
         procedure Set_Mode (File : in out File_Type;
                             Mode : in Stream_Io.File_Mode) is
             Old_Index : constant Count := File.Index;
@@ -268,7 +272,8 @@ procedure CXAC005 is
 
 begin
 
-    Test ("CXAC005", "Check that stream file positioning work as specified");
+    Report.Test ("CXAC005",
+                 "Check that stream file positioning work as specified");
 
     declare
         Name : constant String := Legal_File_Name;
@@ -320,8 +325,7 @@ begin
         -- Check the contents of the entire file.
         declare
             S : Stream_Element_Array
-                   (1 .. Stream_Element_Offset
-                            (Stream_Io.Size (Csio.Stream_Io_File (F))));
+                   (1 .. Stream_Element_Offset (Csio.Size (F)));
         begin
             Csio.Reset (F, Stream_Io.In_File);
             Csio.Read (F, S, Last);
@@ -330,7 +334,7 @@ begin
         Csio.Delete (F);
     end;
 
-    Result;
+    Report.Result;
 exception
    when Incomplete =>
       Report.Result;
diff --git a/gcc/testsuite/ada/acats/tests/cxb/cxb30061.am b/gcc/testsuite/ada/acats/tests/cxb/cxb30061.am
new file mode 100644
index 00000000000..d31345a8eb1
--- /dev/null
+++ b/gcc/testsuite/ada/acats/tests/cxb/cxb30061.am
@@ -0,0 +1,404 @@
+-- CXB30061.AM
+--
+--                             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:
+--      Check that the function To_C maps between the Ada type Wide_Character
+--      and the C type wchar_t.
+--
+--      Check that the function To_Ada maps between the C type wchar_t and
+--      the Ada type Wide_Character.
+--
+--      Check that the function Is_Nul_Terminated returns True if the
+--      wchar_array parameter contains wide_nul, and otherwise False.
+--
+--      Check that the function To_C produces a correct wchar_array result,
+--      with lower bound of 0, and length dependent upon the Item and
+--      Append_Nul parameters.
+--
+--      Check that the function To_Ada produces a correct wide_string result,
+--      with lower bound of 1, and length dependent upon the Item and
+--      Trim_Nul parameters.
+--
+--      Check that the function To_Ada raises Terminator_Error if the
+--      parameter Trim_Nul is set to True, but the actual Item parameter
+--      does not contain the wide_nul wchar_t.
+--
+-- TEST DESCRIPTION:
+--      This test uses a variety of Wide_Character, wchar_t, Wide_String, and
+--      wchar_array objects to test versions of the To_C, To_Ada, and
+--      Is_Nul_Terminated functions.
+--
+--      This test assumes that the following characters are all included
+--      in the implementation defined type Interfaces.C.wchar_t:
+--      ' ', ',', '.', '0'..'9', 'a'..'z' and 'A'..'Z'.
+--
+-- APPLICABILITY CRITERIA:
+--      This test is applicable to all implementations that provide
+--      package Interfaces.C.  If an implementation provides
+--      package Interfaces.C, this test must compile, execute, and
+--      report "PASSED".
+--
+-- SPECIAL REQUIREMENTS:
+--      The file CXB30060.C must be compiled with a C compiler.
+--      Implementation dialects of C may require alteration of
+--      the C program syntax (see individual C files).
+--
+--      Note that the compiled C code must be bound with the compiled Ada
+--      code to create an executable image.  An implementation must provide
+--      the necessary commands to accomplish this.
+--
+--      Note that the C code included in CXB30060.C conforms
+--      to ANSI-C.  Modifications to these files may be required for other
+--      C compilers.  An implementation must provide the necessary
+--      modifications to satisfy the function requirements.
+--
+-- TEST FILES:
+--      The following files comprise this test:
+--
+--         CXB30060.C
+--         CXB30061.AM
+--
+-- CHANGE HISTORY:
+--      07 Sep 95   SAIC    Initial prerelease version.
+--      09 May 96   SAIC    Incorporated reviewer comments for ACVC 2.1.
+--      13 Sep 99   RLB     Replaced (bogus) Unchecked_Conversions with a
+--                          C function character generator.
+--
+--!
+
+with Report;
+with Interfaces.C;                                            -- N/A => ERROR
+with Ada.Characters.Latin_1;
+with Ada.Characters.Handling;
+with Ada.Exceptions;
+with Ada.Strings.Wide_Fixed;
+with Impdef;
+
+procedure CXB30061 is
+begin
+
+   Report.Test ("CXB3006", "Check that the functions To_C and To_Ada " &
+                           "produce correct results");
+
+   Test_Block:
+   declare
+
+      use Interfaces, Interfaces.C;
+      use Ada.Characters, Ada.Characters.Latin_1, Ada.Characters.Handling;
+      use Ada.Strings.Wide_Fixed;
+
+      First_Character,
+      Last_Character  : Character;
+      TC_wchar_t,
+      TC_Low_wchar_t,
+      TC_High_wchar_t : wchar_t           := wchar_t'First;
+      TC_Wide_String  : Wide_String(1..8) := (others => Wide_Character'First);
+      TC_wchar_array  : wchar_array(0..7) := (others => C.wide_nul);
+
+      -- The function Char_Gen returns a character corresponding to its
+      -- argument.
+      --     Value   0 ..  9 ==> '0' .. '9'
+      --     Value  10 .. 19 ==> 'A' .. 'J'
+      --     Value  20 .. 29 ==> 'k' .. 't'
+      --     Value  30       ==> ' '
+      --     Value  31       ==> '.'
+      --     Value  32       ==> ','
+
+      function Char_Gen (Value   : in int) return wchar_t;
+
+      -- Use the user-defined C function char_gen as a completion to the
+      -- function specification above.
+
+      pragma Import (Convention    => C,
+                     Entity        => Char_Gen,
+                     External_Name => Impdef.CXB30060_External_Name);
+
+   begin
+
+      -- Check that the functions To_C and To_Ada map between the Ada type
+      -- Wide_Character and the C type wchar_t.
+
+      if To_C(To_Wide_Character(Ada.Characters.Latin_1.NUL)) /=
+         Interfaces.C.wide_nul
+      then
+         Report.Failed("Incorrect result from To_C with NUL character input");
+      end if;
+
+      First_Character := Report.Ident_Char('k');
+      Last_Character  := Report.Ident_Char('t');
+      for i in First_Character..Last_Character loop
+         if To_C(Item => To_Wide_Character(i)) /=
+	    Char_Gen(Character'Pos(i) - Character'Pos('k') + 20)
+         then
+            Report.Failed("Incorrect result from To_C with lower case " &
+                          "alphabetic wide character input");
+         end if;
+      end loop;
+
+      First_Character := Report.Ident_Char('A');
+      Last_Character  := Report.Ident_Char('J');
+      for i in First_Character..Last_Character loop
+         if To_C(Item => To_Wide_Character(i)) /=
+	    Char_Gen(Character'Pos(i) - Character'Pos('A') + 10)
+         then
+            Report.Failed("Incorrect result from To_C with upper case " &
+                          "alphabetic wide character input");
+         end if;
+      end loop;
+
+      First_Character := Report.Ident_Char('0');
+      Last_Character  := Report.Ident_Char('9');
+      for i in First_Character..Last_Character loop
+         if To_C(Item => To_Wide_Character(i)) /=
+	    Char_Gen(Character'Pos(i) - Character'Pos('0'))
+         then
+            Report.Failed("Incorrect result from To_C with digit " &
+                          "wide character input");
+         end if;
+      end loop;
+
+      if To_C(Item => To_Wide_Character(' ')) /= Char_Gen(30)
+      then
+            Report.Failed("Incorrect result from To_C with space " &
+                          "wide character input");
+      end if;
+
+      if To_C(Item => To_Wide_Character('.')) /= Char_Gen(31)
+      then
+            Report.Failed("Incorrect result from To_C with dot " &
+                          "wide character input");
+      end if;
+
+      if To_C(Item => To_Wide_Character(',')) /= Char_Gen(32)
+      then
+            Report.Failed("Incorrect result from To_C with comma " &
+                          "wide character input");
+      end if;
+
+      if To_Ada(Interfaces.C.wide_nul) /=
+         To_Wide_Character(Ada.Characters.Latin_1.NUL)
+      then
+         Report.Failed("Incorrect result from To_Ada with wide_nul " &
+                       "wchar_t input");
+      end if;
+
+      for Code in int range
+         int(Report.Ident_Int(20)) .. int(Report.Ident_Int(29)) loop
+            -- 'k' .. 't'
+         if To_Ada(Item => Char_Gen(Code)) /=
+	    To_Wide_Character(Character'Val (Character'Pos('k') + (Code - 20)))
+         then
+            Report.Failed("Incorrect result from To_Ada with lower case " &
+                          "alphabetic wchar_t input");
+         end if;
+      end loop;
+
+      for Code in int range
+         int(Report.Ident_Int(10)) .. int(Report.Ident_Int(19)) loop
+            -- 'A' .. 'J'
+         if To_Ada(Item => Char_Gen(Code)) /=
+	    To_Wide_Character(Character'Val (Character'Pos('A') + (Code - 10)))
+         then
+            Report.Failed("Incorrect result from To_Ada with upper case " &
+                          "alphabetic wchar_t input");
+         end if;
+      end loop;
+
+      for Code in int range
+         int(Report.Ident_Int(0)) .. int(Report.Ident_Int(9)) loop
+            -- '0' .. '9'
+         if To_Ada(Item => Char_Gen(Code)) /=
+	    To_Wide_Character(Character'Val (Character'Pos('0') + (Code)))
+         then
+            Report.Failed("Incorrect result from To_Ada with digit " &
+                          "wchar_t input");
+         end if;
+      end loop;
+
+      if To_Ada(Item => Char_Gen(30)) /= ' ' then
+         Report.Failed("Incorrect result from To_Ada with space " &
+                       "char input");
+      end if;
+      if To_Ada(Item => Char_Gen(31)) /= '.' then
+         Report.Failed("Incorrect result from To_Ada with dot " &
+                       "char input");
+      end if;
+      if To_Ada(Item => Char_Gen(32)) /= ',' then
+         Report.Failed("Incorrect result from To_Ada with comma " &
+                       "char input");
+      end if;
+
+      -- Check that the function Is_Nul_Terminated produces correct results
+      -- whether or not the wchar_array argument contains the
+      -- Ada.Interfaces.C.wide_nul character.
+
+      TC_Wide_String := "abcdefgh";
+      if Is_Nul_Terminated(Item => To_C(TC_Wide_String, Append_Nul => False))
+      then
+         Report.Failed("Incorrect result from Is_Nul_Terminated when no " &
+                       "wide_nul wchar_t is present");
+      end if;
+
+      if not Is_Nul_Terminated(To_C(TC_Wide_String, Append_Nul => True)) then
+         Report.Failed("Incorrect result from Is_Nul_Terminated when the " &
+                       "wide_nul wchar_t is present");
+      end if;
+
+
+
+      -- Now that we've tested the character/char versions of To_Ada and To_C,
+      -- use them to test the string versions.
+
+      declare
+         i                    : size_t  := 0;
+         j                    : integer := 1;
+         Incorrect_Conversion : Boolean := False;
+
+         TC_No_wide_nul       : constant wchar_array := To_C(TC_Wide_String,
+                                                             False);
+         TC_wide_nul_Appended : constant wchar_array := To_C(TC_Wide_String,
+                                                             True);
+      begin
+
+         -- Check that the function To_C produces a wchar_array result with
+         -- lower bound of 0, and length dependent upon the Item and
+         -- Append_Nul parameters (if Append_Nul is True, length is
+         -- Item'Length + 1; if False, length is Item'Length).
+
+         if TC_No_wide_nul'First /= 0 or TC_wide_nul_Appended'First /= 0 then
+            Report.Failed("Incorrect lower bound from Function To_C");
+         end if;
+
+         if TC_No_wide_nul'Length /= TC_Wide_String'Length then
+            Report.Failed("Incorrect length returned from Function To_C " &
+                          "when Append_Nul => False");
+         end if;
+
+         if TC_wide_nul_Appended'Length /= TC_Wide_String'Length + 1 then
+            Report.Failed("Incorrect length returned from Function To_C " &
+                          "when Append_Nul => True");
+         end if;
+
+         if not Is_Nul_Terminated(TC_wide_nul_Appended) then
+            Report.Failed("No wide_nul appended to the wide_string "    &
+                          "parameter during conversion to wchar_array " &
+                          "by function To_C");
+         end if;
+
+         for TC_char in Report.Ident_Char('a')..Report.Ident_Char('h') loop
+            if TC_No_wide_nul(i)       /= To_C(To_Wide_Character(TC_char)) or
+               TC_wide_nul_Appended(i) /= To_C(To_Wide_Character(TC_char)) then
+               -- Use single character To_C.
+               Incorrect_Conversion := True;
+            end if;
+            i := i + 1;
+         end loop;
+
+         if Incorrect_Conversion then
+            Report.Failed("Incorrect result from To_C with wide_string input " &
+                          "and wchar_array result");
+         end if;
+
+
+         -- Check that the function To_Ada produces a wide_string result with
+         -- lower bound of 1, and length dependent upon the Item and
+         -- Trim_Nul parameters (if Trim_Nul is False, length is Item'Length;
+         -- if False, length will be the length of the slice of Item prior to
+         -- the first wide_nul).
+
+         declare
+            TC_No_NUL_Wide_String       : constant Wide_String :=
+              To_Ada(Item => TC_wide_nul_Appended, Trim_Nul => True);
+
+            TC_NUL_Appended_Wide_String : constant Wide_String :=
+              To_Ada(TC_wide_nul_Appended, False);
+
+         begin
+
+            if TC_No_NUL_Wide_String'First       /= 1 or
+               TC_NUL_Appended_Wide_String'First /= 1
+            then
+               Report.Failed("Incorrect lower bound from Function To_Ada");
+            end if;
+
+            if TC_No_NUL_Wide_String'Length /= TC_Wide_String'Length then
+               Report.Failed("Incorrect length returned from Function " &
+                             "To_Ada when Trim_Nul => True");
+            end if;
+
+            if TC_NUL_Appended_Wide_String'Length /=
+               TC_Wide_String'Length + 1
+            then
+               Report.Failed("Incorrect length returned from Function " &
+                             "To_Ada when Trim_Nul => False");
+            end if;
+
+            for TC_Character in Wide_Character'('a') .. Wide_Character'('h') loop
+               if TC_No_NUL_Wide_String(j)       /= TC_Character or
+                  TC_NUL_Appended_Wide_String(j) /= TC_Character
+               then
+                  Report.Failed("Incorrect result from To_Ada with " &
+                                "char_array input, index = "         &
+                                Integer'Image(j));
+               end if;
+               j := j + 1;
+            end loop;
+
+         end;
+
+
+         -- Check that the function To_Ada raises Terminator_Error if the
+         -- parameter Trim_Nul is set to True, but the actual Item parameter
+         -- does not contain the wide_nul wchar_t.
+
+         begin
+            TC_Wide_String := To_Ada(TC_No_wide_nul, Trim_Nul => True);
+            Report.Failed("Terminator_Error not raised when Item "    &
+                          "parameter of To_Ada does not contain the " &
+                          "wide_nul wchar_t, but parameter Trim_Nul " &
+                          "=> True");
+            Report.Comment
+              (To_String(TC_Wide_String) & " printed to defeat optimization");
+         exception
+            when Terminator_Error => null;  -- OK, expected exception.
+            when others           =>
+               Report.Failed("Incorrect exception raised by function "  &
+                             "To_Ada when the Item parameter does not " &
+                             "contain the wide_nul wchar_t, but "       &
+                             "parameter Trim_Nul => True");
+         end;
+
+      end;
+
+   exception
+      when The_Error : others =>
+         Report.Failed
+           ("The following exception was raised in the Test_Block: " &
+            Ada.Exceptions.Exception_Name(The_Error));
+   end Test_Block;
+
+   Report.Result;
+
+end CXB30061;
diff --git a/gcc/testsuite/ada/acats/tests/cxf/cxf2001.a b/gcc/testsuite/ada/acats/tests/cxf/cxf2001.a
index 96d0a0a17d3..a9f4bb21e30 100644
--- a/gcc/testsuite/ada/acats/tests/cxf/cxf2001.a
+++ b/gcc/testsuite/ada/acats/tests/cxf/cxf2001.a
@@ -3,22 +3,22 @@
 --                             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 
+--     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 
+--     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 
+--     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 
+--     SOFTWARE, DOCUMENTATION OR OTHER INFORMATION RELEASED, MADE AVAILABLE
 --     OR DISCLOSED, OR THE OWNERSHIP, MERCHANTABILITY, OR FITNESS FOR A
 --     PARTICULAR PURPOSE OF SAID MATERIAL.
 --*
@@ -31,33 +31,33 @@
 --
 -- TEST DESCRIPTION:
 --      This test is designed to test the generic procedure Divide found in
---      package Ada.Decimal.  
+--      package Ada.Decimal.
 --
---      The table below attempts to portray the design approach used in this 
+--      The table below attempts to portray the design approach used in this
 --      test.  There are three "dimensions" of concern:
 --        1) the delta value of the Quotient and Remainder types, shown as
 --           column headers,
 --        2) specific choices for the Dividend and Divisor numerical values
 --           (i.e., whether they yielded a repeating/non-terminating result,
---            or a terminating result ["exact"]), displayed on the left side 
+--            or a terminating result ["exact"]), displayed on the left side
 --            of the tables, and
 --        3) the delta for the Dividend and Divisor.
---      
+--
 --      Each row in the tables indicates a specific test case, showing the
 --      specific quotient and remainder (under the appropriate Delta column)
 --      for each combination of dividend and divisor values.  Test cases
 --      follow the top-to-bottom sequence shown in the tables.
---      
+--
 --      Most of the test case sets (same dividend/divisor combinations -
---      indicated by dashed horizontal lines in the tables) vary the 
---      delta of the quotient and remainder types between test cases. This 
+--      indicated by dashed horizontal lines in the tables) vary the
+--      delta of the quotient and remainder types between test cases. This
 --      allows for an examination of how different deltas for a quotient
 --      and/or remainder type can influence the results of a division with
 --      identical dividend and divisor.
---      
+--
 --      Note: Test cases are performed for both Radix 10 and Radix 2 types.
---      
---      
+--
+--
 --  Divid  Divis    Delta     Delta       Delta       Delta       Delta
 -- (Delta)(Delta)|  .1   |    .01    |   .001    |   .0001   |  .00001   |Test
 --               |---|---|-----|-----|-----|-----|-----|-----|-----|-----|Case
@@ -88,14 +88,14 @@
 -- ---------------------------------------------------------------------------
 -- Divide by Zero| Raise Constraint_Error                                 41
 -- ---------------------------------------------------------------------------
--- 
---       
+--
+--
 -- CHANGE HISTORY:
 --      06 Dec 94   SAIC    ACVC 2.0
 --      29 Dec 94   SAIC    Modified Radix 2 cases to match Radix 10 cases.
---      03 Oct 95   RBKD    Modified to fix incorrect remainder results
+--      03 Oct 95   RBKD    Modified to fix incorrect remainder results.
 --      15 Nov 95   SAIC    Incorporated reviewer fixes for ACVC 2.0.1.
---
+--      18 Dec 06   RLB     Fixed failure message to have correct block name.
 --!
 
 with Report;
@@ -117,12 +117,12 @@ begin
       -- Declare all types and variables used in the various blocks below
       -- for all Radix 10 evaluations.
 
-      type DT_1       is delta 1.0     digits 5; 
-      type DT_0_1     is delta 0.1     digits 10; 
-      type DT_0_01    is delta 0.01    digits 10; 
-      type DT_0_001   is delta 0.001   digits 10; 
-      type DT_0_0001  is delta 0.0001  digits 10; 
-      type DT_0_00001 is delta 0.00001 digits 10; 
+      type DT_1       is delta 1.0     digits 5;
+      type DT_0_1     is delta 0.1     digits 10;
+      type DT_0_01    is delta 0.01    digits 10;
+      type DT_0_001   is delta 0.001   digits 10;
+      type DT_0_0001  is delta 0.0001  digits 10;
+      type DT_0_00001 is delta 0.00001 digits 10;
 
       for DT_1'Machine_Radix       use 10;
       for DT_0_1'Machine_Radix     use 10;
@@ -138,11 +138,11 @@ begin
       Dd_0_0001,  Dv_0_0001,  Quot_0_0001,  Rem_0_0001  : DT_0_0001  := 0.0;
       Dd_0_00001, Dv_0_00001, Quot_0_00001, Rem_0_00001 : DT_0_00001 := 0.0;
 
-   begin 
+   begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(Dividend_Type  => DT_0_01,
                                    Divisor_Type   => DT_0_1,
                                    Quotient_Type  => DT_0_1,
@@ -158,7 +158,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_0_1, DT_0_1, DT_0_1);
       begin
          if TC_Verbose then Report.Comment("Case 2"); end if;
@@ -171,7 +171,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_0_1, DT_0_01, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 3"); end if;
@@ -184,7 +184,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_0_1, DT_0_01, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 4"); end if;
@@ -197,14 +197,14 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_0_1, DT_0_001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 5"); end if;
          Dd_0_01 := DT_0_01(0.05);  Dv_0_1 := DT_0_1(0.3);
          Div(Dd_0_01, Dv_0_1, Quot_0_001, Rem_0_0001);
-         if Quot_0_001 /= DT_0_001(0.166)   or 
-            Rem_0_0001 /= DT_0_0001(0.0002) 
+         if Quot_0_001 /= DT_0_001(0.166)   or
+            Rem_0_0001 /= DT_0_0001(0.0002)
          then
             Report.Failed("Incorrect values returned, Case 5");
          end if;
@@ -212,7 +212,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_01, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 6"); end if;
@@ -225,7 +225,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_01, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 7"); end if;
@@ -238,7 +238,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_01, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 8"); end if;
@@ -251,7 +251,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_001, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 9"); end if;
@@ -264,7 +264,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_001, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 10"); end if;
@@ -277,14 +277,14 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_0001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 11"); end if;
          Dd_0_01 := DT_0_01(0.15);  Dv_1 := DT_1(20);
          Div(Dd_0_01, Dv_1, Quot_0_0001, Rem_0_0001);
-         if Quot_0_0001 /= DT_0_0001(0.0075) or 
-            Rem_0_0001  /= DT_0_0001(0.0) 
+         if Quot_0_0001 /= DT_0_0001(0.0075) or
+            Rem_0_0001  /= DT_0_0001(0.0)
          then
             Report.Failed("Incorrect values returned, Case 11");
          end if;
@@ -292,14 +292,14 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_0001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 12"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_0001, Rem_0_0001);
-         if Quot_0_0001 /= DT_0_0001(0.0625) or 
-            Rem_0_0001  /= DT_0_0001(0.0) 
+         if Quot_0_0001 /= DT_0_0001(0.0625) or
+            Rem_0_0001  /= DT_0_0001(0.0)
          then
             Report.Failed("Incorrect values returned, Case 12");
          end if;
@@ -307,13 +307,13 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_001, DT_0_00001);
       begin
          if TC_Verbose then Report.Comment("Case 13"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_001, Rem_0_00001);
-         if Quot_0_001 /= DT_0_001(0.062) or 
+         if Quot_0_001 /= DT_0_001(0.062) or
             Rem_0_00001  /= DT_0_00001(0.00025)
          then
             Report.Failed("Incorrect values returned, Case 13");
@@ -322,13 +322,13 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 14"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_001, Rem_0_0001);
-         if Quot_0_001 /= DT_0_001(0.062) or 
+         if Quot_0_001 /= DT_0_001(0.062) or
             Rem_0_0001  /= DT_0_0001(0.0002)
          then
             Report.Failed("Incorrect values returned, Case 14");
@@ -337,7 +337,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_001, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 15"); end if;
@@ -351,7 +351,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_001, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 16"); end if;
@@ -364,13 +364,13 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_01, DT_0_00001);
       begin
          if TC_Verbose then Report.Comment("Case 17"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_01, Rem_0_00001);
-         if Quot_0_01 /= DT_0_01(0.06) or Rem_0_00001 /= DT_0_00001(0.00125) 
+         if Quot_0_01 /= DT_0_01(0.06) or Rem_0_00001 /= DT_0_00001(0.00125)
          then
             Report.Failed("Incorrect values returned, Case 17");
          end if;
@@ -378,13 +378,13 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_01, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 18"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_01, Rem_0_0001);
-         if Quot_0_01 /= DT_0_01(0.06) or Rem_0_0001 /= DT_0_0001(0.0012) 
+         if Quot_0_01 /= DT_0_01(0.06) or Rem_0_0001 /= DT_0_0001(0.0012)
          then
             Report.Failed("Incorrect values returned, Case 18");
          end if;
@@ -392,7 +392,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_01, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 19"); end if;
@@ -405,7 +405,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_01, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 20"); end if;
@@ -429,12 +429,12 @@ begin
       -- Declare all types and variables used in the various blocks below
       -- for all Radix 2 evaluations.
 
-      type DT_1       is delta 1.0     digits 5; 
-      type DT_0_1     is delta 0.1     digits 10; 
-      type DT_0_01    is delta 0.01    digits 10; 
-      type DT_0_001   is delta 0.001   digits 10; 
-      type DT_0_0001  is delta 0.0001  digits 10; 
-      type DT_0_00001 is delta 0.00001 digits 10; 
+      type DT_1       is delta 1.0     digits 5;
+      type DT_0_1     is delta 0.1     digits 10;
+      type DT_0_01    is delta 0.01    digits 10;
+      type DT_0_001   is delta 0.001   digits 10;
+      type DT_0_0001  is delta 0.0001  digits 10;
+      type DT_0_00001 is delta 0.00001 digits 10;
 
       for DT_1'Machine_Radix       use 2;
       for DT_0_1'Machine_Radix     use 2;
@@ -450,11 +450,11 @@ begin
       Dd_0_0001,  Dv_0_0001,  Quot_0_0001,  Rem_0_0001  : DT_0_0001  := 0.0;
       Dd_0_00001, Dv_0_00001, Quot_0_00001, Rem_0_00001 : DT_0_00001 := 0.0;
 
-   begin 
+   begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(Dividend_Type  => DT_0_01,
                                    Divisor_Type   => DT_0_1,
                                    Quotient_Type  => DT_0_1,
@@ -470,7 +470,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_0_1, DT_0_1, DT_0_1);
       begin
          if TC_Verbose then Report.Comment("Case 22"); end if;
@@ -483,7 +483,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_0_1, DT_0_01, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 23"); end if;
@@ -496,7 +496,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_0_1, DT_0_01, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 24"); end if;
@@ -509,14 +509,14 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_0_1, DT_0_001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 25"); end if;
          Dd_0_01 := DT_0_01(0.05);  Dv_0_1 := DT_0_1(0.3);
          Div(Dd_0_01, Dv_0_1, Quot_0_001, Rem_0_0001);
-         if Quot_0_001 /= DT_0_001(0.166)   or 
-            Rem_0_0001 /= DT_0_0001(0.0002) 
+         if Quot_0_001 /= DT_0_001(0.166)   or
+            Rem_0_0001 /= DT_0_0001(0.0002)
          then
             Report.Failed("Incorrect values returned, Case 25");
          end if;
@@ -524,7 +524,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_01, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 26"); end if;
@@ -537,7 +537,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_01, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 27"); end if;
@@ -550,7 +550,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_01, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 28"); end if;
@@ -563,7 +563,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_001, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 29"); end if;
@@ -576,7 +576,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_001, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 30"); end if;
@@ -589,14 +589,14 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_01, DT_1, DT_0_0001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 31"); end if;
          Dd_0_01 := DT_0_01(0.15);  Dv_1 := DT_1(20);
          Div(Dd_0_01, Dv_1, Quot_0_0001, Rem_0_0001);
-         if Quot_0_0001 /= DT_0_0001(0.0075) or 
-            Rem_0_0001  /= DT_0_0001(0.0) 
+         if Quot_0_0001 /= DT_0_0001(0.0075) or
+            Rem_0_0001  /= DT_0_0001(0.0)
          then
             Report.Failed("Incorrect values returned, Case 31");
          end if;
@@ -604,14 +604,14 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_0001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 32"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_0001, Rem_0_0001);
-         if Quot_0_0001 /= DT_0_0001(0.0625) or 
-            Rem_0_0001  /= DT_0_0001(0.0) 
+         if Quot_0_0001 /= DT_0_0001(0.0625) or
+            Rem_0_0001  /= DT_0_0001(0.0)
          then
             Report.Failed("Incorrect values returned, Case 32");
          end if;
@@ -619,13 +619,13 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_001, DT_0_00001);
       begin
          if TC_Verbose then Report.Comment("Case 33"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_001, Rem_0_00001);
-         if Quot_0_001 /= DT_0_001(0.062) or 
+         if Quot_0_001 /= DT_0_001(0.062) or
             Rem_0_00001  /= DT_0_00001(0.00025)
          then
             Report.Failed("Incorrect values returned, Case 33");
@@ -634,13 +634,13 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 34"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_001, Rem_0_0001);
-         if Quot_0_001 /= DT_0_001(0.062) or 
+         if Quot_0_001 /= DT_0_001(0.062) or
             Rem_0_0001  /= DT_0_0001(0.0002)
          then
             Report.Failed("Incorrect values returned, Case 34");
@@ -649,7 +649,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_001, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 35"); end if;
@@ -663,7 +663,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_001, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 36"); end if;
@@ -676,13 +676,13 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_01, DT_0_00001);
       begin
          if TC_Verbose then Report.Comment("Case 37"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_01, Rem_0_00001);
-         if Quot_0_01 /= DT_0_01(0.06) or Rem_0_00001 /= DT_0_00001(0.00125) 
+         if Quot_0_01 /= DT_0_01(0.06) or Rem_0_00001 /= DT_0_00001(0.00125)
          then
             Report.Failed("Incorrect values returned, Case 37");
          end if;
@@ -690,13 +690,13 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_01, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 38"); end if;
          Dd_0_00001 := DT_0_00001(0.03125);  Dv_0_1 := DT_0_1(0.5);
          Div(Dd_0_00001, Dv_0_1, Quot_0_01, Rem_0_0001);
-         if Quot_0_01 /= DT_0_01(0.06) or Rem_0_0001 /= DT_0_0001(0.0012) 
+         if Quot_0_01 /= DT_0_01(0.06) or Rem_0_0001 /= DT_0_0001(0.0012)
          then
             Report.Failed("Incorrect values returned, Case 38");
          end if;
@@ -704,7 +704,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_01, DT_0_001);
       begin
          if TC_Verbose then Report.Comment("Case 39"); end if;
@@ -717,7 +717,7 @@ begin
 
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_00001, DT_0_1, DT_0_01, DT_0_01);
       begin
          if TC_Verbose then Report.Comment("Case 40"); end if;
@@ -729,24 +729,24 @@ begin
       end;
 
       declare
-         procedure Div is 
+         procedure Div is
             new Ada.Decimal.Divide(DT_0_0001, DT_1, DT_0_0001, DT_0_0001);
       begin
          if TC_Verbose then Report.Comment("Case 41"); end if;
-         Dd_0_0001 := (DT_0_0001(6062.0) / DT_0_0001(16384.0));  
+         Dd_0_0001 := (DT_0_0001(6062.0) / DT_0_0001(16384.0));
          Dv_1 := DT_1(0.0);
          Div(Dd_0_0001, Dv_1, Quot_0_0001, Rem_0_0001);
          Report.Failed("Divide by Zero didn't raise Constraint_Error, " &
                        "Case 41");
       exception
          when Constraint_Error =>  null;  -- OK, expected exception.
-         when others => 
+         when others =>
             Report.Failed("Unexpected exception raised by Divide by Zero," &
                           "Case 41");
       end;
 
    exception
-      when others => Report.Failed("Exception raised in Radix_10_Block");
+      when others => Report.Failed("Exception raised in Radix_2_Block");
    end Radix_2_Block;