ada/9136: Compiler bomb on spec file with Elaborate_Body

[jvandyk@attglobal.net]

>Number:         9136
>Category:       ada
>Synopsis:       Compiler bomb on spec file with Elaborate_Body
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Thu Jan 02 08:46:03 PST 2003
>Closed-Date:
>Last-Modified:
>Originator:     Jerry van Dijk
>Release:        3.3 prerelease 20020102 mingw
>Organization:
>Environment:
mingw (runtime 2.3)
>Description:
The following package spec bombs the compiler instead
of issuing a warning:

with Interfaces;
package Nomsg is
   pragma Elaborate_Body;
   type Size_T is new Interfaces.Unsigned_32;
end Nomsg;

gcc -c nomsg.ads
No code generated for file nomsg.ads (package spec)
gcc.exe: Internal error: Aborted (program gnat1)
Please submit a full bug report.
See <URL:http://www.mingw.org/gcc/bugs.html> for instructions.
gnatmake: "nomsg.ads" compilation error
>How-To-Repeat:
run 'make.bat' in archive
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: application/x-zip-compressed; name="nomsg.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="nomsg.zip"

UEsDBBQAAgAIADaiIS4eA4pwIgAAACUAAAAJAHAAY2xlYW4uYmF0U0RbAJQAAAAACADYO4lmY2Rg
aRBhYGBQYYAAByBmZAIzWRWAhAKQzcgK4YsCiR/zt5R8mHIiXuzAKyOQOiaGEAZmsLQIw39GeQZG
RjAHQgJNBYvh0P+FEUMfqxCQAABVVA0AB9g+Ez7/ahQ+yz4TPnNITc7IV8hPS+PlykxTSK3ILC5R
0NJLzMlUSEnNgbB4uQBQSwMECgACAAAA13siLp36V+8UAAAAFAAAAAgAcABtYWtlLmJhdFNEWwCU
AAAAAAgA2DuJZmNkYGkQYWBgUGGAAAcgZmQCM1kVgIQCkM3ICuGLAokf87eUfJhyIl7swCsjkDom
hhAGZrC0CMN/RnkGRkYwB0ICTQWL4dD/hRFDH6sQkAAAVVQNAAcVTRQ+HWsUPrw+Ez5nbmF0bWFr
ZSBub21zZy5hZHMNClBLAwQUAAIACADYjCIuzk4PamkAAAB6AAAACQBwAG5vbXNnLmFkc1NEWwCU
AAAAAAgA2DuJZmNkYGkQYWBgUGGAAAcgZmQCM1kVgIQCkM3ICuGLAokf87eUfJhyIl7swCsjkDom
hhAGZrC0CMN/RnkGRkYwB0ICTQWL4dD/hRFDH6sQkAAAVVQNAAcYaxQ+HWsUPh8+Ez4rzyzJUPDM
K0ktSktMTi225uUqSEzOTkxPVfDLzy1OV8gs5uVSUFAoKEpMz01UcM1JTMovSixJjXfKT6m0BkuV
VBakKgRnVqXGhwBVK+SlliOZpxeaV5yZnpeaEm9sBFSempcCMRfIBgBQSwMEFAACAAgA24wiLhcb
GsnrAAAAgQEAAAkAcABub21zZy5hbGlTRFsAlAAAAAAIANg7iWZjZGBpEGFgYFBhgAAHIGZkAjNZ
FYCEApDNyArhiwKJH/O3lHyYciJe7MArI5A6JoYQBmawtAjDf0Z5BkZGMAdCAk0Fi+HQ/4URQx+r
EJAAAFVUDQAHHWsUPh1rFD4daxQ+hY9PawIxEMXPBvIdBqEXD5KZJPsHRFC6lGK7lVZtb7LrphKw
KewWD8UP30lLtfbiXDKPefN7kxX0b8rJAu58DXs9RNuXYg7lgxSPEP7VPlwuKaRYQnh/67ZXXa/3
3Qyrhts0q1W6wRqKKRQFzGdSPIMPH659rTaui+5f9bNwUjsfsddwPielSGk0qGyuFSQus3lTJdH4
J5ZdWqEiTHRmMuDHOqwbKV4Az4BSEM3ywe3xIvamDi3QAdsETEtaCqPv88EydH4bXLPWxEPTahNp
dEplFJPKKMHuLHCi4l1effKfbr0Y4SGCxvFXX1BLAwQUAAIACACipCEuXXh8D1sAAABmAAAACwBw
AHByb2JsZW0udHh0U0RbAJQAAAAACADYO4lmY2RgaRBhYGBQYYAAByBmZAIzWRWAhAKQzcgK4YsC
iR/zt5R8mHIiXuzAKyOQOiaGEAZmsLQIw39GeQZGRjAHQgJNBYvh0P+FEUMfqxCQAABVVA0AB2BD
Ez7eahQ+X0MTPhWMUQqAIBAF/4Xu8E7gIYL+gw4Qay62oG64RnT77HeGmbVRKoQlU9BGnfdZ4wup
sIsPPNJPvTvCD4OWYDi0XJK5eWxD5Ti5xJX/FA+1KjWhsBklHhfrTNFP7gNQSwECFwsUAAIACAA2
oiEuHgOKcCIAAAAlAAAACQARAAAAAAABACAA/4EAAAAAY2xlYW4uYmF0U0QEAJQAAABVVAUAB9g+
Ez5QSwECFwsKAAIAAADXeyIunfpX7xQAAAAUAAAACAARAAAAAAABACAA/4G5AAAAbWFrZS5iYXRT
RAQAlAAAAFVUBQAHFU0UPlBLAQIXCxQAAgAIANiMIi7OTg9qaQAAAHoAAAAJABEAAAAAAAEAIAC2
gWMBAABub21zZy5hZHNTRAQAlAAAAFVUBQAHGGsUPlBLAQIXCxQAAgAIANuMIi4XGxrJ6wAAAIEB
AAAJABEAAAAAAAEAIAC2gWMCAABub21zZy5hbGlTRAQAlAAAAFVUBQAHHWsUPlBLAQIXCxQAAgAI
AKKkIS5deHwPWwAAAGYAAAALABEAAAAAAAEAIAC2geUDAABwcm9ibGVtLnR4dFNEBACUAAAAVVQF
AAdgQxM+UEsFBgAAAAAFAAUAaQEAANkEAAAAAA==