546 ffebad ffetarget_concatenate_character1 (ffetargetCharacter1 *res,
551 ffebad ffetarget_convert_character1_character1 (ffetargetCharacter1 *res,
555 ffebad ffetarget_convert_character1_hollerith (ffetargetCharacter1 *res,
559 ffebad ffetarget_convert_character1_integer4 (ffetargetCharacter1 *res,
563 ffebad ffetarget_convert_character1_logical4 (ffetargetCharacter1 *res,
567 ffebad ffetarget_convert_character1_typeless (ffetargetCharacter1 *res,
571 ffebad ffetarget_eq_character1 (bool *res, ffetargetCharacter1 l,
573 ffebad ffetarget_le_character1 (bool *res, ffetargetCharacter1 l,
575 ffebad ffetarget_ge_character1 (bool *res, ffetargetCharacter1 l,
577 ffebad ffetarget_gt_character1 (bool *res, ffetargetCharacter1 l,
579 ffebad ffetarget_lt_character1 (bool *res, ffetargetCharacter1 l,
581 ffebad ffetarget_ne_character1 (bool *res, ffetargetCharacter1 l,
583 ffebad ffetarget_substr_character1 (ffetargetCharacter1 *res,
594 ffebad ffetarget_convert_any_character1_ (char *res, size_t size,
596 ffebad ffetarget_convert_any_hollerith_ (char *res, size_t size,
598 ffebad ffetarget_convert_any_typeless_ (char *res, size_t size,
601 ffebad ffetarget_divide_complex1 (ffetargetComplex1 *res, ffetargetComplex1 l,
605 ffebad ffetarget_divide_complex2 (ffetargetComplex2 *res, ffetargetComplex2 l,
609 ffebad ffetarget_divide_complex3 (ffetargetComplex3 *res, ffetargetComplex3 l,
613 ffebad ffetarget_divide_complex4 (ffetargetComplex4 *res, ffetargetComplex4 l,
617 ffebad ffetarget_divide_complex5 (ffetargetComplex5 *res, ffetargetComplex5 l,
621 ffebad ffetarget_divide_complex6 (ffetargetComplex6 *res, ffetargetComplex6 l,
625 ffebad ffetarget_divide_complex7 (ffetargetComplex7 *res, ffetargetComplex7 l,
629 ffebad ffetarget_divide_complex8 (ffetargetComplex8 *res, ffetargetComplex8 l,
680 ffebad ffetarget_multiply_complex1 (ffetargetComplex1 *res,
685 ffebad ffetarget_multiply_complex2 (ffetargetComplex2 *res,
690 ffebad ffetarget_multiply_complex3 (ffetargetComplex3 *res,
695 ffebad ffetarget_multiply_complex4 (ffetargetComplex4 *res,
700 ffebad ffetarget_multiply_complex5 (ffetargetComplex5 *res,
705 ffebad ffetarget_multiply_complex6 (ffetargetComplex6 *res,
710 ffebad ffetarget_multiply_complex7 (ffetargetComplex7 *res,
715 ffebad ffetarget_multiply_complex8 (ffetargetComplex8 *res,
719 ffebad ffetarget_power_complexdefault_integerdefault (ffetargetComplexDefault *res,
723 ffebad ffetarget_power_complexdouble_integerdefault (ffetargetComplexDouble *res,
727 ffebad ffetarget_power_integerdefault_integerdefault (ffetargetIntegerDefault *res,
730 ffebad ffetarget_power_realdefault_integerdefault (ffetargetRealDefault *res,
733 ffebad ffetarget_power_realdouble_integerdefault (ffetargetRealDouble *res,
802 #define ffetarget_add_complex1(res,l,r) \  argument
810      ffetarget_cvt_rv_to_r1_ (resr, (res)->real); \
811      ffetarget_cvt_rv_to_r1_ (resi, (res)->imaginary); \
813 #define ffetarget_add_complex2(res,l,r) \  argument
821      ffetarget_cvt_rv_to_r2_ (resr, &((res)->real.v[0])); \
822      ffetarget_cvt_rv_to_r2_ (resi, &((res)->imaginary.v[0])); \
824 #define ffetarget_add_integer1(res,l,r) (*(res) = (l) + (r), FFEBAD)  argument
825 #define ffetarget_add_integer2(res,l,r) (*(res) = (l) + (r), FFEBAD)  argument
826 #define ffetarget_add_integer3(res,l,r) (*(res) = (l) + (r), FFEBAD)  argument
827 #define ffetarget_add_integer4(res,l,r) (*(res) = (l) + (r), FFEBAD)  argument
828 #define ffetarget_add_real1(res,l,r) \  argument
833      ffetarget_cvt_rv_to_r1_ (resr, *(res)); \
835 #define ffetarget_add_real2(res,l,r) \  argument
840      ffetarget_cvt_rv_to_r2_ (resr, &((res)->v[0])); \
844 #define ffetarget_and_integer1(res,l,r) (*(res) = (l) & (r), FFEBAD)  argument
845 #define ffetarget_and_integer2(res,l,r) (*(res) = (l) & (r), FFEBAD)  argument
846 #define ffetarget_and_integer3(res,l,r) (*(res) = (l) & (r), FFEBAD)  argument
847 #define ffetarget_and_integer4(res,l,r) (*(res) = (l) & (r), FFEBAD)  argument
848 #define ffetarget_and_logical1(res,l,r) (*(res) = (l) && (r), FFEBAD)  argument
849 #define ffetarget_and_logical2(res,l,r) (*(res) = (l) && (r), FFEBAD)  argument
850 #define ffetarget_and_logical3(res,l,r) (*(res) = (l) && (r), FFEBAD)  argument
851 #define ffetarget_and_logical4(res,l,r) (*(res) = (l) && (r), FFEBAD)  argument
867 #define ffetarget_convert_character1_integer1(res,res_size,l,pool) \  argument
868         ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)
869 #define ffetarget_convert_character1_integer2(res,res_size,l,pool) \  argument
870         ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)
871 #define ffetarget_convert_character1_integer3(res,res_size,l,pool) \  argument
872         ffetarget_convert_character1_integer4(res,res_size,(ffetargetInteger4)l,pool)
873 #define ffetarget_convert_character1_logical1(res,res_size,l,pool) \  argument
874         ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)
875 #define ffetarget_convert_character1_logical2(res,res_size,l,pool) \  argument
876         ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)
877 #define ffetarget_convert_character1_logical3(res,res_size,l,pool) \  argument
878         ffetarget_convert_character1_logical4(res,res_size,(ffetargetLogical4)l,pool)
879 #define ffetarget_convert_complex1_character1(res,l) \  argument
880   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
881 #define ffetarget_convert_complex1_hollerith(res,l) \  argument
882   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
883 #define ffetarget_convert_complex1_typeless(res,l) \  argument
884   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
885 #define ffetarget_convert_complex1_complex2(res,l) \  argument
889      ffetarget_cvt_rv_to_r1_ (lr, (res)->real); \
890      ffetarget_cvt_rv_to_r1_ (li, (res)->imaginary), \
892 #define ffetarget_convert_complex1_integer(res,l) \  argument
897      ffetarget_cvt_rv_to_r1_ (resr, (res)->real); \
898      ffetarget_cvt_rv_to_r1_ (resi, (res)->imaginary); \
903 #define ffetarget_convert_complex1_integer4(res,l) FFEBAD_NOCANDO  argument
904 #define ffetarget_convert_complex1_real1(res,l) \  argument
905   ((res)->real = (l), \
906    ffetarget_cvt_rv_to_r1_ (dconst0, (res)->imaginary), \
908 #define ffetarget_convert_complex1_real2(res,l) \  argument
911      ffetarget_cvt_rv_to_r1_ (lr, (res)->real); \
912      ffetarget_cvt_rv_to_r1_ (dconst0, (res)->imaginary), \
914 #define ffetarget_convert_complex2_character1(res,l) \  argument
915   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
916 #define ffetarget_convert_complex2_hollerith(res,l) \  argument
917   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
918 #define ffetarget_convert_complex2_typeless(res,l) \  argument
919   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
920 #define ffetarget_convert_complex2_complex1(res,l) \  argument
924      ffetarget_cvt_rv_to_r2_ (lr, &((res)->real.v[0])); \
925      ffetarget_cvt_rv_to_r2_ (li, &((res)->imaginary.v[0])), \
927 #define ffetarget_convert_complex2_integer(res,l) \  argument
932      ffetarget_cvt_rv_to_r2_ (resr, &((res)->real.v[0])); \
933      ffetarget_cvt_rv_to_r2_ (resi, &((res)->imaginary.v[0])); \
938 #define ffetarget_convert_complex2_integer4(res,l) FFEBAD_NOCANDO  argument
939 #define ffetarget_convert_complex2_real1(res,l) \  argument
942      ffetarget_cvt_rv_to_r2_ (lr, &((res)->real.v[0])); \
943      ffetarget_cvt_rv_to_r2_ (dconst0, &((res)->imaginary.v[0])), \
945 #define ffetarget_convert_complex2_real2(res,l) \  argument
946   ((res)->real = (l), \
947    ffetarget_cvt_rv_to_r2_ (dconst0, &((res)->imaginary.v[0])), \
949 #define ffetarget_convert_integer2_character1(res,l) \  argument
950         ffetarget_convert_integer1_character1(res,l)
951 #define ffetarget_convert_integer2_complex1(res,l) \  argument
952         ffetarget_convert_integer1_complex1(res,l)
953 #define ffetarget_convert_integer2_complex2(res,l) \  argument
954         ffetarget_convert_integer1_complex2(res,l)
955 #define ffetarget_convert_integer2_hollerith(res,l) \  argument
956         ffetarget_convert_integer1_hollerith(res,l)
957 #define ffetarget_convert_integer2_integer1(res,l) (*(res) = (l), FFEBAD)  argument
958 #define ffetarget_convert_integer2_integer3(res,l) (*(res) = (l), FFEBAD)  argument
959 #define ffetarget_convert_integer2_integer4(res,l) (*(res) = (l), FFEBAD)  argument
960 #define ffetarget_convert_integer2_logical1(res,l) \  argument
961         ffetarget_convert_integer1_logical1(res,l)
962 #define ffetarget_convert_integer2_logical2(res,l) \  argument
963         ffetarget_convert_integer2_logical1(res,l)
964 #define ffetarget_convert_integer2_logical3(res,l) \  argument
965         ffetarget_convert_integer2_logical1(res,l)
966 #define ffetarget_convert_integer2_logical4(res,l) \  argument
967         ffetarget_convert_integer2_logical1(res,l)
968 #define ffetarget_convert_integer2_real1(res,l) \  argument
969         ffetarget_convert_integer1_real1(res,l)
970 #define ffetarget_convert_integer2_real2(res,l) \  argument
971         ffetarget_convert_integer1_real2(res,l)
972 #define ffetarget_convert_integer2_typeless(res,l) \  argument
973         ffetarget_convert_integer1_typeless(res,l)
974 #define ffetarget_convert_integer3_character1(res,l) \  argument
975         ffetarget_convert_integer1_character1(res,l)
976 #define ffetarget_convert_integer3_complex1(res,l) \  argument
977         ffetarget_convert_integer1_complex1(res,l)
978 #define ffetarget_convert_integer3_complex2(res,l) \  argument
979         ffetarget_convert_integer1_complex2(res,l)
980 #define ffetarget_convert_integer3_hollerith(res,l) \  argument
981         ffetarget_convert_integer1_hollerith(res,l)
982 #define ffetarget_convert_integer3_integer1(res,l) (*(res) = (l), FFEBAD)  argument
983 #define ffetarget_convert_integer3_integer2(res,l) (*(res) = (l), FFEBAD)  argument
984 #define ffetarget_convert_integer3_integer4(res,l) (*(res) = (l), FFEBAD)  argument
985 #define ffetarget_convert_integer3_logical1(res,l) \  argument
986         ffetarget_convert_integer1_logical1(res,l)
987 #define ffetarget_convert_integer3_logical2(res,l) \  argument
988         ffetarget_convert_integer3_logical1(res,l)
989 #define ffetarget_convert_integer3_logical3(res,l) \  argument
990         ffetarget_convert_integer3_logical1(res,l)
991 #define ffetarget_convert_integer3_logical4(res,l) \  argument
992         ffetarget_convert_integer3_logical1(res,l)
993 #define ffetarget_convert_integer3_real1(res,l) \  argument
994         ffetarget_convert_integer1_real1(res,l)
995 #define ffetarget_convert_integer3_real2(res,l) \  argument
996         ffetarget_convert_integer1_real2(res,l)
997 #define ffetarget_convert_integer3_typeless(res,l) \  argument
998         ffetarget_convert_integer1_typeless(res,l)
999 #define ffetarget_convert_integer4_character1(res,l) \  argument
1000         ffetarget_convert_integer1_character1(res,l)
1001 #define ffetarget_convert_integer4_complex1(res,l) FFEBAD_NOCANDO  argument
1002 #define ffetarget_convert_integer4_complex2(res,l) FFEBAD_NOCANDO  argument
1003 #define ffetarget_convert_integer4_hollerith(res,l) \  argument
1004         ffetarget_convert_integer1_hollerith(res,l)
1005 #define ffetarget_convert_integer4_integer1(res,l) (*(res) = (l), FFEBAD)  argument
1006 #define ffetarget_convert_integer4_integer2(res,l) (*(res) = (l), FFEBAD)  argument
1007 #define ffetarget_convert_integer4_integer3(res,l) (*(res) = (l), FFEBAD)  argument
1008 #define ffetarget_convert_integer4_logical1(res,l) \  argument
1009         ffetarget_convert_integer1_logical1(res,l)
1010 #define ffetarget_convert_integer4_logical2(res,l) \  argument
1011         ffetarget_convert_integer1_logical1(res,l)
1012 #define ffetarget_convert_integer4_logical3(res,l) \  argument
1013         ffetarget_convert_integer1_logical1(res,l)
1014 #define ffetarget_convert_integer4_logical4(res,l) \  argument
1015         ffetarget_convert_integer1_logical1(res,l)
1016 #define ffetarget_convert_integer4_real1(res,l) FFEBAD_NOCANDO  argument
1017 #define ffetarget_convert_integer4_real2(res,l) FFEBAD_NOCANDO  argument
1018 #define ffetarget_convert_integer4_typeless(res,l) \  argument
1019         ffetarget_convert_integer1_typeless(res,l)
1020 #define ffetarget_convert_logical1_character1(res,l) \  argument
1021   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
1022 #define ffetarget_convert_logical1_hollerith(res,l) \  argument
1023   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
1024 #define ffetarget_convert_logical1_typeless(res,l) \  argument
1025   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
1026 #define ffetarget_convert_logical1_logical2(res,l) (*(res) = (l), FFEBAD)  argument
1027 #define ffetarget_convert_logical1_logical3(res,l) (*(res) = (l), FFEBAD)  argument
1028 #define ffetarget_convert_logical1_logical4(res,l) (*(res) = (l), FFEBAD)  argument
1029 #define ffetarget_convert_logical1_integer1(res,l) (*(res) = (l), FFEBAD)  argument
1030 #define ffetarget_convert_logical1_integer2(res,l) (*(res) = (l), FFEBAD)  argument
1031 #define ffetarget_convert_logical1_integer3(res,l) (*(res) = (l), FFEBAD)  argument
1032 #define ffetarget_convert_logical1_integer4(res,l) (*(res) = (l), FFEBAD)  argument
1033 #define ffetarget_convert_logical2_character1(res,l) \  argument
1034   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
1035 #define ffetarget_convert_logical2_hollerith(res,l) \  argument
1036   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
1037 #define ffetarget_convert_logical2_typeless(res,l) \  argument
1038   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
1039 #define ffetarget_convert_logical2_logical1(res,l) (*(res) = (l), FFEBAD)  argument
1040 #define ffetarget_convert_logical2_logical3(res,l) (*(res) = (l), FFEBAD)  argument
1041 #define ffetarget_convert_logical2_logical4(res,l) (*(res) = (l), FFEBAD)  argument
1042 #define ffetarget_convert_logical2_integer1(res,l) (*(res) = (l), FFEBAD)  argument
1043 #define ffetarget_convert_logical2_integer2(res,l) (*(res) = (l), FFEBAD)  argument
1044 #define ffetarget_convert_logical2_integer3(res,l) (*(res) = (l), FFEBAD)  argument
1045 #define ffetarget_convert_logical2_integer4(res,l) (*(res) = (l), FFEBAD)  argument
1046 #define ffetarget_convert_logical3_character1(res,l) \  argument
1047   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
1048 #define ffetarget_convert_logical3_hollerith(res,l) \  argument
1049   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
1050 #define ffetarget_convert_logical3_typeless(res,l) \  argument
1051   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
1052 #define ffetarget_convert_logical3_logical1(res,l) (*(res) = (l), FFEBAD)  argument
1053 #define ffetarget_convert_logical3_logical2(res,l) (*(res) = (l), FFEBAD)  argument
1054 #define ffetarget_convert_logical3_logical4(res,l) (*(res) = (l), FFEBAD)  argument
1055 #define ffetarget_convert_logical3_integer1(res,l) (*(res) = (l), FFEBAD)  argument
1056 #define ffetarget_convert_logical3_integer2(res,l) (*(res) = (l), FFEBAD)  argument
1057 #define ffetarget_convert_logical3_integer3(res,l) (*(res) = (l), FFEBAD)  argument
1058 #define ffetarget_convert_logical3_integer4(res,l) (*(res) = (l), FFEBAD)  argument
1059 #define ffetarget_convert_logical4_character1(res,l) \  argument
1060   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
1061 #define ffetarget_convert_logical4_hollerith(res,l) \  argument
1062   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
1063 #define ffetarget_convert_logical4_typeless(res,l) \  argument
1064   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
1065 #define ffetarget_convert_logical4_logical1(res,l) (*(res) = (l), FFEBAD)  argument
1066 #define ffetarget_convert_logical4_logical2(res,l) (*(res) = (l), FFEBAD)  argument
1067 #define ffetarget_convert_logical4_logical3(res,l) (*(res) = (l), FFEBAD)  argument
1068 #define ffetarget_convert_logical4_integer1(res,l) (*(res) = (l), FFEBAD)  argument
1069 #define ffetarget_convert_logical4_integer2(res,l) (*(res) = (l), FFEBAD)  argument
1070 #define ffetarget_convert_logical4_integer3(res,l) (*(res) = (l), FFEBAD)  argument
1071 #define ffetarget_convert_logical4_integer4(res,l) (*(res) = (l), FFEBAD)  argument
1072 #define ffetarget_convert_integer1_character1(res,l) \  argument
1073   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
1074 #define ffetarget_convert_integer1_hollerith(res,l) \  argument
1075   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
1076 #define ffetarget_convert_integer1_typeless(res,l) \  argument
1077   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
1078 #define ffetarget_convert_integer1_integer2(res,l) (*(res) = (l), FFEBAD)  argument
1079 #define ffetarget_convert_integer1_integer3(res,l) (*(res) = (l), FFEBAD)  argument
1080 #define ffetarget_convert_integer1_integer4(res,l) (*(res) = (l), FFEBAD)  argument
1081 #define ffetarget_convert_integer1_logical1(res,l) (*(res) = (l), FFEBAD)  argument
1082 #define ffetarget_convert_integer1_logical2(res,l) (*(res) = (l), FFEBAD)  argument
1083 #define ffetarget_convert_integer1_logical3(res,l) (*(res) = (l), FFEBAD)  argument
1084 #define ffetarget_convert_integer1_logical4(res,l) (*(res) = (l), FFEBAD)  argument
1085 #define ffetarget_convert_integer1_real1(res,l) \  argument
1089      *(res) = ffetarget_long_val_; \
1091 #define ffetarget_convert_integer1_real2(res,l) \  argument
1095      *(res) = ffetarget_long_val_; \
1097 #define ffetarget_convert_integer1_complex1(res,l) \  argument
1101      *(res) = ffetarget_long_val_; \
1103 #define ffetarget_convert_integer1_complex2(res,l) \  argument
1107      *(res) = ffetarget_long_val_; \
1109 #define ffetarget_convert_real1_character1(res,l) \  argument
1110   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
1111 #define ffetarget_convert_real1_hollerith(res,l) \  argument
1112   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
1113 #define ffetarget_convert_real1_integer2(res,l) \  argument
1114         ffetarget_convert_real1_integer1(res,l)
1115 #define ffetarget_convert_real1_integer3(res,l) \  argument
1116         ffetarget_convert_real1_integer1(res,l)
1117 #define ffetarget_convert_real1_integer4(res,l) FFEBAD_NOCANDO  argument
1118 #define ffetarget_convert_real1_typeless(res,l) \  argument
1119   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
1120 #define ffetarget_convert_real1_complex1(res,l) (*(res) = (l).real, FFEBAD)  argument
1121 #define ffetarget_convert_real1_complex2(res,l) \  argument
1122   ffetarget_convert_real1_real2 ((res), (l).real)
1123 #define ffetarget_convert_real1_integer1(res,l) \  argument
1127      ffetarget_cvt_rv_to_r1_ (resr, *(res)); \
1129 #define ffetarget_convert_real1_real2(res,l) \  argument
1132      ffetarget_cvt_rv_to_r1_ (lr, *(res)); \
1134 #define ffetarget_convert_real2_character1(res,l) \  argument
1135   ffetarget_convert_any_character1_ ((char *) (res), sizeof(*(res)), l)
1136 #define ffetarget_convert_real2_hollerith(res,l) \  argument
1137   ffetarget_convert_any_hollerith_ ((char *) (res), sizeof(*(res)), l)
1138 #define ffetarget_convert_real2_integer2(res,l) \  argument
1139         ffetarget_convert_real2_integer1(res,l)
1140 #define ffetarget_convert_real2_integer3(res,l) \  argument
1141         ffetarget_convert_real2_integer1(res,l)
1142 #define ffetarget_convert_real2_integer4(res,l) FFEBAD_NOCANDO  argument
1143 #define ffetarget_convert_real2_typeless(res,l) \  argument
1144   ffetarget_convert_any_typeless_ ((char *) (res), sizeof(*(res)), l)
1145 #define ffetarget_convert_real2_complex1(res,l) \  argument
1146   ffetarget_convert_real2_real1 ((res), (l).real)
1147 #define ffetarget_convert_real2_complex2(res,l) (*(res) = (l).real, FFEBAD)  argument
1148 #define ffetarget_convert_real2_integer(res,l) \  argument
1152      ffetarget_cvt_rv_to_r2_ (resr, &((res)->v[0])); \
1155 #define ffetarget_convert_real2_real1(res,l) \  argument
1158      ffetarget_cvt_rv_to_r2_ (lr, &((res)->v[0])); \
1160 #define ffetarget_divide_integer1(res,l,r) \  argument
1161   (((r) == 0) ? (*(res) = 0, FFEBAD_DIV_BY_ZERO)  \
1162    : (((r) == -1) ? (*(res) = -(l), FFEBAD)       \
1163       : (*(res) = (l) / (r), FFEBAD)))
1164 #define ffetarget_divide_integer2(res,l,r) \  argument
1165         ffetarget_divide_integer1(res,l,r)
1166 #define ffetarget_divide_integer3(res,l,r) \  argument
1167         ffetarget_divide_integer1(res,l,r)
1168 #define ffetarget_divide_integer4(res,l,r) \  argument
1169         ffetarget_divide_integer1(res,l,r)
1170 #define ffetarget_divide_real1(res,l,r) \  argument
1175        ? ({ ffetarget_cvt_rv_to_r1_ (dconst0, *(res)); \
1179 	      ffetarget_cvt_rv_to_r1_ (resr, *(res)); \
1183 #define ffetarget_divide_real2(res,l,r) \  argument
1188        ? ({ ffetarget_cvt_rv_to_r2_ (dconst0, &((res)->v[0])); \
1192 	      ffetarget_cvt_rv_to_r2_ (resr, &((res)->v[0])); \
1196 #define ffetarget_eq_complex1(res,l,r) \  argument
1202      *(res) = (REAL_VALUES_EQUAL (lr, rr) && REAL_VALUES_EQUAL (li, ri)) \
1205 #define ffetarget_eq_complex2(res,l,r) \  argument
1211      *(res) = (REAL_VALUES_EQUAL (lr, rr) && REAL_VALUES_EQUAL (li, ri)) \
1214 #define ffetarget_eq_integer1(res,l,r) \  argument
1215   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
1216 #define ffetarget_eq_integer2(res,l,r) \  argument
1217   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
1218 #define ffetarget_eq_integer3(res,l,r) \  argument
1219   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
1220 #define ffetarget_eq_integer4(res,l,r) \  argument
1221   (*(res) = ((l) == (r)) ? TRUE : FALSE, FFEBAD)
1222 #define ffetarget_eq_real1(res,l,r) \  argument
1226      *(res) = REAL_VALUES_EQUAL (lr, rr) ? TRUE : FALSE; \
1228 #define ffetarget_eq_real2(res,l,r) \  argument
1232      *(res) = REAL_VALUES_EQUAL (lr, rr) ? TRUE : FALSE; \
1234 #define ffetarget_eqv_integer1(res,l,r) (*(res) = (l) ^ ~(r), FFEBAD)  argument
1235 #define ffetarget_eqv_integer2(res,l,r) (*(res) = (l) ^ ~(r), FFEBAD)  argument
1236 #define ffetarget_eqv_integer3(res,l,r) (*(res) = (l) ^ ~(r), FFEBAD)  argument
1237 #define ffetarget_eqv_integer4(res,l,r) (*(res) = (l) ^ ~(r), FFEBAD)  argument
1238 #define ffetarget_eqv_logical1(res,l,r) (*(res) = (l) == (r), FFEBAD)  argument
1239 #define ffetarget_eqv_logical2(res,l,r) (*(res) = (l) == (r), FFEBAD)  argument
1240 #define ffetarget_eqv_logical3(res,l,r) (*(res) = (l) == (r), FFEBAD)  argument
1241 #define ffetarget_eqv_logical4(res,l,r) (*(res) = (l) == (r), FFEBAD)  argument
1242 #define ffetarget_ge_integer1(res,l,r) \  argument
1243   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
1244 #define ffetarget_ge_integer2(res,l,r) \  argument
1245   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
1246 #define ffetarget_ge_integer3(res,l,r) \  argument
1247   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
1248 #define ffetarget_ge_integer4(res,l,r) \  argument
1249   (*(res) = ((l) >= (r)) ? TRUE : FALSE, FFEBAD)
1250 #define ffetarget_ge_real1(res,l,r) \  argument
1254      *(res) = REAL_VALUES_LESS (lr, rr) ? FALSE : TRUE; \
1256 #define ffetarget_ge_real2(res,l,r) \  argument
1260      *(res) = REAL_VALUES_LESS (lr, rr) ? FALSE : TRUE; \
1262 #define ffetarget_gt_integer1(res,l,r) \  argument
1263   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
1264 #define ffetarget_gt_integer2(res,l,r) \  argument
1265   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
1266 #define ffetarget_gt_integer3(res,l,r) \  argument
1267   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
1268 #define ffetarget_gt_integer4(res,l,r) \  argument
1269   (*(res) = ((l) > (r)) ? TRUE : FALSE, FFEBAD)
1270 #define ffetarget_gt_real1(res,l,r) \  argument
1274      *(res) = (REAL_VALUES_LESS (lr, rr) || REAL_VALUES_EQUAL (lr, rr)) \
1277 #define ffetarget_gt_real2(res,l,r) \  argument
1281      *(res) = (REAL_VALUES_LESS (lr, rr) || REAL_VALUES_EQUAL (lr, rr)) \
1312 #define ffetarget_le_integer1(res,l,r) \  argument
1313   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
1314 #define ffetarget_le_integer2(res,l,r) \  argument
1315   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
1316 #define ffetarget_le_integer3(res,l,r) \  argument
1317   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
1318 #define ffetarget_le_integer4(res,l,r) \  argument
1319   (*(res) = ((l) <= (r)) ? TRUE : FALSE, FFEBAD)
1320 #define ffetarget_le_real1(res,l,r) \  argument
1324      *(res) = (REAL_VALUES_LESS (lr, rr) || REAL_VALUES_EQUAL (lr, rr)) \
1327 #define ffetarget_le_real2(res,l,r) \  argument
1331      *(res) = (REAL_VALUES_LESS (lr, rr) || REAL_VALUES_EQUAL (lr, rr)) \
1334 #define ffetarget_lt_integer1(res,l,r) \  argument
1335   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
1336 #define ffetarget_lt_integer2(res,l,r) \  argument
1337   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
1338 #define ffetarget_lt_integer3(res,l,r) \  argument
1339   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
1340 #define ffetarget_lt_integer4(res,l,r) \  argument
1341   (*(res) = ((l) < (r)) ? TRUE : FALSE, FFEBAD)
1342 #define ffetarget_lt_real1(res,l,r) \  argument
1346      *(res) = REAL_VALUES_LESS (lr, rr) ? TRUE : FALSE; \
1348 #define ffetarget_lt_real2(res,l,r) \  argument
1352      *(res) = REAL_VALUES_LESS (lr, rr) ? TRUE : FALSE; \
1356 #define ffetarget_make_real1(res,lr) \  argument
1357   ffetarget_cvt_rv_to_r1_ ((lr), *(res))
1358 #define ffetarget_make_real2(res,lr) \  argument
1359   ffetarget_cvt_rv_to_r2_ ((lr), &((res)->v[0]))
1360 #define ffetarget_multiply_integer1(res,l,r) (*(res) = (l) * (r), FFEBAD)  argument
1361 #define ffetarget_multiply_integer2(res,l,r) (*(res) = (l) * (r), FFEBAD)  argument
1362 #define ffetarget_multiply_integer3(res,l,r) (*(res) = (l) * (r), FFEBAD)  argument
1363 #define ffetarget_multiply_integer4(res,l,r) (*(res) = (l) * (r), FFEBAD)  argument
1364 #define ffetarget_multiply_real1(res,l,r) \  argument
1369      ffetarget_cvt_rv_to_r1_ (resr, *(res)); \
1371 #define ffetarget_multiply_real2(res,l,r) \  argument
1376      ffetarget_cvt_rv_to_r2_ (resr, &((res)->v[0])); \
1378 #define ffetarget_ne_complex1(res,l,r) \  argument
1384      *(res) = (REAL_VALUES_EQUAL (lr, rr) && REAL_VALUES_EQUAL (li, ri)) \
1387 #define ffetarget_ne_complex2(res,l,r) \  argument
1393      *(res) = (REAL_VALUES_EQUAL (lr, rr) && REAL_VALUES_EQUAL (li, ri)) \
1396 #define ffetarget_ne_integer1(res,l,r) \  argument
1397   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
1398 #define ffetarget_ne_integer2(res,l,r) \  argument
1399   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
1400 #define ffetarget_ne_integer3(res,l,r) \  argument
1401   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
1402 #define ffetarget_ne_integer4(res,l,r) \  argument
1403   (*(res) = ((l) != (r)) ? TRUE : FALSE, FFEBAD)
1404 #define ffetarget_ne_real1(res,l,r) \  argument
1408      *(res) = REAL_VALUES_EQUAL (lr, rr) ? FALSE : TRUE; \
1410 #define ffetarget_ne_real2(res,l,r) \  argument
1414      *(res) = REAL_VALUES_EQUAL (lr, rr) ? FALSE : TRUE; \
1416 #define ffetarget_neqv_integer1(res,l,r) (*(res) = (l) ^ (r), FFEBAD)  argument
1417 #define ffetarget_neqv_integer2(res,l,r) (*(res) = (l) ^ (r), FFEBAD)  argument
1418 #define ffetarget_neqv_integer3(res,l,r) (*(res) = (l) ^ (r), FFEBAD)  argument
1419 #define ffetarget_neqv_integer4(res,l,r) (*(res) = (l) ^ (r), FFEBAD)  argument
1420 #define ffetarget_neqv_logical1(res,l,r) (*(res) = (l) != (r), FFEBAD)  argument
1421 #define ffetarget_neqv_logical2(res,l,r) (*(res) = (l) != (r), FFEBAD)  argument
1422 #define ffetarget_neqv_logical3(res,l,r) (*(res) = (l) != (r), FFEBAD)  argument
1423 #define ffetarget_neqv_logical4(res,l,r) (*(res) = (l) != (r), FFEBAD)  argument
1424 #define ffetarget_not_integer1(res,l) (*(res) = ~(l), FFEBAD)  argument
1425 #define ffetarget_not_integer2(res,l) (*(res) = ~(l), FFEBAD)  argument
1426 #define ffetarget_not_integer3(res,l) (*(res) = ~(l), FFEBAD)  argument
1427 #define ffetarget_not_integer4(res,l) (*(res) = ~(l), FFEBAD)  argument
1428 #define ffetarget_not_logical1(res,l) (*(res) = !(l), FFEBAD)  argument
1429 #define ffetarget_not_logical2(res,l) (*(res) = !(l), FFEBAD)  argument
1430 #define ffetarget_not_logical3(res,l) (*(res) = !(l), FFEBAD)  argument
1431 #define ffetarget_not_logical4(res,l) (*(res) = !(l), FFEBAD)  argument
1434 #define ffetarget_offset(res,l) (*(res) = (l), TRUE)	/* Overflow? */  argument
1435 #define ffetarget_offset_add(res,l,r) (*(res) = (l) + (r), TRUE)	/* Overflow? */  argument
1436 #define ffetarget_offset_charsize(res,l,u) (*(res) = (l) * (u), TRUE)	/* Ov? */  argument
1437 #define ffetarget_offset_multiply(res,l,r) (*(res) = (l) * (r), TRUE)	/* Ov? */  argument
1439 #define ffetarget_or_integer1(res,l,r) (*(res) = (l) | (r), FFEBAD)  argument
1440 #define ffetarget_or_integer2(res,l,r) (*(res) = (l) | (r), FFEBAD)  argument
1441 #define ffetarget_or_integer3(res,l,r) (*(res) = (l) | (r), FFEBAD)  argument
1442 #define ffetarget_or_integer4(res,l,r) (*(res) = (l) | (r), FFEBAD)  argument
1443 #define ffetarget_or_logical1(res,l,r) (*(res) = (l) || (r), FFEBAD)  argument
1444 #define ffetarget_or_logical2(res,l,r) (*(res) = (l) || (r), FFEBAD)  argument
1445 #define ffetarget_or_logical3(res,l,r) (*(res) = (l) || (r), FFEBAD)  argument
1446 #define ffetarget_or_logical4(res,l,r) (*(res) = (l) || (r), FFEBAD)  argument
1485 #define ffetarget_real1_one(res) ffetarget_cvt_rv_to_r1_ (dconst1, *(res))  argument
1486 #define ffetarget_real2_one(res) ffetarget_cvt_rv_to_r2_ (dconst1, &((res)->v[0]))  argument
1487 #define ffetarget_real1_two(res) ffetarget_cvt_rv_to_r1_ (dconst2, *(res))  argument
1488 #define ffetarget_real2_two(res) ffetarget_cvt_rv_to_r2_ (dconst2, &((res)->v[0]))  argument
1489 #define ffetarget_real1_zero(res) ffetarget_cvt_rv_to_r1_ (dconst0, *(res))  argument
1490 #define ffetarget_real2_zero(res) ffetarget_cvt_rv_to_r2_ (dconst0, &((res)->v[0]))  argument
1495 #define ffetarget_subtract_complex1(res,l,r) \  argument
1503      ffetarget_cvt_rv_to_r1_ (resr, (res)->real); \
1504      ffetarget_cvt_rv_to_r1_ (resi, (res)->imaginary); \
1506 #define ffetarget_subtract_complex2(res,l,r) \  argument
1514      ffetarget_cvt_rv_to_r2_ (resr, &((res)->real.v[0])); \
1515      ffetarget_cvt_rv_to_r2_ (resi, &((res)->imaginary.v[0])); \
1517 #define ffetarget_subtract_integer1(res,l,r) (*(res) = (l) - (r), FFEBAD)  argument
1518 #define ffetarget_subtract_integer2(res,l,r) (*(res) = (l) - (r), FFEBAD)  argument
1519 #define ffetarget_subtract_integer3(res,l,r) (*(res) = (l) - (r), FFEBAD)  argument
1520 #define ffetarget_subtract_integer4(res,l,r) (*(res) = (l) - (r), FFEBAD)  argument
1521 #define ffetarget_subtract_real1(res,l,r) \  argument
1526      ffetarget_cvt_rv_to_r1_ (resr, *(res)); \
1528 #define ffetarget_subtract_real2(res,l,r) \  argument
1533      ffetarget_cvt_rv_to_r2_ (resr, &((res)->v[0])); \
1542 #define ffetarget_uminus_complex1(res,l) \  argument
1548      ffetarget_cvt_rv_to_r1_ (resr, (res)->real); \
1549      ffetarget_cvt_rv_to_r1_ (resi, (res)->imaginary); \
1551 #define ffetarget_uminus_complex2(res,l) \  argument
1557      ffetarget_cvt_rv_to_r2_ (resr, &((res)->real.v[0])); \
1558      ffetarget_cvt_rv_to_r2_ (resi, &((res)->imaginary.v[0])); \
1560 #define ffetarget_uminus_integer1(res,l) (*(res) = -(l), FFEBAD)  argument
1561 #define ffetarget_uminus_integer2(res,l) (*(res) = -(l), FFEBAD)  argument
1562 #define ffetarget_uminus_integer3(res,l) (*(res) = -(l), FFEBAD)  argument
1563 #define ffetarget_uminus_integer4(res,l) (*(res) = -(l), FFEBAD)  argument
1564 #define ffetarget_uminus_real1(res,l) \  argument
1568      ffetarget_cvt_rv_to_r1_ (resr, *(res)); \
1570 #define ffetarget_uminus_real2(res,l) \  argument
1574      ffetarget_cvt_rv_to_r2_ (resr, &((res)->v[0])); \
1578 #define ffetarget_xor_integer1(res,l,r) (*(res) = (l) ^ (r), FFEBAD)  argument
1579 #define ffetarget_xor_integer2(res,l,r) (*(res) = (l) ^ (r), FFEBAD)  argument
1580 #define ffetarget_xor_integer3(res,l,r) (*(res) = (l) ^ (r), FFEBAD)  argument
1581 #define ffetarget_xor_integer4(res,l,r) (*(res) = (l) ^ (r), FFEBAD)  argument
1582 #define ffetarget_xor_logical1(res,l,r) (*(res) = (l) != (r), FFEBAD)  argument
1583 #define ffetarget_xor_logical2(res,l,r) (*(res) = (l) != (r), FFEBAD)  argument
1584 #define ffetarget_xor_logical3(res,l,r) (*(res) = (l) != (r), FFEBAD)  argument
1585 #define ffetarget_xor_logical4(res,l,r) (*(res) = (l) != (r), FFEBAD)  argument