From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sat, 5 Jun 2004 11:34:52 +0000 (+0200)
Subject: intrinsic.c (sort_actual): Keep track of type of missing arguments.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f9fed73b66238fc369fbaa06d5a6afca5bdbe1b8;p=gcc.git

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 75168d8e49d..66222838761 100644
--- 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 421302f7cc0..95e208f25dc 100644
--- 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;