diff options
| author | Janus Weil <jaydub66@gmail.com> | 2008-05-03 20:37:48 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-05-03 20:37:48 +0000 |
| commit | ed54a884c35d46088dfa4a8092ce1f8579749eda (patch) | |
| tree | f5c22670411755688fa7b3747fccf7eb8244be41 /gcc/fortran/misc.c | |
| parent | 8f85525e4102574486728caf5e5aa3d91ab101e1 (diff) | |
| download | gcc-ed54a884c35d46088dfa4a8092ce1f8579749eda.zip gcc-ed54a884c35d46088dfa4a8092ce1f8579749eda.tar.gz gcc-ed54a884c35d46088dfa4a8092ce1f8579749eda.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/misc.c')
| -rw-r--r-- | gcc/fortran/misc.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c index 0d76926..136b751 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 */ |