4430 verify_bind_c_derived_type (gfc_symbol *derived_sym)  in verify_bind_c_derived_type()  argument
4436   if (derived_sym == NULL)  in verify_bind_c_derived_type()
4442   if (derived_sym->ts.is_c_interop)  in verify_bind_c_derived_type()
4447   if (derived_sym->attr.is_bind_c != 1)  in verify_bind_c_derived_type()
4449       derived_sym->ts.is_c_interop = 0;  in verify_bind_c_derived_type()
4451                      "attribute to be C interoperable", derived_sym->name,  in verify_bind_c_derived_type()
4452                      &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4456   curr_comp = derived_sym->components;  in verify_bind_c_derived_type()
4470 		   derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4471       derived_sym->ts.is_c_interop = 1;  in verify_bind_c_derived_type()
4472       derived_sym->attr.is_bind_c = 1;  in verify_bind_c_derived_type()
4479   derived_sym->ts.is_c_interop = 1;  in verify_bind_c_derived_type()
4493                      derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4501 		     &curr_comp->loc, derived_sym->name,  in verify_bind_c_derived_type()
4502 		     &derived_sym->declared_at);  in verify_bind_c_derived_type()
4514                      derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4521           && curr_comp->ts.u.derived != derived_sym)  in verify_bind_c_derived_type()
4545 	      if (derived_sym->attr.is_bind_c == 1 && warn_c_binding_type)  in verify_bind_c_derived_type()
4552                              curr_comp->name, derived_sym->name,  in verify_bind_c_derived_type()
4553                              &(curr_comp->loc), derived_sym->name);  in verify_bind_c_derived_type()
4561                              curr_comp->name, derived_sym->name,  in verify_bind_c_derived_type()
4571   if (derived_sym->attr.access == ACCESS_PRIVATE)  in verify_bind_c_derived_type()
4574                  "PRIVATE and BIND(C) attributes", derived_sym->name,  in verify_bind_c_derived_type()
4575                  &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4579   if (derived_sym->attr.sequence != 0)  in verify_bind_c_derived_type()
4582                  "attribute because it is BIND(C)", derived_sym->name,  in verify_bind_c_derived_type()
4583                  &(derived_sym->declared_at));  in verify_bind_c_derived_type()
4591     derived_sym->ts.is_c_interop = 0;  in verify_bind_c_derived_type()