OSDN Git Service

PR 20085
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 20 Feb 2005 15:24:02 +0000 (15:24 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 20 Feb 2005 15:24:02 +0000 (15:24 +0000)
* intrinsic/args.c (iargc): Off by 1.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95302 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/intrinsics/args.c

index 22de501..4aa4077 100644 (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.
index e1032d4..72f1b98 100644 (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);
 }