Index: gcc/fortran/match.c
===================================================================
--- gcc/fortran/match.c	(revision 201034)
+++ gcc/fortran/match.c	(working copy)
@@ -4188,7 +4188,10 @@
   i = 0;
   for (a = arglist; a; a = a->next)
     if (a->expr == NULL)
-      i = 1;
+      {
+	i = 1;
+	break;
+      }
 
   if (i)
     {