gcc/fortran:

[pf3gnuchains/gcc-fork.git] / gcc / tree-ssa-alias-warnings.c

diff --git a/gcc/tree-ssa-alias-warnings.c b/gcc/tree-ssa-alias-warnings.c
index 4f83de4..795a7c0 100644 (file)
--- a/gcc/tree-ssa-alias-warnings.c
+++ b/gcc/tree-ssa-alias-warnings.c
@@ -635,7 +635,7 @@ ffan_walker (tree *t,
              int *go_below ATTRIBUTE_UNUSED,
              void *data ATTRIBUTE_UNUSED)
 {
-  if (DECL_P (*t) && DECL_ARTIFICIAL (*t))
+  if (DECL_P (*t) && !MTAG_P (*t) && DECL_ARTIFICIAL (*t))
     return *t;
   else
     return NULL_TREE;