From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 17511 invoked by alias); 5 Feb 2006 16:27:52 -0000 Received: (qmail 17502 invoked by uid 22791); 5 Feb 2006 16:27:51 -0000 X-Spam-Check-By: sourceware.org Received: from smtp2.poczta.interia.pl (HELO smtp.poczta.interia.pl) (213.25.80.232) by sourceware.org (qpsmtpd/0.31) with ESMTP; Sun, 05 Feb 2006 16:27:50 +0000 Received: by smtp.poczta.interia.pl (INTERIA.PL, from userid 502) id 3B3A1372A82; Sun, 5 Feb 2006 17:27:46 +0100 (CET) Received: from poczta.interia.pl (mi04.poczta.interia.pl [10.217.12.4]) by smtp.poczta.interia.pl (INTERIA.PL) with ESMTP id 69BDC372A8A for ; Sun, 5 Feb 2006 17:27:43 +0100 (CET) Received: by poczta.interia.pl (INTERIA.PL, from userid 502) id 6A8D4142C64; Sun, 5 Feb 2006 17:27:43 +0100 (CET) Received: from [217.113.229.74] (zet.toya.net.pl [217.113.229.74]) by www.poczta.fm (INTERIA.PL) with ESMTP id 12D1F142BAC for ; Sun, 5 Feb 2006 17:27:42 +0100 (CET) Message-ID: <43E62782.2000400@poczta.fm> Date: Sun, 05 Feb 2006 16:27:00 -0000 From: zet User-Agent: Mozilla Thunderbird 1.0.2-6 (X11/20050513) MIME-Version: 1.0 To: gcc-bugs@gcc.gnu.org Subject: GCC + GNAT- ADA + BUG Content-Type: multipart/mixed; boundary="------------000002080906030207030806" X-EMID: 61d12138 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2006-02/txt/msg00408.txt.bz2 List-Id: This is a multi-part message in MIME format. --------------000002080906030207030806 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit Content-length: 1257 gcc -c hh.adb +===========================GNAT BUG DETECTED==============================+ | 4.0.0 20050519 (Red Hat 4.0.0-8) (i386-redhat-linux-gnu) GCC error: | | in expand_assignment, at expr.c:3824 | | Error detected at hh.adb:19:5 | | Please submit a bug report; see http://gcc.gnu.org/bugs.html. | | Include the entire contents of this bug box in the report. | | Include the exact gcc or gnatmake command that you entered. | | Also include sources listed below in gnatchop format | | (concatenated together with no headers between files). | +==========================================================================+ Please include these source files with error report Note that list may not be accurate in some cases, so please double check that the problem can still be reproduced with the set of files listed. hh.adb hh.adb:4:11: warning: file name does not match unit name, should be "marcin.adb" compilation abandoned gnatmake: "hh.adb" compilation error ---------------------------------------------------------------------- Kliknij po wiecej! >>> http://link.interia.pl/f18ed --------------000002080906030207030806 Content-Type: text/x-adasrc; name="hh.adb" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="hh.adb" Content-length: 519 with ada.direct_io, ada.integer_text_io,ada.text_io; use ada.text_io,ada.integer_text_io; procedure marcin is type powiaty is record nazwa : integer; imie : integer; end record; package pliki is new ada.direct_io(powiaty); use pliki; plik : pliki.file_type; -- p : powiaty := (nazwa => 10, imie => 20); -- n : powiaty := (nazwa => 11, imie => 21);i begin -- open(plik,out_file,"dane.bin"); null; -- if end_of_file(plik) then put("plik pusty"); end if; end marcin; --------------000002080906030207030806--