From c2c8f0d0428e178120f78ae62107dd608cf8ccfd Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Sun, 21 Jun 2020 13:52:29 -0400
Subject: [PATCH] [Ada] Complete support for static intrinsic functions

gcc/ada/

	* sem_res.adb (Resolve_Call): Do not try to inline intrinsic
	calls.
---
 gcc/ada/sem_res.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 50a4287..d1d5e3d 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -7042,6 +7042,7 @@ package body Sem_Res is
 
       if not Checking_Potentially_Static_Expression
         and then Is_Static_Function_Call (N)
+        and then not Is_Intrinsic_Subprogram (Ultimate_Alias (Nam))
         and then not Error_Posted (Ultimate_Alias (Nam))
       then
          Inline_Static_Function_Call (N, Ultimate_Alias (Nam));
-- 
2.7.4