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 9029fc0e622a3df2d903a0338de0946ce1fdceb6..de9c781ad3c6031e4370f1f11f4582fb5555ed0c 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 0d76926b267a87e295e069c972471d3d40f39177..136b751a196adaa77d196397aa205eab20e67e12 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 */