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

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

From-SVN: r95302

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 22de50117988d371bc09d097237e92baf5e2f2a5..4aa4077b441ba28b8025d2f78bd13d766623c0ab 100644 (file)
--- 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 e1032d434085340da7463907cf5b3bcfaa2f7c01..72f1b987c87b81d529a1cb8955c5a84e4fae676a 100644 (file)
--- 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);
 }