intrinsic.c (sort_actual): Keep track of type of missing arguments.

	* intrinsic.c (sort_actual): Keep track of type of missing
	arguments. (Missing from previous commit.)

From-SVN: r82645

gcc/fortran/ChangeLog

+2004-06-05  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* intrinsic.c (sort_actual): Keep track of type of missing 
+	arguments. (Missing from previous commit.)
+
 2004-06-03  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	* gfortran.h (gfc_actual_arglist): New field missing_arg_type.

gcc/fortran/intrinsic.c

@@ -1959,7 +1959,13 @@ do_sort:
 
   for (f = formal; f; f = f->next)
     {
-      a = (f->actual == NULL) ? gfc_get_actual_arglist () : f->actual;
+      if (f->actual == NULL)
+	{
+	  a = gfc_get_actual_arglist ();
+	  a->missing_arg_type = f->ts.type;
+	}
+      else
+	a = f->actual;
 
       if (actual == NULL)
 	*ap = a;