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: unassig...@gcc.gnu.org ReportedBy: tero.koski...@iki.fi 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) ... $