$ cat pad.f character*20 chr open(7) inquire(7,pad=chr) print *,chr end $ gfortran pad.f && ./a.out $ gfortran -v ; gfortran -dumpmachine Using built-in specs. Configured with: ../gcc-4.0-20050102/configure --prefix=/home/zfkts --enable-languages=c,c++,f95 Thread model: posix gcc version 4.0.0 20050102 (experimental) ia64-unknown-linux-gnu This is not a g77 regression. g77 does not support pad= in inquire.
This is partly a front-end bug: _gfortran_filename = "t.f"; _gfortran_line = 3; _gfortran_ioparm.unit = 7; _gfortran_st_inquire (); And a library bug.
inquire (delim= ) also doesn't work (returns blanks).
patch here: http://gcc.gnu.org/ml/fortran/2005-01/msg00207.html
Subject: Bug 19313 CVSROOT: /cvs/gcc Module name: gcc Changes by: bdavis@gcc.gnu.org 2005-01-23 14:19:55 Modified files: gcc/fortran : ChangeLog trans-io.c gcc/testsuite : ChangeLog Added files: gcc/testsuite/gfortran.dg: inquire_6.f90 Log message: 2005-01-22 Bud Davis <bdavis9659@comcast.net> PR fortran/19313 * trans-io.c (gfc_trans_inquire): Added code to support pad. PR fortran/19313 * gfortan.dg/inquire_6.f90: New test. Patches: http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/ChangeLog.diff?cvsroot=gcc&r1=1.309&r2=1.310 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/fortran/trans-io.c.diff?cvsroot=gcc&r1=1.27&r2=1.28 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.4926&r2=1.4927 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/inquire_6.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
Fixed.