https://gcc.gnu.org/bugzilla/show_bug.cgi?id=121527
--- Comment #2 from Sam James <sjames at gcc dot gnu.org> --- ``` ~/bugs/gcc-bld/gcc/testsuite/ada/acats-426/tests/c3/c391002 $ gnatmake -I../../../../../ada/acats-4/support c391002 -f -O0 [...] ~/bugs/gcc-bld/gcc/testsuite/ada/acats-426/tests/c3/c391002 $ while true ; do ./c391002 || break ; done ==== C391002 PASSED ============================. [...] ==== C391002 PASSED ============================. [...] ~/bugs/gcc-bld/gcc/testsuite/ada/acats-426/tests/c3/c391002 $ gnatmake -I../../../../../ada/acats-4/support c391002 -f -O1 gcc -c -I../../../../../ada/acats-4/support -O1 c391002.adb gcc -c -I../../../../../ada/acats-4/support -O1 c391002_1.adb gcc -c -I../../../../../ada/acats-4/support -O1 c391002_2.ads gcc -c -I../../../../../ada/acats-4/support -O1 c391002_3.ads gcc -c -I../../../../../ada/acats-4/support -O1 c391002_4.adb gcc -c -I./ -I../../../../../ada/acats-4/support -O1 -I- /home/sam/bugs/gcc-bld/gcc/testsuite/ada/acats-4/support/report.adb report.adb:382:30: warning: index for "Nam" may assume lower bound of 1 [-gnatww] report.adb:382:30: warning: suggested replacement: "Nam'First + 2" [-gnatww] report.adb:382:33: warning: index for "Nam" may assume lower bound of 1 [-gnatww] report.adb:382:33: warning: suggested replacement: "Nam'First + 6" [-gnatww] gcc -c -I./ -I../../../../../ada/acats-4/support -O1 -I- /home/sam/bugs/gcc-bld/gcc/testsuite/ada/acats-4/support/tctouch.adb gcc -c -I./ -I../../../../../ada/acats-4/support -O1 -I- /home/sam/bugs/gcc-bld/gcc/testsuite/ada/acats-4/support/version.ads gcc -c -I./ -I../../../../../ada/acats-4/support -O1 -I- /home/sam/bugs/gcc-bld/gcc/testsuite/ada/acats-4/support/impdef.adb gnatbind -I../../../../../ada/acats-4/support -x c391002.ali gnatlink c391002.ali -O1 ~/bugs/gcc-bld/gcc/testsuite/ada/acats-426/tests/c3/c391002 $ ./c391002 ,.,. C391002 ACATS 4.2A 25-08-13 08:14:18 ---- C391002 Check nested tagged discriminated record structures. ==== C391002 PASSED ============================. ~/bugs/gcc-bld/gcc/testsuite/ada/acats-426/tests/c3/c391002 $ while true ; do ./c391002 || break ; done ,.,. C391002 ACATS 4.2A 25-08-13 08:14:23 ---- C391002 Check nested tagged discriminated record structures. ==== C391002 PASSED ============================. ,.,. C391002 ACATS 4.2A 25-08-13 08:14:23 ---- C391002 Check nested tagged discriminated record structures. raised CONSTRAINT_ERROR : c391002_4.ads:8 discriminant check failed ```
