s-fileio.adb (Is_Open): Add check for usability of the underlying file stream.
authorPascal Obry <obry@adacore.com>
Tue, 14 Aug 2007 08:49:36 +0000 (10:49 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 14 Aug 2007 08:49:36 +0000 (10:49 +0200)
commit2353aeebc50124bc27a9d65d09bc696cca7cd19f
tree272fbcb381d730de833c289baa036941d229d14a
parentb1b1010fb7748a4acfc46f7d1d9e680bc4397904
s-fileio.adb (Is_Open): Add check for usability of the underlying file stream.

2007-08-14  Pascal Obry  <obry@adacore.com>

* s-fileio.adb (Is_Open): Add check for usability of the underlying
file stream.

From-SVN: r127461
gcc/ada/s-fileio.adb