[Ada] Complete support for static intrinsic functions

gcc/ada/

	* sem_res.adb (Resolve_Call): Do not try to inline intrinsic
	calls.

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 50a4287d9ce174bd0f8ae2689e30ea94d4666dd3..d1d5e3d80b2702798c6fa6f7588818a74b015ec1 100644 (file)
--- 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));