diff options
Diffstat (limited to 'gcc/f/com.c')
| -rw-r--r-- | gcc/f/com.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c index 286d0c7..4f52428 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -12351,10 +12351,11 @@ ffecom_init_0 () fatal ("no INTEGER type can hold a pointer on this configuration"); else if (0 && ffe_is_do_internal_checks ()) fprintf (stderr, "Pointer type kt=%d\n", ffecom_pointer_kind_); - type = ffetype_new (); ffetype_set_kind (ffeinfo_type (FFEINFO_basictypeINTEGER, FFEINFO_kindtypeINTEGERDEFAULT), - 7, type); + 7, + ffeinfo_type (FFEINFO_basictypeINTEGER, + ffecom_pointer_kind_)); if (ffe_is_ugly_assign ()) ffecom_label_kind_ = ffecom_pointer_kind_; /* Require ASSIGN etc to this. */ |