In function parse_font_matrix(), make sure that the units per em value

src/type1/t1load.c

@@ -894,8 +894,9 @@
     /* Set Units per EM based on FontMatrix values. We set the value to */
     /* 1000 / temp_scale, because temp_scale was already multiplied by  */
     /* 1000 (in t1_tofixed, from psobjs.c).                             */
-    root->units_per_EM = (FT_UShort)FT_DivFix( 0x10000L,
-                                               FT_DivFix( temp_scale, 1000 ) );
+
+    root->units_per_EM = (FT_UShort)( FT_DivFix( 0x10000L,
+                                      FT_DivFix( temp_scale, 1000 ) ) >> 16 );
 
     /* we need to scale the values by 1.0/temp_scale */
     if ( temp_scale != 0x10000L )