http://gcc.gnu.org/bugzilla/show_bug.cgi?id=49425
Summary: ACATS test C974008 fails if run after test C761011
Product: gcc
Version: 4.6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: ada
AssignedTo: [email protected]
ReportedBy: [email protected]
ACATS test C974008 fails when it is run after test C761011 in a same process.
Testcase:
#!/bin/sh
wget -c http://www.ada-auth.org/acats-files/3.0/acats_30.tar.Z
tar zxf acats_30.tar.Z
cp support/{repbody.ada,repspec.ada} .
cp ./c7/c761011.a ./c9/c974008.a .
gnatchop -w *.a
cat > test3.adb<<EOF
with c761011;
with c974008; -- c974009 also fails
procedure test3 is
begin
c761011;
c974008;
end;
EOF
cat > impdef.ads<<EOF
package impdef is
Switch_To_New_Task : constant Duration := 0.001;
end;
EOF
gnatmake test3
./test3
##ENDOFTESTCASE
Actual output:
,.,. C761011 ACATS 3.0 11-06-15 19:35:32
---- C761011 Check that if a finalize propagates an exception, other
finalizes due to be performed are performed.
- C761011 Finalization of normal object.
- C761011 Finalization of anonymous object.
- C761011 Finalization because of exit of loop.
- C761011 Finalization because of goto statement.
- C761011 Finalization because of return statement.
- C761011 Finalization because of exception propagation.
==== C761011 PASSED ============================.
,.,. C974008 ACATS 3.0 11-06-15 19:35:32
---- C974008 Asynchronous Select: Trigger is a call to a waiting task
entry and completes immediately.
* C974008 Abortable part started.
**** C974008 FAILED ****************************.
Expected output:
,.,. C761011 ACATS 3.0 11-06-15 19:35:32
---- C761011 Check that if a finalize propagates an exception, other
finalizes due to be performed are performed.
- C761011 Finalization of normal object.
- C761011 Finalization of anonymous object.
- C761011 Finalization because of exit of loop.
- C761011 Finalization because of goto statement.
- C761011 Finalization because of return statement.
- C761011 Finalization because of exception propagation.
==== C761011 PASSED ============================.
,.,. C974008 ACATS 3.0 11-06-15 19:35:24
---- C974008 Asynchronous Select: Trigger is a call to a waiting task
entry and completes immediately.
==== C974008 PASSED ============================.
I have tested this on Fedora 15/i386 with GCC 4.6.0 from Fedora packages:
$ gnatls -v
GNATLS 4.6.0 20110530 (Red Hat 4.6.0-9)
...
$
