From ed54a884c35d46088dfa4a8092ce1f8579749eda Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Sat, 3 May 2008 20:37:48 +0000 Subject: [PATCH] misc.c (gfc_clear_ts): Set interface to NULL. 2008-05-03 Janus Weil * misc.c (gfc_clear_ts): Set interface to NULL. From-SVN: r134918 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/misc.c | 1 + 2 files changed, 5 insertions(+) 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 + + * misc.c (gfc_clear_ts): Set interface to NULL. + 2008-05-03 Jerry DeLisle 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 */ -- 2.30.2