View | Details | Raw Unified | Return to bug 33162 | Differences between
and this patch

Collapse All | Expand All

(-)intrinsic.c (-30 / +30 lines)
Lines 923-929 add_functions (void) Link Here
923
	     a, BT_INTEGER, di, REQUIRED);
923
	     a, BT_INTEGER, di, REQUIRED);
924
924
925
  add_sym_1 ("dabs", GFC_ISYM_ABS, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
925
  add_sym_1 ("dabs", GFC_ISYM_ABS, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
926
	     NULL, gfc_simplify_abs, gfc_resolve_abs,
926
	     gfc_check_fn_d, gfc_simplify_abs, gfc_resolve_abs,
927
	     a, BT_REAL, dd, REQUIRED);
927
	     a, BT_REAL, dd, REQUIRED);
928
928
929
  add_sym_1 ("cabs", GFC_ISYM_ABS, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dr, GFC_STD_F77,
929
  add_sym_1 ("cabs", GFC_ISYM_ABS, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dr, GFC_STD_F77,
Lines 958-964 add_functions (void) Link Here
958
	     x, BT_REAL, dr, REQUIRED);
958
	     x, BT_REAL, dr, REQUIRED);
959
959
960
  add_sym_1 ("dacos", GFC_ISYM_ACOS, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
960
  add_sym_1 ("dacos", GFC_ISYM_ACOS, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
961
	     NULL, gfc_simplify_acos, gfc_resolve_acos,
961
	     gfc_check_fn_d, gfc_simplify_acos, gfc_resolve_acos,
962
	     x, BT_REAL, dd, REQUIRED);
962
	     x, BT_REAL, dd, REQUIRED);
963
963
964
  make_generic ("acos", GFC_ISYM_ACOS, GFC_STD_F77);
964
  make_generic ("acos", GFC_ISYM_ACOS, GFC_STD_F77);
Lines 968-974 add_functions (void) Link Here
968
	     x, BT_REAL, dr, REQUIRED);
968
	     x, BT_REAL, dr, REQUIRED);
969
969
970
  add_sym_1 ("dacosh", GFC_ISYM_ACOSH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_GNU,
970
  add_sym_1 ("dacosh", GFC_ISYM_ACOSH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_GNU,
971
	     NULL, gfc_simplify_acosh, gfc_resolve_acosh,
971
	     gfc_check_fn_d, gfc_simplify_acosh, gfc_resolve_acosh,
972
	     x, BT_REAL, dd, REQUIRED);
972
	     x, BT_REAL, dd, REQUIRED);
973
973
974
  make_generic ("acosh", GFC_ISYM_ACOSH, GFC_STD_GNU);
974
  make_generic ("acosh", GFC_ISYM_ACOSH, GFC_STD_GNU);
Lines 1041-1047 add_functions (void) Link Here
1041
	     x, BT_REAL, dr, REQUIRED);
1041
	     x, BT_REAL, dr, REQUIRED);
1042
1042
1043
  add_sym_1 ("dasin", GFC_ISYM_ASIN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1043
  add_sym_1 ("dasin", GFC_ISYM_ASIN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1044
	     NULL, gfc_simplify_asin, gfc_resolve_asin,
1044
	     gfc_check_fn_d, gfc_simplify_asin, gfc_resolve_asin,
1045
	     x, BT_REAL, dd, REQUIRED);
1045
	     x, BT_REAL, dd, REQUIRED);
1046
1046
1047
  make_generic ("asin", GFC_ISYM_ASIN, GFC_STD_F77);
1047
  make_generic ("asin", GFC_ISYM_ASIN, GFC_STD_F77);
Lines 1051-1057 add_functions (void) Link Here
1051
	     x, BT_REAL, dr, REQUIRED);
1051
	     x, BT_REAL, dr, REQUIRED);
1052
1052
1053
  add_sym_1 ("dasinh", GFC_ISYM_ASINH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_GNU,
1053
  add_sym_1 ("dasinh", GFC_ISYM_ASINH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_GNU,
1054
	     NULL, gfc_simplify_asinh, gfc_resolve_asinh,
1054
	     gfc_check_fn_d, gfc_simplify_asinh, gfc_resolve_asinh,
1055
	     x, BT_REAL, dd, REQUIRED);
1055
	     x, BT_REAL, dd, REQUIRED);
1056
1056
1057
  make_generic ("asinh", GFC_ISYM_ASINH, GFC_STD_GNU);
1057
  make_generic ("asinh", GFC_ISYM_ASINH, GFC_STD_GNU);
Lines 1067-1073 add_functions (void) Link Here
1067
	     x, BT_REAL, dr, REQUIRED);
1067
	     x, BT_REAL, dr, REQUIRED);
1068
1068
1069
  add_sym_1 ("datan", GFC_ISYM_ATAN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1069
  add_sym_1 ("datan", GFC_ISYM_ATAN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1070
	     NULL, gfc_simplify_atan, gfc_resolve_atan,
1070
	     gfc_check_fn_d, gfc_simplify_atan, gfc_resolve_atan,
1071
	     x, BT_REAL, dd, REQUIRED);
1071
	     x, BT_REAL, dd, REQUIRED);
1072
1072
1073
  make_generic ("atan", GFC_ISYM_ATAN, GFC_STD_F77);
1073
  make_generic ("atan", GFC_ISYM_ATAN, GFC_STD_F77);
Lines 1077-1083 add_functions (void) Link Here
1077
	     x, BT_REAL, dr, REQUIRED);
1077
	     x, BT_REAL, dr, REQUIRED);
1078
1078
1079
  add_sym_1 ("datanh", GFC_ISYM_ATANH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_GNU,
1079
  add_sym_1 ("datanh", GFC_ISYM_ATANH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_GNU,
1080
	     NULL, gfc_simplify_atanh, gfc_resolve_atanh,
1080
	     gfc_check_fn_d, gfc_simplify_atanh, gfc_resolve_atanh,
1081
	     x, BT_REAL, dd, REQUIRED);
1081
	     x, BT_REAL, dd, REQUIRED);
1082
1082
1083
  make_generic ("atanh", GFC_ISYM_ATANH, GFC_STD_GNU);
1083
  make_generic ("atanh", GFC_ISYM_ATANH, GFC_STD_GNU);
Lines 1087-1093 add_functions (void) Link Here
1087
	     y, BT_REAL, dr, REQUIRED, x, BT_REAL, dr, REQUIRED);
1087
	     y, BT_REAL, dr, REQUIRED, x, BT_REAL, dr, REQUIRED);
1088
1088
1089
  add_sym_2 ("datan2", GFC_ISYM_ATAN2, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1089
  add_sym_2 ("datan2", GFC_ISYM_ATAN2, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1090
	     NULL, gfc_simplify_atan2, gfc_resolve_atan2,
1090
	     gfc_check_a_pd, gfc_simplify_atan2, gfc_resolve_atan2,
1091
	     y, BT_REAL, dd, REQUIRED, x, BT_REAL, dd, REQUIRED);
1091
	     y, BT_REAL, dd, REQUIRED, x, BT_REAL, dd, REQUIRED);
1092
1092
1093
  make_generic ("atan2", GFC_ISYM_ATAN2, GFC_STD_F77);
1093
  make_generic ("atan2", GFC_ISYM_ATAN2, GFC_STD_F77);
Lines 1098-1104 add_functions (void) Link Here
1098
	     x, BT_REAL, dr, REQUIRED);
1098
	     x, BT_REAL, dr, REQUIRED);
1099
1099
1100
  add_sym_1 ("dbesj0", GFC_ISYM_J0, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1100
  add_sym_1 ("dbesj0", GFC_ISYM_J0, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1101
	     gfc_check_fn_r, NULL, gfc_resolve_g77_math1,
1101
	     gfc_check_fn_d, NULL, gfc_resolve_g77_math1,
1102
	     x, BT_REAL, dd, REQUIRED);
1102
	     x, BT_REAL, dd, REQUIRED);
1103
1103
1104
  make_generic ("besj0", GFC_ISYM_J0, GFC_STD_GNU);
1104
  make_generic ("besj0", GFC_ISYM_J0, GFC_STD_GNU);
Lines 1108-1114 add_functions (void) Link Here
1108
	     x, BT_REAL, dr, REQUIRED);
1108
	     x, BT_REAL, dr, REQUIRED);
1109
1109
1110
  add_sym_1 ("dbesj1", GFC_ISYM_J1, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1110
  add_sym_1 ("dbesj1", GFC_ISYM_J1, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1111
	     gfc_check_fn_r, NULL, gfc_resolve_g77_math1,
1111
	     gfc_check_fn_d, NULL, gfc_resolve_g77_math1,
1112
	     x, BT_REAL, dd, REQUIRED);
1112
	     x, BT_REAL, dd, REQUIRED);
1113
1113
1114
  make_generic ("besj1", GFC_ISYM_J1, GFC_STD_GNU);
1114
  make_generic ("besj1", GFC_ISYM_J1, GFC_STD_GNU);
Lines 1128-1134 add_functions (void) Link Here
1128
	     x, BT_REAL, dr, REQUIRED);
1128
	     x, BT_REAL, dr, REQUIRED);
1129
1129
1130
  add_sym_1 ("dbesy0", GFC_ISYM_Y0, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1130
  add_sym_1 ("dbesy0", GFC_ISYM_Y0, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1131
	     gfc_check_fn_r, NULL, gfc_resolve_g77_math1,
1131
	     gfc_check_fn_d, NULL, gfc_resolve_g77_math1,
1132
	     x, BT_REAL, dd, REQUIRED);
1132
	     x, BT_REAL, dd, REQUIRED);
1133
1133
1134
  make_generic ("besy0", GFC_ISYM_Y0, GFC_STD_GNU);
1134
  make_generic ("besy0", GFC_ISYM_Y0, GFC_STD_GNU);
Lines 1138-1144 add_functions (void) Link Here
1138
	     x, BT_REAL, dr, REQUIRED);
1138
	     x, BT_REAL, dr, REQUIRED);
1139
1139
1140
  add_sym_1 ("dbesy1", GFC_ISYM_Y1, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1140
  add_sym_1 ("dbesy1", GFC_ISYM_Y1, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1141
	     gfc_check_fn_r, NULL, gfc_resolve_g77_math1,
1141
	     gfc_check_fn_d, NULL, gfc_resolve_g77_math1,
1142
	     x, BT_REAL, dd, REQUIRED);
1142
	     x, BT_REAL, dd, REQUIRED);
1143
1143
1144
  make_generic ("besy1", GFC_ISYM_Y1, GFC_STD_GNU);
1144
  make_generic ("besy1", GFC_ISYM_Y1, GFC_STD_GNU);
Lines 1232-1238 add_functions (void) Link Here
1232
	     x, BT_REAL, dr, REQUIRED);
1232
	     x, BT_REAL, dr, REQUIRED);
1233
1233
1234
  add_sym_1 ("dcos", GFC_ISYM_COS, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1234
  add_sym_1 ("dcos", GFC_ISYM_COS, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1235
	     gfc_check_fn_rc, gfc_simplify_cos, gfc_resolve_cos,
1235
	     gfc_check_fn_d, gfc_simplify_cos, gfc_resolve_cos,
1236
	     x, BT_REAL, dd, REQUIRED);
1236
	     x, BT_REAL, dd, REQUIRED);
1237
1237
1238
  add_sym_1 ("ccos", GFC_ISYM_COS, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
1238
  add_sym_1 ("ccos", GFC_ISYM_COS, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
Lines 1252-1258 add_functions (void) Link Here
1252
	     x, BT_REAL, dr, REQUIRED);
1252
	     x, BT_REAL, dr, REQUIRED);
1253
1253
1254
  add_sym_1 ("dcosh", GFC_ISYM_COSH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1254
  add_sym_1 ("dcosh", GFC_ISYM_COSH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1255
	     NULL, gfc_simplify_cosh, gfc_resolve_cosh,
1255
	     gfc_check_fn_d, gfc_simplify_cosh, gfc_resolve_cosh,
1256
	     x, BT_REAL, dd, REQUIRED);
1256
	     x, BT_REAL, dd, REQUIRED);
1257
1257
1258
  make_generic ("cosh", GFC_ISYM_COSH, GFC_STD_F77);
1258
  make_generic ("cosh", GFC_ISYM_COSH, GFC_STD_F77);
Lines 1301-1307 add_functions (void) Link Here
1301
	     x, BT_INTEGER, di, REQUIRED, y, BT_INTEGER, di, REQUIRED);
1301
	     x, BT_INTEGER, di, REQUIRED, y, BT_INTEGER, di, REQUIRED);
1302
1302
1303
  add_sym_2 ("ddim", GFC_ISYM_DIM, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1303
  add_sym_2 ("ddim", GFC_ISYM_DIM, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1304
	     NULL, gfc_simplify_dim, gfc_resolve_dim,
1304
	     gfc_check_a_pd, gfc_simplify_dim, gfc_resolve_dim,
1305
	     x, BT_REAL, dd, REQUIRED, y, BT_REAL, dd, REQUIRED);
1305
	     x, BT_REAL, dd, REQUIRED, y, BT_REAL, dd, REQUIRED);
1306
1306
1307
  make_generic ("dim", GFC_ISYM_DIM, GFC_STD_F77);
1307
  make_generic ("dim", GFC_ISYM_DIM, GFC_STD_F77);
Lines 1313-1319 add_functions (void) Link Here
1313
  make_generic ("dot_product", GFC_ISYM_DOT_PRODUCT, GFC_STD_F95);
1313
  make_generic ("dot_product", GFC_ISYM_DOT_PRODUCT, GFC_STD_F95);
1314
1314
1315
  add_sym_2 ("dprod", GFC_ISYM_DPROD,CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1315
  add_sym_2 ("dprod", GFC_ISYM_DPROD,CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1316
	     NULL, gfc_simplify_dprod, gfc_resolve_dprod,
1316
	     gfc_check_a_pd, gfc_simplify_dprod, gfc_resolve_dprod,
1317
	     x, BT_REAL, dr, REQUIRED, y, BT_REAL, dr, REQUIRED);
1317
	     x, BT_REAL, dr, REQUIRED, y, BT_REAL, dr, REQUIRED);
1318
1318
1319
  make_generic ("dprod", GFC_ISYM_DPROD, GFC_STD_F77);
1319
  make_generic ("dprod", GFC_ISYM_DPROD, GFC_STD_F77);
Lines 1343-1349 add_functions (void) Link Here
1343
	     x, BT_REAL, dr, REQUIRED);
1343
	     x, BT_REAL, dr, REQUIRED);
1344
1344
1345
  add_sym_1 ("derf", GFC_ISYM_ERF, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1345
  add_sym_1 ("derf", GFC_ISYM_ERF, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1346
	     gfc_check_fn_r, NULL, gfc_resolve_g77_math1,
1346
	     gfc_check_fn_d, NULL, gfc_resolve_g77_math1,
1347
	     x, BT_REAL, dd, REQUIRED);
1347
	     x, BT_REAL, dd, REQUIRED);
1348
1348
1349
  make_generic ("erf", GFC_ISYM_ERF, GFC_STD_GNU);
1349
  make_generic ("erf", GFC_ISYM_ERF, GFC_STD_GNU);
Lines 1353-1359 add_functions (void) Link Here
1353
	     x, BT_REAL, dr, REQUIRED);
1353
	     x, BT_REAL, dr, REQUIRED);
1354
1354
1355
  add_sym_1 ("derfc", GFC_ISYM_ERFC, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1355
  add_sym_1 ("derfc", GFC_ISYM_ERFC, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dd, GFC_STD_GNU,
1356
	     gfc_check_fn_r, NULL, gfc_resolve_g77_math1,
1356
	     gfc_check_fn_d, NULL, gfc_resolve_g77_math1,
1357
	     x, BT_REAL, dd, REQUIRED);
1357
	     x, BT_REAL, dd, REQUIRED);
1358
1358
1359
  make_generic ("erfc", GFC_ISYM_ERFC, GFC_STD_GNU);
1359
  make_generic ("erfc", GFC_ISYM_ERFC, GFC_STD_GNU);
Lines 1372-1378 add_functions (void) Link Here
1372
	     x, BT_REAL, dr, REQUIRED);
1372
	     x, BT_REAL, dr, REQUIRED);
1373
1373
1374
  add_sym_1 ("dexp", GFC_ISYM_EXP, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1374
  add_sym_1 ("dexp", GFC_ISYM_EXP, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1375
	     NULL, gfc_simplify_exp, gfc_resolve_exp,
1375
	     gfc_check_fn_d, gfc_simplify_exp, gfc_resolve_exp,
1376
	     x, BT_REAL, dd, REQUIRED);
1376
	     x, BT_REAL, dd, REQUIRED);
1377
1377
1378
  add_sym_1 ("cexp", GFC_ISYM_EXP, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
1378
  add_sym_1 ("cexp", GFC_ISYM_EXP, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
Lines 1458-1464 add_functions (void) Link Here
1458
	     x, BT_REAL, dr, REQUIRED);
1458
	     x, BT_REAL, dr, REQUIRED);
1459
1459
1460
  add_sym_1 ("dgamma", GFC_ISYM_GAMMA, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_GNU,
1460
  add_sym_1 ("dgamma", GFC_ISYM_GAMMA, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_GNU,
1461
	     gfc_check_fn_r, gfc_simplify_gamma, gfc_resolve_gamma,
1461
	     gfc_check_fn_d, gfc_simplify_gamma, gfc_resolve_gamma,
1462
	     x, BT_REAL, dr, REQUIRED);
1462
	     x, BT_REAL, dr, REQUIRED);
1463
1463
1464
  make_generic ("gamma", GFC_ISYM_GAMMA, GFC_STD_GNU);
1464
  make_generic ("gamma", GFC_ISYM_GAMMA, GFC_STD_GNU);
Lines 1721-1727 add_functions (void) Link Here
1721
	     x, BT_REAL, dr, REQUIRED);
1721
	     x, BT_REAL, dr, REQUIRED);
1722
1722
1723
  add_sym_1 ("dlgama", GFC_ISYM_LGAMMA, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_GNU,
1723
  add_sym_1 ("dlgama", GFC_ISYM_LGAMMA, CLASS_ELEMENTAL, ACTUAL_NO, BT_REAL, dr, GFC_STD_GNU,
1724
	     gfc_check_fn_r, gfc_simplify_lgamma, gfc_resolve_lgamma,
1724
	     gfc_check_fn_d, gfc_simplify_lgamma, gfc_resolve_lgamma,
1725
	     x, BT_REAL, dr, REQUIRED);
1725
	     x, BT_REAL, dr, REQUIRED);
1726
1726
1727
  make_generic ("lgamma", GFC_ISYM_LGAMMA, GFC_STD_GNU);
1727
  make_generic ("lgamma", GFC_ISYM_LGAMMA, GFC_STD_GNU);
Lines 1766-1772 add_functions (void) Link Here
1766
	     x, BT_REAL, dr, REQUIRED);
1766
	     x, BT_REAL, dr, REQUIRED);
1767
1767
1768
  add_sym_1 ("dlog", GFC_ISYM_LOG, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1768
  add_sym_1 ("dlog", GFC_ISYM_LOG, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1769
	     NULL, gfc_simplify_log, gfc_resolve_log,
1769
	     gfc_check_fn_d, gfc_simplify_log, gfc_resolve_log,
1770
	     x, BT_REAL, dd, REQUIRED);
1770
	     x, BT_REAL, dd, REQUIRED);
1771
1771
1772
  add_sym_1 ("clog", GFC_ISYM_LOG, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
1772
  add_sym_1 ("clog", GFC_ISYM_LOG, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
Lines 1790-1796 add_functions (void) Link Here
1790
	     x, BT_REAL, dr, REQUIRED);
1790
	     x, BT_REAL, dr, REQUIRED);
1791
1791
1792
  add_sym_1 ("dlog10", GFC_ISYM_LOG10, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1792
  add_sym_1 ("dlog10", GFC_ISYM_LOG10, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1793
	     NULL, gfc_simplify_log10, gfc_resolve_log10,
1793
	     gfc_check_fn_d, gfc_simplify_log10, gfc_resolve_log10,
1794
	     x, BT_REAL, dd, REQUIRED);
1794
	     x, BT_REAL, dd, REQUIRED);
1795
1795
1796
  make_generic ("log10", GFC_ISYM_LOG10, GFC_STD_F77);
1796
  make_generic ("log10", GFC_ISYM_LOG10, GFC_STD_F77);
Lines 1943-1949 add_functions (void) Link Here
1943
	     a, BT_REAL, dr, REQUIRED, p, BT_REAL, dr, REQUIRED);
1943
	     a, BT_REAL, dr, REQUIRED, p, BT_REAL, dr, REQUIRED);
1944
1944
1945
  add_sym_2 ("dmod", GFC_ISYM_MOD, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1945
  add_sym_2 ("dmod", GFC_ISYM_MOD, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
1946
	     NULL, gfc_simplify_mod, gfc_resolve_mod,
1946
	     gfc_check_a_pd, gfc_simplify_mod, gfc_resolve_mod,
1947
	     a, BT_REAL, dd, REQUIRED, p, BT_REAL, dd, REQUIRED);
1947
	     a, BT_REAL, dd, REQUIRED, p, BT_REAL, dd, REQUIRED);
1948
1948
1949
  make_generic ("mod", GFC_ISYM_MOD, GFC_STD_F77);
1949
  make_generic ("mod", GFC_ISYM_MOD, GFC_STD_F77);
Lines 2143-2149 add_functions (void) Link Here
2143
	     a, BT_INTEGER, di, REQUIRED, b, BT_INTEGER, di, REQUIRED);
2143
	     a, BT_INTEGER, di, REQUIRED, b, BT_INTEGER, di, REQUIRED);
2144
2144
2145
  add_sym_2 ("dsign", GFC_ISYM_SIGN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2145
  add_sym_2 ("dsign", GFC_ISYM_SIGN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2146
	     NULL, gfc_simplify_sign, gfc_resolve_sign,
2146
	     gfc_check_a_pd, gfc_simplify_sign, gfc_resolve_sign,
2147
	     a, BT_REAL, dd, REQUIRED, b, BT_REAL, dd, REQUIRED);
2147
	     a, BT_REAL, dd, REQUIRED, b, BT_REAL, dd, REQUIRED);
2148
2148
2149
  make_generic ("sign", GFC_ISYM_SIGN, GFC_STD_F77);
2149
  make_generic ("sign", GFC_ISYM_SIGN, GFC_STD_F77);
Lines 2159-2165 add_functions (void) Link Here
2159
	     x, BT_REAL, dr, REQUIRED);
2159
	     x, BT_REAL, dr, REQUIRED);
2160
2160
2161
  add_sym_1 ("dsin", GFC_ISYM_SIN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2161
  add_sym_1 ("dsin", GFC_ISYM_SIN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2162
	     NULL, gfc_simplify_sin, gfc_resolve_sin,
2162
	     gfc_check_fn_d, gfc_simplify_sin, gfc_resolve_sin,
2163
	     x, BT_REAL, dd, REQUIRED);
2163
	     x, BT_REAL, dd, REQUIRED);
2164
2164
2165
  add_sym_1 ("csin", GFC_ISYM_SIN, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
2165
  add_sym_1 ("csin", GFC_ISYM_SIN, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
Lines 2179-2185 add_functions (void) Link Here
2179
	     x, BT_REAL, dr, REQUIRED);
2179
	     x, BT_REAL, dr, REQUIRED);
2180
2180
2181
  add_sym_1 ("dsinh", GFC_ISYM_SINH,CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2181
  add_sym_1 ("dsinh", GFC_ISYM_SINH,CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2182
	     NULL, gfc_simplify_sinh, gfc_resolve_sinh,
2182
	     gfc_check_fn_d, gfc_simplify_sinh, gfc_resolve_sinh,
2183
	     x, BT_REAL, dd, REQUIRED);
2183
	     x, BT_REAL, dd, REQUIRED);
2184
2184
2185
  make_generic ("sinh", GFC_ISYM_SINH, GFC_STD_F77);
2185
  make_generic ("sinh", GFC_ISYM_SINH, GFC_STD_F77);
Lines 2216-2222 add_functions (void) Link Here
2216
	     x, BT_REAL, dr, REQUIRED);
2216
	     x, BT_REAL, dr, REQUIRED);
2217
2217
2218
  add_sym_1 ("dsqrt", GFC_ISYM_SQRT, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2218
  add_sym_1 ("dsqrt", GFC_ISYM_SQRT, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2219
	     NULL, gfc_simplify_sqrt, gfc_resolve_sqrt,
2219
	     gfc_check_fn_d, gfc_simplify_sqrt, gfc_resolve_sqrt,
2220
	     x, BT_REAL, dd, REQUIRED);
2220
	     x, BT_REAL, dd, REQUIRED);
2221
2221
2222
  add_sym_1 ("csqrt", GFC_ISYM_SQRT, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
2222
  add_sym_1 ("csqrt", GFC_ISYM_SQRT, CLASS_ELEMENTAL, ACTUAL_YES, BT_COMPLEX, dz, GFC_STD_F77,
Lines 2261-2267 add_functions (void) Link Here
2261
	     x, BT_REAL, dr, REQUIRED);
2261
	     x, BT_REAL, dr, REQUIRED);
2262
2262
2263
  add_sym_1 ("dtan", GFC_ISYM_TAN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2263
  add_sym_1 ("dtan", GFC_ISYM_TAN, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2264
	     NULL, gfc_simplify_tan, gfc_resolve_tan,
2264
	     gfc_check_fn_d, gfc_simplify_tan, gfc_resolve_tan,
2265
	     x, BT_REAL, dd, REQUIRED);
2265
	     x, BT_REAL, dd, REQUIRED);
2266
2266
2267
  make_generic ("tan", GFC_ISYM_TAN, GFC_STD_F77);
2267
  make_generic ("tan", GFC_ISYM_TAN, GFC_STD_F77);
Lines 2271-2277 add_functions (void) Link Here
2271
	     x, BT_REAL, dr, REQUIRED);
2271
	     x, BT_REAL, dr, REQUIRED);
2272
2272
2273
  add_sym_1 ("dtanh", GFC_ISYM_TANH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2273
  add_sym_1 ("dtanh", GFC_ISYM_TANH, CLASS_ELEMENTAL, ACTUAL_YES, BT_REAL, dd, GFC_STD_F77,
2274
	     NULL, gfc_simplify_tanh, gfc_resolve_tanh,
2274
	     gfc_check_fn_d, gfc_simplify_tanh, gfc_resolve_tanh,
2275
	     x, BT_REAL, dd, REQUIRED);
2275
	     x, BT_REAL, dd, REQUIRED);
2276
2276
2277
  make_generic ("tanh", GFC_ISYM_TANH, GFC_STD_F77);
2277
  make_generic ("tanh", GFC_ISYM_TANH, GFC_STD_F77);
(-)intrinsic.h (+2 lines)
Lines 29-34 extern gfc_expr gfc_bad_expr; Link Here
29
try gfc_check_a_ikind (gfc_expr *, gfc_expr *);
29
try gfc_check_a_ikind (gfc_expr *, gfc_expr *);
30
try gfc_check_a_xkind (gfc_expr *, gfc_expr *);
30
try gfc_check_a_xkind (gfc_expr *, gfc_expr *);
31
try gfc_check_a_p (gfc_expr *, gfc_expr *);
31
try gfc_check_a_p (gfc_expr *, gfc_expr *);
32
try gfc_check_a_pd (gfc_expr *, gfc_expr *);
32
33
33
try gfc_check_abs (gfc_expr *);
34
try gfc_check_abs (gfc_expr *);
34
try gfc_check_access_func (gfc_expr *, gfc_expr *);
35
try gfc_check_access_func (gfc_expr *, gfc_expr *);
Lines 58-63 try gfc_check_fgetput (gfc_expr *); Link Here
58
try gfc_check_fstat (gfc_expr *, gfc_expr *);
59
try gfc_check_fstat (gfc_expr *, gfc_expr *);
59
try gfc_check_ftell (gfc_expr *);
60
try gfc_check_ftell (gfc_expr *);
60
try gfc_check_fn_c (gfc_expr *);
61
try gfc_check_fn_c (gfc_expr *);
62
try gfc_check_fn_d (gfc_expr *);
61
try gfc_check_fn_r (gfc_expr *);
63
try gfc_check_fn_r (gfc_expr *);
62
try gfc_check_fn_rc (gfc_expr *);
64
try gfc_check_fn_rc (gfc_expr *);
63
try gfc_check_fnum (gfc_expr *);
65
try gfc_check_fnum (gfc_expr *);
(-)check.c (+20 lines)
Lines 575-580 gfc_check_a_p (gfc_expr *a, gfc_expr *p) Link Here
575
575
576
576
577
try
577
try
578
gfc_check_a_pd (gfc_expr *a, gfc_expr *p)
579
{
580
  if (double_check (a, 0) == FAILURE || double_check (a, 0) == FAILURE)
581
    return FAILURE;
582
583
  return gfc_check_a_p (a, p);
584
}
585
586
587
try
578
gfc_check_associated (gfc_expr *pointer, gfc_expr *target)
588
gfc_check_associated (gfc_expr *pointer, gfc_expr *target)
579
{
589
{
580
  symbol_attribute attr;
590
  symbol_attribute attr;
Lines 1026-1031 gfc_check_fn_r (gfc_expr *a) Link Here
1026
  return SUCCESS;
1036
  return SUCCESS;
1027
}
1037
}
1028
1038
1039
/* A single double argument.  */
1040
1041
try
1042
gfc_check_fn_d (gfc_expr *a)
1043
{
1044
  if (double_check (a, 0) == FAILURE)
1045
    return FAILURE;
1046
1047
  return SUCCESS;
1048
}
1029
1049
1030
/* A single real or complex argument.  */
1050
/* A single real or complex argument.  */
1031
1051

Return to bug 33162