Fix SecurityGroupInUse error

This commit deletes port when an instance can not be created due to cpu
cores quota error.

Author: hidekazuna

pkg/cloud/services/compute/instance.go

@@ -244,6 +244,9 @@ func (s *Service) createInstance(clusterName string, i *infrav1.Instance) (*infr
 		KeyName:           i.SSHKeyName,
 	}).Extract()
 	if err != nil {
+		if errd := deletePorts(s, portsList); errd != nil {
+			return nil, fmt.Errorf("error recover creating Openstack instance: %v", errd)
+		}
 		return nil, fmt.Errorf("error creating Openstack instance: %v", err)
 	}
 	instanceCreateTimeout := getTimeout("CLUSTER_API_OPENSTACK_INSTANCE_CREATE_TIMEOUT", TimeoutInstanceCreate)
@@ -481,6 +484,22 @@ func createPort(is *Service, clusterName string, name string, net *infrav1.Netwo
 	return *newPort, nil
 }
 
+func deletePorts(s *Service, nets []servers.Network) error {
+
+	for _, n := range nets {
+		_, err := ports.Get(s.networkClient, n.Port).Extract()
+		if err != nil {
+			if capoerrors.IsNotFound(err) {
+				return nil
+			}
+		}
+		if err := ports.Delete(s.networkClient, n.Port).ExtractErr(); err != nil {
+			return err
+		}
+	}
+	return nil
+}
+
 // Helper function for getting image ID from name
 func getImageID(is *Service, imageName string) (string, error) {
 	if imageName == "" {