3773 verify_bind_c_derived_type (gfc_symbol *derived_sym)  in verify_bind_c_derived_type()  argument
3779   if (derived_sym == NULL)  in verify_bind_c_derived_type()
3785   if (derived_sym->ts.is_c_interop)  in verify_bind_c_derived_type()
3790   if (derived_sym->attr.is_bind_c != 1)  in verify_bind_c_derived_type()
3792       derived_sym->ts.is_c_interop = 0;  in verify_bind_c_derived_type()
3794                      "attribute to be C interoperable", derived_sym->name,  in verify_bind_c_derived_type()
3795                      &(derived_sym->declared_at));  in verify_bind_c_derived_type()
3799   curr_comp = derived_sym->components;  in verify_bind_c_derived_type()
3813 		   derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
3814       derived_sym->ts.is_c_interop = 1;  in verify_bind_c_derived_type()
3815       derived_sym->attr.is_bind_c = 1;  in verify_bind_c_derived_type()
3822   derived_sym->ts.is_c_interop = 1;  in verify_bind_c_derived_type()
3836                      derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
3844 		     &curr_comp->loc, derived_sym->name,  in verify_bind_c_derived_type()
3845 		     &derived_sym->declared_at);  in verify_bind_c_derived_type()
3857                      derived_sym->name, &(derived_sym->declared_at));  in verify_bind_c_derived_type()
3864           && curr_comp->ts.u.derived != derived_sym)  in verify_bind_c_derived_type()
3888 	      if (derived_sym->attr.is_bind_c == 1  in verify_bind_c_derived_type()
3895                              curr_comp->name, derived_sym->name,  in verify_bind_c_derived_type()
3896                              &(curr_comp->loc), derived_sym->name);  in verify_bind_c_derived_type()
3903                              curr_comp->name, derived_sym->name,  in verify_bind_c_derived_type()
3913   if (derived_sym->attr.access == ACCESS_PRIVATE)  in verify_bind_c_derived_type()
3916                  "PRIVATE and BIND(C) attributes", derived_sym->name,  in verify_bind_c_derived_type()
3917                  &(derived_sym->declared_at));  in verify_bind_c_derived_type()
3921   if (derived_sym->attr.sequence != 0)  in verify_bind_c_derived_type()
3924                  "attribute because it is BIND(C)", derived_sym->name,  in verify_bind_c_derived_type()
3925                  &(derived_sym->declared_at));  in verify_bind_c_derived_type()
3933     derived_sym->ts.is_c_interop = 0;  in verify_bind_c_derived_type()