> This is okay with me (non-existing files will fail the open call
> anyhow).

Sorry for the delay. Here is a new patch, based on our discussion:

2002-04-18  Joel Brobecker  <brobecker@gnat.com>

        * source.c (is_regular_file): New function.
        (openp): Check wether file to open is a regular file
        to avoid opening directories.

Ok to commit?
-- 
Joel