libgfortran/io/format.c

66       if (u->format_hash_table[i].hashed_fmt != NULL)
68 	  free_format_data (u->format_hash_table[i].hashed_fmt);
69 	  free (u->format_hash_table[i].key);
71       u->format_hash_table[i].key = NULL;
72       u->format_hash_table[i].key_len = 0;
73       u->format_hash_table[i].hashed_fmt = NULL;
145   if (u->format_hash_table[hash].hashed_fmt != NULL)
146     free_format_data (u->format_hash_table[hash].hashed_fmt);
147   u->format_hash_table[hash].hashed_fmt = NULL;
149   free (u->format_hash_table[hash].key);
150   u->format_hash_table[hash].key = dtp->format;
152   u->format_hash_table[hash].key_len = dtp->format_len;
153   u->format_hash_table[hash].hashed_fmt = dtp->u.p.fmt;
166   if (u->format_hash_table[hash].key != NULL)
169       if (u->format_hash_table[hash].key_len == dtp->format_len)
172 	  if (strncmp (u->format_hash_table[hash].key,
174 	    return u->format_hash_table[hash].hashed_fmt;
1352      Also, the format_hash_table resides in the current_unit, so