https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84320
Bug ID: 84320
Summary: Program_Error exp_util.adb:4352 explicit raise related
to lock-free protected type
Product: gcc
Version: 7.2.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: ada
Assignee: unassigned at gcc dot gnu.org
Reporter: matsilvabustos at abc dot gob.ar
Target Milestone: ---
Created attachment 43390
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=43390&action=edit
main.adb
GNAT will raise Program_Error exp_util.adb:4352 by the combination of these
three declarations:
- a protected type declaration with Lock_Free aspect set to True
- subtyping that protected type
- declaring a record field of this subtype
Attached main.adb.
[mat@localhost src]$ LC_ALL=posix gcc -c main.adb -Wall -Wextra -gnatd.n -v
Using built-in specs.
COLLECT_GCC=gcc
OFFLOAD_TARGET_NAMES=nvptx-none
OFFLOAD_TARGET_DEFAULT=1
Target: x86_64-redhat-linux
Configured with: ../configure --enable-bootstrap
--enable-languages=c,c++,objc,obj-c++,fortran,ada,go,lto --prefix=/usr
--mandir=/usr/share/man --infodir=/usr/share/info
--with-bugurl=http://bugzilla.redhat.com/bugzilla --enable-shared
--enable-threads=posix --enable-checking=release --enable-multilib
--with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions
--enable-gnu-unique-object --enable-linker-build-id
--with-gcc-major-version-only --with-linker-hash-style=gnu --enable-plugin
--enable-initfini-array --with-isl --enable-libmpx
--enable-offload-targets=nvptx-none --without-cuda-driver
--enable-gnu-indirect-function --with-tune=generic --with-arch_32=i686
--build=x86_64-redhat-linux
Thread model: posix
gcc version 7.2.1 20170915 (Red Hat 7.2.1-2) (GCC)
COLLECT_GCC_OPTIONS='-c' '-Wall' '-Wextra' '-gnatd.n' '-v' '-mtune=generic'
'-march=x86-64'
/usr/libexec/gcc/x86_64-redhat-linux/7/gnat1 -gnatwa -quiet -dumpbase main.adb
-auxbase main -Wall -Wextra -gnatd.n -mtune=generic -march=x86-64 main.adb -o
/tmp/ccS0v9B8.s
/usr/lib/gcc/x86_64-redhat-linux/7/adainclude/system.ads
main.adb
+===========================GNAT BUG DETECTED==============================+
| 7.2.1 20170915 (Red Hat 7.2.1-2) (x86_64-redhat-linux) Program_Error
exp_util.adb:4352 explicit raise|
| Error detected at main.adb:29:4 |
| Please submit a bug report; see https://gcc.gnu.org/bugs/ . |
| Use a subject line meaningful to you and us to track the bug. |
| Include the entire contents of this bug box in the report. |
| Include the exact command that you entered. |
| Also include sources listed below. |
+==========================================================================+
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.
Consider also -gnatd.n switch (see debug.adb).
main.adb
compilation abandoned
