PR fortran/19313
* trans-io.c (gfc_trans_inquire): Added code to support
pad.
PR fortran/19313
* gfortan.dg/inquire_6.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@94110
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-01-22 Bud Davis <bdavis9659@comcast.net>
+
+ PR fortran/19313
+ * trans-io.c (gfc_trans_inquire): Added code to support
+ pad.
+
2005-01-22 Steven G. Kargl <kargls@comcast.net>
* intrinsic.c (make_alias): Add standard argument.
set_string (&block, &post_block, ioparm_delim, ioparm_delim_len,
p->delim);
+ if (p->pad)
+ set_string (&block, &post_block, ioparm_pad, ioparm_pad_len,
+ p->pad);
+
if (p->err)
set_flag (&block, ioparm_err);
+2005-01-23 Bud Davis <bdavis9659@comcast.net>
+
+ PR fortran/19313
+ * gfortan.dg/inquire_6.f90: New test.
+
2005-01-22 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/19451
--- /dev/null
+! { dg-do run }
+!pr19313 - inquire(..pad=..)
+ implicit none
+! logical debug
+! data debug /.TRUE./
+ character*20 chr
+ chr=''
+! not connected
+ inquire(7,pad=chr)
+! if (debug) print*,chr
+ if (chr.ne.'UNDEFINED') call abort
+ chr=''
+! not a formatted file
+ open(7,FORM='UNFORMATTED',STATUS='SCRATCH')
+ inquire(7,pad=chr)
+! if (debug) print*,chr
+ if (chr.ne.'UNDEFINED') call abort
+ chr=''
+! yes
+ open(8,STATUS='SCRATCH',PAD='YES')
+ inquire(8,pad=chr)
+! if (debug) print*,chr
+ if (chr.ne.'YES') call abort
+ chr=''
+! no
+ open(9,STATUS='SCRATCH',PAD='NO')
+ inquire(9,pad=chr)
+! if (debug) print*,chr
+ if (chr.ne.'NO') call abort
+ chr=''
+ end