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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134918 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 9029fc0..de9c781 100644 (file)
--- 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 0d76926..136b751 100644 (file)
--- 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 */