4136 verify_bind_c_derived_type (gfc_symbol *derived_sym)  in verify_bind_c_derived_type()  argument
4142   if (derived_sym == NULL)  in verify_bind_c_derived_type()
4148   if (derived_sym->ts.is_c_interop)  in verify_bind_c_derived_type()
4153   if (derived_sym->attr.is_bind_c != 1)  in verify_bind_c_derived_type()
4155       derived_sym->ts.is_c_interop = 0;  in verify_bind_c_derived_type()
4157                      "attribute to be C interoperable", derived_sym->name,  in verify_bind_c_derived_type()
4158                      &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4162   curr_comp = derived_sym->components;  in verify_bind_c_derived_type()
4176 		   derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4177       derived_sym->ts.is_c_interop = 1;  in verify_bind_c_derived_type()
4178       derived_sym->attr.is_bind_c = 1;  in verify_bind_c_derived_type()
4185   derived_sym->ts.is_c_interop = 1;  in verify_bind_c_derived_type()
4199                      derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4207 		     &curr_comp->loc, derived_sym->name,  in verify_bind_c_derived_type()
4208 		     &derived_sym->declared_at);  in verify_bind_c_derived_type()
4220                      derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4227           && curr_comp->ts.u.derived != derived_sym)  in verify_bind_c_derived_type()
4251 	      if (derived_sym->attr.is_bind_c == 1 && warn_c_binding_type)  in verify_bind_c_derived_type()
4258                              curr_comp->name, derived_sym->name,  in verify_bind_c_derived_type()
4259                              &(curr_comp->loc), derived_sym->name);  in verify_bind_c_derived_type()
4267                              curr_comp->name, derived_sym->name,  in verify_bind_c_derived_type()
4277   if (derived_sym->attr.access == ACCESS_PRIVATE)  in verify_bind_c_derived_type()
4280                  "PRIVATE and BIND(C) attributes", derived_sym->name,  in verify_bind_c_derived_type()
4281                  &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4285   if (derived_sym->attr.sequence != 0)  in verify_bind_c_derived_type()
4288                  "attribute because it is BIND(C)", derived_sym->name,  in verify_bind_c_derived_type()
4289                  &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4297     derived_sym->ts.is_c_interop = 0;  in verify_bind_c_derived_type()