From f5e9e99c8d49990706d1a1b80f5ea9e9db2a534a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Thu, 24 Feb 2005 14:01:44 +0100 Subject: Revert yesterday's patch: 2005-02-23 Tobias Schl"uter * gfortran.h (gfc_component, gfc_actual_arglist, ... ... argument. Copy string instead of pointing to it. From-SVN: r95496 --- gcc/fortran/primary.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/fortran/primary.c') diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index f3c51ab..f122779 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1273,7 +1273,7 @@ match_keyword_arg (gfc_actual_arglist * actual, gfc_actual_arglist * base) if (name[0] != '\0') { for (a = base; a; a = a->next) - if (a->name != NULL && strcmp (a->name, name) == 0) + if (strcmp (a->name, name) == 0) { gfc_error ("Keyword '%s' at %C has already appeared in the current " @@ -1282,7 +1282,7 @@ match_keyword_arg (gfc_actual_arglist * actual, gfc_actual_arglist * base) } } - actual->name = gfc_get_string (name); + strcpy (actual->name, name); return MATCH_YES; cleanup: -- cgit v1.1