foreach_in_coll obj [get_flat_pins -hier -filter "direction == in" ] {
    set j_net [get_flat_nets -of $obj ]
    set j_all_direction [get_attr [get_flat_pins -of $j_net ] direction ]
    if { ! [regexp out $j_all_direction ] && ! [regexp PORT [get_object_name $obj ] ]} {
        puts "Error: this pin is floating:"
        puts [get_object_name $obj ]
    }
}