X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=gcc%2Ffortran%2Ftrans-decl.c;h=c523a5c575cf144904738a5bf91c24f3a15104b0;hp=e24390bbb8d88592869bc4ab07aa66fe7b26213d;hb=0826251092361171d72575cd36d4578e22cf9e9e;hpb=4a67dea4cad9a5713bf221208faa30eaf97e614d

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index e24390bbb8d..c523a5c575c 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -3872,10 +3872,14 @@ generate_local_decl (gfc_symbol * sym)
 	       && sym->attr.dummy
 	       && sym->attr.intent == INTENT_OUT)
 	{
-	  if (!(sym->ts.type == BT_DERIVED
-		&& sym->ts.u.derived->components->initializer))
+	  if (sym->ts.type != BT_DERIVED)
 	    gfc_warning ("Dummy argument '%s' at %L was declared INTENT(OUT) "
 		         "but was not set",  sym->name, &sym->declared_at);
+	  else if (!gfc_has_default_initializer (sym->ts.u.derived))
+	    gfc_warning ("Derived-type dummy argument '%s' at %L was "
+			 "declared INTENT(OUT) but was not set and does "
+			 "not have a default initializer",
+			 sym->name, &sym->declared_at);
 	}
       /* Specific warning for unused dummy arguments. */
       else if (warn_unused_variable && sym->attr.dummy)