diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-02-09 18:04:57 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-02-09 18:04:57 +0100 |
| commit | e76e92315f3d212bbadf61accdf2548f86393871 (patch) | |
| tree | 71189d7060b7e8fe01a8d99f1451299c2074d200 | |
| parent | 57257f0dd5ce62ad42b9a5ca7d87f8b470f6a474 (diff) | |
| download | gcc-e76e92315f3d212bbadf61accdf2548f86393871.zip gcc-e76e92315f3d212bbadf61accdf2548f86393871.tar.gz gcc-e76e92315f3d212bbadf61accdf2548f86393871.tar.bz2 | |
re PR libfortran/42996 (Incorrect length returned from get_command_argument intrinsic)
2010-02-09 Tobias Burnus <burnus@net-b.de>
PR fortran/42996
* intrinsics/args.c (get_command_argument_i4): Always return
commandline-argument length for length parameter.
From-SVN: r156630
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/args.c | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3f52e5f..cd99c41 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2010-02-09 Tobias Burnus <burnus@net-b.de> + + PR fortran/42996 + * intrinsics/args.c (get_command_argument_i4): Always return + commandline-argument length for length parameter. + 2010-02-06 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/42742 diff --git a/libgfortran/intrinsics/args.c b/libgfortran/intrinsics/args.c index 7187bec..83a0502 100644 --- a/libgfortran/intrinsics/args.c +++ b/libgfortran/intrinsics/args.c @@ -147,11 +147,9 @@ get_command_argument_i4 (GFC_INTEGER_4 *number, char *value, if (value != NULL && stat_flag != GFC_GC_FAILURE) { if (arglen > value_len) - { - arglen = value_len; stat_flag = GFC_GC_VALUE_TOO_SHORT; - } - memcpy (value, argv[*number], arglen); + + memcpy (value, argv[*number], arglen <= value_len ? arglen : value_len); } if (length != NULL) |