mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 02:14:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/20085 (iargc returns wrong count for number of program arguments)

Browse Source 
PR 20085
* intrinsic/args.c (iargc): Off by 1.

From-SVN: r95302
This commit is contained in:
Steven G. Kargl 2005-02-20 15:24:02 +00:00 committed by Steven G. Kargl
parent ac59a95936
commit 5920b5d2e8
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -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.

8
libgfortran/intrinsics/args.c
View File

@ -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);
}