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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 88acec982df3e17a2826d02ca00ade5505457512..fd89142a2f6c7b3005eb6900fee95fa2374fe365 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index c3e2bf0c5031f83a453d5633a965217dcbaab009..31ed219bfcc679dd83636bd4ba9d257d3a737dab 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/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);