diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2018-08-21 14:44:46 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-08-21 14:44:46 +0000 |
| commit | 8a2f6bbe45fe2dff64d613365fe2ddb2b1922e2f (patch) | |
| tree | 07042f92f76214893d3caaeb6592aaaf64c481d9 /gcc/ada/gcc-interface | |
| parent | d8251d001b3507ffb80b26f4d17f1daa99a5dc4a (diff) | |
| download | gcc-8a2f6bbe45fe2dff64d613365fe2ddb2b1922e2f.zip gcc-8a2f6bbe45fe2dff64d613365fe2ddb2b1922e2f.tar.gz gcc-8a2f6bbe45fe2dff64d613365fe2ddb2b1922e2f.tar.bz2 | |
[Ada] Compiler abort on call to expr. function for default discriminant
If a discriminant specification has a default that is a call to an
expression function, that function has to be frozen at the point of a
call to the initialization procedure for an object of the record type,
even though the call does not appear to come from source.
2018-08-21 Ed Schonberg <schonberg@adacore.com>
gcc/ada/
* sem_res.adb (Resolve_Call): Force the freezing of an
expression function that is called to provide a default value
for a defaulted discriminant in an object initialization.
gcc/testsuite/
* gnat.dg/expr_func5.adb: New testcase.
From-SVN: r263710
Diffstat (limited to 'gcc/ada/gcc-interface')
0 files changed, 0 insertions, 0 deletions