Some simple ada-sources, done for the University of Stuttgart.
You can find the GNU Ada compiler GNAT at the GeekGadgets ftp-site:

http://www.ninemoons.com

 PERMSSN    UID  GID    PACKED    SIZE  RATIO     CRC       STAMP          NAME
---------- ----------- ------- ------- ------ ---------- ------------ -------------
[generic]                  413     800  51.6% -lh5- 4b0b Dec 12  2000 Ada-Sources1/euler.adb
[generic]                  304     512  59.4% -lh5- 8345 Nov 24  2000 Ada-Sources1/fakultaet.adb
[generic]                  654    1279  51.1% -lh5- 38ef Dec  4  2000 Ada-Sources1/GetAnyNumber.adb
[generic]                  280     463  60.5% -lh5- 1a0f Nov 28  2000 Ada-Sources1/GetAnyNumber.ads
[generic]                  811    1970  41.2% -lh5- 1af4 Dec  2  2000 Ada-Sources1/HexChar.adb
[generic]                  378     751  50.3% -lh5- 55cf Nov 28  2000 Ada-Sources1/HEXCHAR.ADS
[generic]                  416     699  59.5% -lh5- 3808 Nov 24  2000 Ada-Sources1/kauderwelsch.adb
[generic]                  501     861  58.2% -lh5- c0c2 Nov 24  2000 Ada-Sources1/recho_paket.adb
[generic]                  320     548  58.4% -lh5- 5755 Nov 24  2000 Ada-Sources1/recho_paket.ads
[generic]                  885    2512  35.2% -lh5- e51f Dec 28  2000 Ada-Sources1/SPRINGER.ADB
[generic]                  280     569  49.2% -lh5- fded Dec 11  2000 Ada-Sources1/teiler.adb
[generic]                  261     474  55.1% -lh5- 660f Dec 11  2000 Ada-Sources1/teiler.ads
[generic]                  590    1170  50.4% -lh5- 43b1 Dec  4  2000 Ada-Sources1/Universalnumbers.adb
---------- ----------- ------- ------- ------ ---------- ------------ -------------
 Total        13 files    6093   12608  48.3%            Jan 18  2001