From 326b74705c26a52226bc737cc94be584dd2505e1 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 15 Jul 2021 17:31:11 +0000 Subject: [PATCH] [Ada] Allow more cases of import with Relaxed_RM_Semantics gcc/ada/ * sem_prag.adb (Process_Import_Or_Interface): Relax error when Relaxed_RM_Semantics. --- gcc/ada/sem_prag.adb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index 9cad55d..0228717 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -9532,7 +9532,11 @@ package body Sem_Prag is Process_Import_Predefined_Type; - else + -- Emit an error unless Relaxed_RM_Semantics since some legacy Ada + -- compilers may accept more cases, e.g. JGNAT allowed importing + -- a Java package. + + elsif not Relaxed_RM_Semantics then if From_Aspect_Specification (N) then Error_Pragma_Arg ("entity for aspect% must be object, subprogram " -- 2.7.4