From 79d09a491c9ca17e2159d73e0e9855d64d6fa7cf Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Fri, 31 Jan 2020 06:22:26 -0500
Subject: [PATCH] [Ada] AI12-0318 No_IO should apply to Ada.Directories

2020-06-05  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* restrict.ads (Unit_Array): Add a-direct.
---
 gcc/ada/restrict.ads | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/restrict.ads b/gcc/ada/restrict.ads
index ac4b663ddc0..5926892c06e 100644
--- a/gcc/ada/restrict.ads
+++ b/gcc/ada/restrict.ads
@@ -89,6 +89,7 @@ package Restrict is
      (No_Delay,                    "calendar"),
      (No_Dynamic_Priorities,       "a-dynpri"),
      (No_Finalization,             "a-finali"),
+     (No_IO,                       "a-direct"),
      (No_IO,                       "a-direio"),
      (No_IO,                       "directio"),
      (No_IO,                       "a-sequio"),
-- 
2.30.2