re PR fortran/18111 (spurious warnings with -W -Wunused)

        PR fortran/18111
        *  trans-decl.c (create_function_arglist): Set DECL_ARTIFICIAL for
        hidden parameters.

From-SVN: r90136

gcc/fortran/ChangeLog

 2004-11-05  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
+	PR fortran/18111
+	*  trans-decl.c (create_function_arglist): Set DECL_ARTIFICIAL for
+	hidden parameters.
+
+2004-11-05  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
 	PR fortran/15164
 	* trans-decl.c (gfc_finish_var_decl): Don't declare arguments to
 	module procedures as if they were module variables.

gcc/fortran/trans-decl.c

@@ -1135,6 +1135,7 @@ create_function_arglist (gfc_symbol * sym)
       DECL_CONTEXT (parm) = fndecl;
       DECL_ARG_TYPE (parm) = type;
       TREE_READONLY (parm) = 1;
+      DECL_ARTIFICIAL (parm) = 1;
       gfc_finish_decl (parm, NULL_TREE);
 
       arglist = chainon (arglist, parm);
@@ -1162,6 +1163,7 @@ create_function_arglist (gfc_symbol * sym)
 	  DECL_CONTEXT (length) = fndecl;
 	  DECL_ARG_TYPE (length) = type;
 	  TREE_READONLY (length) = 1;
+	  DECL_ARTIFICIAL (length) = 1;
 	  gfc_finish_decl (length, NULL_TREE);
 	}
     }
@@ -1216,6 +1218,7 @@ create_function_arglist (gfc_symbol * sym)
 
       arglist = chainon (arglist, length);
       DECL_CONTEXT (length) = fndecl;
+      DECL_ARTIFICIAL (length) = 1;
       DECL_ARG_TYPE (length) = type;
       TREE_READONLY (length) = 1;
       gfc_finish_decl (length, NULL_TREE);