+#ifdef FORT
+/* perform some implicit conversions XXX SHOULD FIX f77 FRONT END */
+OPFLOAT, INAREG|INTAREG|FORCC,
+ SAREG|AWD, TFLOAT,
+ SAREG|AWD, TDOUBLE,
+ NAREG|NASL, RESC1|RESCC,
+ " cvtfd AL,A1\n OD2 AR,A1\n",
+
+OPFLOAT, INAREG|INTAREG|FORCC,
+ SAREG|AWD, TDOUBLE,
+ SAREG|AWD, TFLOAT,
+ NAREG|NASR, RESC1|RESCC,
+ " cvtfd AR,A1\n OD3 A1,AL,A1\n",
+#endif
+