https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63222
--- Comment #2 from Pavel Zhukov <pavel at zhukoff dot net> ---
If symlink is broken Ada.Directories.Exists returns False (actually it's
because stat64 returns ENOENT in __gnat_stat).
Easy to reproduce:
mkdir 'test' && cd 'test' && touch target && ln -s target link && rm target &&
cd - && ./del
where del is:
with Ada.Directories;
procedure del is
begin
Ada.Directories.Delete_Tree ("test");
end del;
The problem is even worse if Ada.Direcotiries.Delete_Tree was called and
symlink's target was deleted before the symlink itself.
raised ADA.IO_EXCEPTIONS.USE_ERROR : directory tree rooted at ".uuid" could not
be deleted
