diff options
| -rw-r--r-- | gcc/ada/a-convec.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/a-convec.adb b/gcc/ada/a-convec.adb index b6440f9f58b..a3d7464e941 100644 --- a/gcc/ada/a-convec.adb +++ b/gcc/ada/a-convec.adb @@ -618,7 +618,9 @@ package body Ada.Containers.Vectors is end Finalize; procedure Finalize (Object : in out Iterator) is + pragma Warnings (Off); pragma Assert (T_Check); -- not called if check suppressed + pragma Warnings (On); begin Unbusy (Object.Container.TC); end Finalize; |