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

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
ed54a884 · Janus Weil · Jerry DeLisle · 8f85525e · ed54a884 · ed54a884
Commit ed54a884 authored May 03, 2008 by Janus Weil Committed by Jerry DeLisle May 03, 2008
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

gcc/fortran/ChangeLog
+4 -0

gcc/fortran/misc.c
+1 -0

No files found.
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
+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

--- 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 */