From: Janus Weil <jaydub66@gmail.com>
Date: Sat, 3 May 2008 20:37:48 +0000 (+0000)
Subject: misc.c (gfc_clear_ts): Set interface to NULL.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ed54a884c35d46088dfa4a8092ce1f8579749eda;p=gcc.git

misc.c (gfc_clear_ts): Set interface to NULL.

2008-05-03  Janus Weil  <jaydub66@gmail.com>

	* misc.c (gfc_clear_ts): Set interface to NULL.

From-SVN: r134918
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9029fc0e622..de9c781ad3c 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-05-03  Janus Weil  <jaydub66@gmail.com>
+
+	* misc.c (gfc_clear_ts): Set interface to NULL.
+
 2008-05-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR fortran/33268
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c
index 0d76926b267..136b751a196 100644
--- a/gcc/fortran/misc.c
+++ b/gcc/fortran/misc.c
@@ -77,6 +77,7 @@ gfc_clear_ts (gfc_typespec *ts)
   ts->derived = NULL;
   ts->kind = 0;
   ts->cl = NULL;
+  ts->interface = NULL;
   /* flag that says if the type is C interoperable */
   ts->is_c_interop = 0;
   /* says what f90 type the C kind interops with */