graphics – Combine with ColumnRow a square and a parallelogram

g1 = graphics[{EdgeForm[{Thick, Blue}], FaceForm[], Rectangle[]}
Image size -> {400, 400}];

g2 = graphics[{{EdgeForm[{Dashed, Blue}], FaceForm[], Rectangle[]}
Geometric transformation[{EdgeForm[{Thick, Blue}], FaceForm[],
Rectangle[]}, ShearingMatrix[30 Degree, {1, 0}, {0, 1}]]}
Image size -> {400, 400}];

But when I use GraphicsRow or Grid both graphs appear with different sizes:

GraphicsRow[{g1, g2}]

Grid[{g1, g2}]

I guess this is trivial but I can not find a way for both graphics to appear with the same size.