I understand that Spain borders Andorra, France, Gibraltar, and Portugal.
But regarding Morocco, has someone neglected to notice the Strait of Gibraltar?
It's a rather wet drive, don't you think?
I couldn't figure out where to post this, so I settled on Augmented Reality. ;-}
In[270]:= CountryData["Spain", "BorderingCountries"]
Out[270]= {"Andorra", "France", "Gibraltar", "Morocco", "Portugal"}