[Ada] Avoid spurious errors on dimensionality checking in GNATprove

Message ID 20190711080347.GA95293@adacore.com
State New
Headers show
  • [Ada] Avoid spurious errors on dimensionality checking in GNATprove
Related show

Commit Message

Pierre-Marie de Rodat July 11, 2019, 8:03 a.m.
In the special GNATprove mode of the frontend, automatic inlining is
performed, which may lead to spurious errors on dimensionality checking.
Avoid performing this checking on inlined code, which has already been
checked for dimensionality errors.

There is no impact on compilation.

Tested on x86_64-pc-linux-gnu, committed on trunk

2019-07-11  Yannick Moy  <moy@adacore.com>


	* sem_res.adb (Resolve_Call): Do not perform dimensionality
	checking on inlined bodies.


--- gcc/ada/sem_res.adb
+++ gcc/ada/sem_res.adb
@@ -6949,7 +6949,9 @@  package body Sem_Res is
       --  Check the dimensions of the actuals in the call. For function calls,
       --  propagate the dimensions from the returned type to N.
-      Analyze_Dimension_Call (N, Nam);
+      if not In_Inlined_Body then
+         Analyze_Dimension_Call (N, Nam);
+      end if;
       --  All done, evaluate call and deal with elaboration issues