From b2c4d56de258bc49da7f7349bedadd38af003a93 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Wed, 20 Aug 2008 15:24:25 +0200 Subject: sem_ch8.adb (Analyze_Subprogram_Renaming): Inherit Is_Imported flag. 2008-08-20 Ed Schonberg * sem_ch8.adb (Analyze_Subprogram_Renaming): Inherit Is_Imported flag. From-SVN: r139290 --- gcc/ada/sem_ch8.adb | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb index d943cbc..25c21d9 100644 --- a/gcc/ada/sem_ch8.adb +++ b/gcc/ada/sem_ch8.adb @@ -1965,9 +1965,11 @@ package body Sem_Ch8 is -- Most common case: subprogram renames subprogram. No body is generated -- in this case, so we must indicate the declaration is complete as is. + -- and inherit various attributes of the renamed subprogram. if No (Rename_Spec) then Set_Has_Completion (New_S); + Set_Is_Imported (New_S, Is_Imported (Entity (Nam))); Set_Is_Pure (New_S, Is_Pure (Entity (Nam))); Set_Is_Preelaborated (New_S, Is_Preelaborated (Entity (Nam))); -- cgit v1.1