diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-20 15:24:02 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-20 15:24:02 +0000 |
| commit | 628dfe67321e94b743a840ef4e2ee5d0b75a9e02 (patch) | |
| tree | a8a3d44beae002b12e8062d1f15bb5f8a5068c2d | |
| parent | 27d19ab7df481e2d3388b06d4001a0fd8a8371a3 (diff) | |
| download | ppe42-gcc-628dfe67321e94b743a840ef4e2ee5d0b75a9e02.tar.gz ppe42-gcc-628dfe67321e94b743a840ef4e2ee5d0b75a9e02.zip | |
PR 20085
* intrinsic/args.c (iargc): Off by 1.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95302 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/intrinsics/args.c | 8 |
2 files changed, 10 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 22de5011798..4aa4077b441 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2005-02-20 Steven G. Kargl <kargls@comcast.net> + + PR 20085 + * intrinsic/args.c (iargc): Off by 1. + 2005-02-19 Steven G. Kargl <kargls@comcast.net> * intrinsic/date_and_time.c: Fix conformance problems. diff --git a/libgfortran/intrinsics/args.c b/libgfortran/intrinsics/args.c index e1032d43408..72f1b987c87 100644 --- a/libgfortran/intrinsics/args.c +++ b/libgfortran/intrinsics/args.c @@ -1,6 +1,6 @@ /* Implementation of the GETARG and IARGC g77, and corresponding F2003, intrinsics. - Copyright (C) 2004 Free Software Foundation, Inc. + Copyright (C) 2004, 2005 Free Software Foundation, Inc. Contributed by Bud Davis and Janne Blomqvist. This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -78,7 +78,9 @@ getarg_i8 (GFC_INTEGER_8 *pos, char *val, gfc_charlen_type val_len) } -/* Return the number of commandline arguments. */ +/* Return the number of commandline arguments. The g77 info page + states that iargc does not include the specification of the + program name itself. */ extern GFC_INTEGER_4 iargc (void); export_proto(iargc); @@ -91,7 +93,7 @@ iargc (void) get_args (&argc, &argv); - return argc; + return (argc - 1); } |
