[patch, fortran]PR25829 Add support for F2003 I/O features

[Jerry DeLisle]

On Sun, 2008-04-06 at 00:32 +0200, Tobias Burnus wrote:
> Jerry DeLisle wrote:
> > I plan to commit the patch after the following:
> > 1) clean up ChangeLogs
> > 2) Version the st_wait symbol
> > 3) Cross test the libraries with 4.3
> > After the commit, I will start on the items identified by Tobias.
> >   
> 
> For those not on IRC: Jerry's testing passed after some minor changes. 
> I've compiled/run also some programs with no regressions, but they were 
> not heavily using I/O anyhow. One can thus expect the commit soon.
> 
> For Jerry: I found something else, which does not work, namely:
> 
> PAD= in the open statement works, but PAD= in the read statement seems 
> to be ignored.
> 

The main patch is committed.  Here is a patch that enables the PAD=
feature.  Regression testing.

Jerry
-------------- next part --------------
A non-text attachment was scrubbed...
Name: pad.diff
Type: text/x-patch
Size: 2987 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080406/5f18f820/attachment.bin>
-------------- next part --------------
! { dg-do run { target fd_truncate } }
! Test correct operation for pad='no'.
program main
  character(len=1) line(2)
  line = 'x'
  open(77,status='scratch',pad='yes')
  write(77,'(A)') 'a','b'
  rewind(77)
  read(77,'(2A)',iostat=i, pad='no') line(1)
  if (line(1) /= 'a' .or. line(2) /= 'x') call abort
  rewind(77)
  line = 'y'
  read(77,'(2A)',iostat=i,advance='no', pad='no') line
  if (line(1) /= 'a' .or. line(2) /= 'y') call abort
end program main