[Ada] Fix condition to build subtype for discriminated types
commite2642e2b2c13b64d3d8453bc611fee20f73aa420
authorEtienne Servais <servais@adacore.com>
Mon, 15 Nov 2021 16:32:40 +0000 (15 17:32 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 5 Jan 2022 11:32:36 +0000 (5 11:32 +0000)
treefd429b660e9d3dc1fffd58f26548f368a72b4147
parentbfcc4dd71b5e17488c85a42db86aef433ac712fd
[Ada] Fix condition to build subtype for discriminated types

gcc/ada/

* sem_ch3.adb (Analyze_Component_Declaration): Rework condition
to build subtypes.
(Analyze_Object_Declaration): Likewise.
(Should_Build_Subtype): New.
gcc/ada/sem_ch3.adb