--- libf95.a-0.93/math/x87.S.orig	2010-04-05 03:49:02.000000000 +0900
+++ libf95.a-0.93/math/x87.S	2017-07-16 16:01:49.000000000 +0900
@@ -1,7 +1,7 @@
-
+/*
 ## Some of the code here is transliterated from the x87 glibc code
 ## originally written by J.T. Conklin and Ulrich Drepper.
-
+*/
 
 
 #if HAVE_REAL_10 == 3
@@ -250,7 +250,7 @@
 	fldcw	(SP)
 	frndint
 	fldcw	4(SP)
-	fistp	(SP)
+	fistps	(SP)
 	mov	(SP), %al
 	SIGNX_AL
 	add	$8, SP
@@ -266,7 +266,7 @@
 	fldcw	(SP)
 	frndint
 	fldcw	4(SP)
-	fistp	(SP)
+	fistps	(SP)
 	mov	(SP), %ax
 	SIGNX_AX
 	add	$8, SP
@@ -675,7 +675,7 @@
 	fldcw	(SP)
 	frndint
 	fldcw	4(SP)
-	fistp	(SP)
+	fistps	(SP)
 	mov	(SP), %al
 	SIGNX_AL
 	add	$8, SP
@@ -691,7 +691,7 @@
 	fldcw	(SP)
 	frndint
 	fldcw	4(SP)
-	fistp	(SP)
+	fistps	(SP)
 	mov	(SP), %ax
 	SIGNX_AX
 	add	$8, SP
@@ -833,7 +833,7 @@
 	frndint
 	fldcw	4(SP)
 
-	fistp	(SP)
+	fistps	(SP)
 	movb	(SP), %al
 	SIGNX_AL
 	add	$8, SP
@@ -861,7 +861,7 @@
 	frndint
 	fldcw	4(SP)
 
-	fistp	(SP)
+	fistps	(SP)
 	movw	(SP), %ax
 	SIGNX_AX
 	add	$8, SP
