[Ada] Fix assertion failure on functions with contracts
authorGhjuvan Lacambre <lacambre@adacore.com>
Wed, 4 Mar 2020 13:40:01 +0000 (14:40 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Wed, 10 Jun 2020 13:34:57 +0000 (09:34 -0400)
commit057548bc5f3a067f881cd6985419956b0f2696fc
tree92f01d2607f3eeb47b97db41ab8c8b739b7a8cee
parent3ea95664954775a1a85c9ea097877754984807aa
[Ada] Fix assertion failure on functions with contracts

2020-06-10  Ghjuvan Lacambre  <lacambre@adacore.com>

gcc/ada/

* par-ch6.adb (P_Subprogram): Make sure the specification
belongs to a procedure.
gcc/ada/par-ch6.adb