From 3ae6c64384e49b9d60fb622f88ab50a42c4c1d5c Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 22 Jun 2016 11:55:54 +0200 Subject: [PATCH] Minor reformatting. From-SVN: r237686 --- gcc/ada/sem_prag.adb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb index bb35ac49c20..b856badbf92 100644 --- a/gcc/ada/sem_prag.adb +++ b/gcc/ada/sem_prag.adb @@ -26348,8 +26348,8 @@ package body Sem_Prag is Rewrite (N, New_Occurrence_Of (New_E, Sloc (N))); end if; - -- Check that there are no calls left to abstract operations - -- if the current subprogram is not abstract. + -- Check that there are no calls left to abstract operations if + -- the current subprogram is not abstract. if Nkind (Parent (N)) = N_Function_Call and then N = Name (Parent (N)) @@ -27168,8 +27168,9 @@ package body Sem_Prag is end if; New_Prag := - Build_Pragma_Check_Equivalent (Prag, Subp, Parent_Subp, - Keep_Pragma_Id => True); + Build_Pragma_Check_Equivalent + (Prag, Subp, Parent_Subp, Keep_Pragma_Id => True); + Insert_After (Unit_Declaration_Node (Subp), New_Prag); Preanalyze (New_Prag); -- 2.30.2