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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 75168d8e49dc29497fef1de390a969be9de27bc4..6622283876105fcb5e83ed8e20972b18acbfc06d 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index 421302f7cc0e30aaebff34a32eadd274ad89e6b3..95e208f25dc41db0d37c3c2cc19533e38a280682 100644 (file)
--- a/gcc/fortran/intrinsic.c
+++ b/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;