diff options
| author | Richard Henderson <rth@cygnus.com> | 1997-12-15 09:34:23 -0800 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 1997-12-15 09:34:23 -0800 |
| commit | 395928138cbdf6b80483edf48aea674efa29599b (patch) | |
| tree | 2a71736ab75324687b8e3db47c7a4c876e1fc026 /gcc | |
| parent | 296f8acc114ca58d70b6cd2dc0cd9c3ad264cdd1 (diff) | |
| download | gcc-395928138cbdf6b80483edf48aea674efa29599b.zip gcc-395928138cbdf6b80483edf48aea674efa29599b.tar.gz gcc-395928138cbdf6b80483edf48aea674efa29599b.tar.bz2 | |
* com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'.
From-SVN: r17102
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/f/ChangeLog.egcs | 4 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs index c29f572..e491107 100644 --- a/gcc/f/ChangeLog.egcs +++ b/gcc/f/ChangeLog.egcs @@ -1,3 +1,7 @@ +Mon Dec 15 17:35:35 1997 Richard Henderson <rth@cygnus.com> + + * com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'. + Tue Dec 2 09:57:16 1997 Jeffrey A Law (law@cygnus.com) * Make-lang.in (f77.clean): Remove g77.c. diff --git a/gcc/f/com.c b/gcc/f/com.c index 99fbcc3..bf77e51 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -9921,7 +9921,7 @@ ffecom_type_vardesc_ () addrfield = ffecom_decl_field (type, namefield, "addr", string_type_node); dimsfield = ffecom_decl_field (type, addrfield, "dims", - ffecom_f2c_ftnlen_type_node); + ffecom_f2c_ptr_to_ftnlen_type_node); typefield = ffecom_decl_field (type, dimsfield, "type", integer_type_node); |