Lines Matching refs:ts
84 if (source->ts.u.cl == NULL) in check_charlen_present()
85 source->ts.u.cl = gfc_new_charlen (gfc_current_ns, NULL); in check_charlen_present()
89 source->ts.u.cl->length in check_charlen_present()
98 source->ts.u.cl->length in check_charlen_present()
101 if (source->ts.u.cl->length == NULL) in check_charlen_present()
112 gfc_typespec ts; in resolve_mask_arg() local
113 gfc_clear_ts (&ts); in resolve_mask_arg()
121 if (mask->ts.kind != 4) in resolve_mask_arg()
123 ts.type = BT_LOGICAL; in resolve_mask_arg()
124 ts.kind = 4; in resolve_mask_arg()
125 gfc_convert_type (mask, &ts, 2); in resolve_mask_arg()
133 if (mask->expr_type == EXPR_OP && mask->ts.kind != 1) in resolve_mask_arg()
135 ts.type = BT_LOGICAL; in resolve_mask_arg()
136 ts.kind = 1; in resolve_mask_arg()
137 gfc_convert_type_warn (mask, &ts, 2, 0); in resolve_mask_arg()
147 f->ts.type = BT_INTEGER; in resolve_bound()
149 f->ts.kind = mpz_get_si (kind->value.integer); in resolve_bound()
151 f->ts.kind = gfc_default_integer_kind; in resolve_bound()
174 f->ts = array->ts; in resolve_transformational()
197 gfc_type_letter (array->ts.type), array->ts.kind); in resolve_transformational()
207 f->ts = a->ts; in gfc_resolve_abs()
208 if (f->ts.type == BT_COMPLEX) in gfc_resolve_abs()
209 f->ts.type = BT_REAL; in gfc_resolve_abs()
212 = gfc_get_string ("__abs_%c%d", gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_abs()
220 f->ts.type = BT_INTEGER; in gfc_resolve_access()
221 f->ts.kind = gfc_c_int_kind; in gfc_resolve_access()
229 f->ts.type = BT_CHARACTER; in gfc_resolve_adjustl()
230 f->ts.kind = string->ts.kind; in gfc_resolve_adjustl()
231 if (string->ts.u.cl) in gfc_resolve_adjustl()
232 f->ts.u.cl = gfc_new_charlen (gfc_current_ns, string->ts.u.cl); in gfc_resolve_adjustl()
234 f->value.function.name = gfc_get_string ("__adjustl_s%d", f->ts.kind); in gfc_resolve_adjustl()
241 f->ts.type = BT_CHARACTER; in gfc_resolve_adjustr()
242 f->ts.kind = string->ts.kind; in gfc_resolve_adjustr()
243 if (string->ts.u.cl) in gfc_resolve_adjustr()
244 f->ts.u.cl = gfc_new_charlen (gfc_current_ns, string->ts.u.cl); in gfc_resolve_adjustr()
246 f->value.function.name = gfc_get_string ("__adjustr_s%d", f->ts.kind); in gfc_resolve_adjustr()
254 f->ts.type = BT_CHARACTER; in gfc_resolve_char_achar()
255 f->ts.kind = (kind == NULL) in gfc_resolve_char_achar()
257 f->ts.u.cl = gfc_new_charlen (gfc_current_ns, NULL); in gfc_resolve_char_achar()
258 f->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, NULL, 1); in gfc_resolve_char_achar()
261 = gfc_get_string ("__%schar_%d_%c%d", is_achar ? "a" : "", f->ts.kind, in gfc_resolve_char_achar()
262 gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_char_achar()
276 f->ts = x->ts; in gfc_resolve_acos()
278 = gfc_get_string ("__acos_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_acos()
285 f->ts = x->ts; in gfc_resolve_acosh()
287 = gfc_get_string ("__acosh_%c%d", gfc_type_letter (x->ts.type), in gfc_resolve_acosh()
288 x->ts.kind); in gfc_resolve_acosh()
295 f->ts.type = BT_REAL; in gfc_resolve_aimag()
296 f->ts.kind = x->ts.kind; in gfc_resolve_aimag()
298 = gfc_get_string ("__aimag_%c%d", gfc_type_letter (x->ts.type), in gfc_resolve_aimag()
299 x->ts.kind); in gfc_resolve_aimag()
306 f->ts.type = i->ts.type; in gfc_resolve_and()
307 f->ts.kind = gfc_kind_max (i, j); in gfc_resolve_and()
309 if (i->ts.kind != j->ts.kind) in gfc_resolve_and()
311 if (i->ts.kind == gfc_kind_max (i, j)) in gfc_resolve_and()
312 gfc_convert_type (j, &i->ts, 2); in gfc_resolve_and()
314 gfc_convert_type (i, &j->ts, 2); in gfc_resolve_and()
318 = gfc_get_string ("__and_%c%d", gfc_type_letter (i->ts.type), f->ts.kind); in gfc_resolve_and()
325 gfc_typespec ts; in gfc_resolve_aint() local
326 gfc_clear_ts (&ts); in gfc_resolve_aint()
328 f->ts.type = a->ts.type; in gfc_resolve_aint()
329 f->ts.kind = (kind == NULL) ? a->ts.kind : mpz_get_si (kind->value.integer); in gfc_resolve_aint()
331 if (a->ts.kind != f->ts.kind) in gfc_resolve_aint()
333 ts.type = f->ts.type; in gfc_resolve_aint()
334 ts.kind = f->ts.kind; in gfc_resolve_aint()
335 gfc_convert_type (a, &ts, 2); in gfc_resolve_aint()
340 = gfc_get_string ("__aint_%c%d", gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_aint()
354 f->ts = mask->ts; in gfc_resolve_all()
364 = gfc_get_string (PREFIX ("all_%c%d"), gfc_type_letter (mask->ts.type), in gfc_resolve_all()
365 mask->ts.kind); in gfc_resolve_all()
372 gfc_typespec ts; in gfc_resolve_anint() local
373 gfc_clear_ts (&ts); in gfc_resolve_anint()
375 f->ts.type = a->ts.type; in gfc_resolve_anint()
376 f->ts.kind = (kind == NULL) ? a->ts.kind : mpz_get_si (kind->value.integer); in gfc_resolve_anint()
378 if (a->ts.kind != f->ts.kind) in gfc_resolve_anint()
380 ts.type = f->ts.type; in gfc_resolve_anint()
381 ts.kind = f->ts.kind; in gfc_resolve_anint()
382 gfc_convert_type (a, &ts, 2); in gfc_resolve_anint()
388 = gfc_get_string ("__anint_%c%d", gfc_type_letter (a->ts.type), in gfc_resolve_anint()
389 a->ts.kind); in gfc_resolve_anint()
403 f->ts = mask->ts; in gfc_resolve_any()
413 = gfc_get_string (PREFIX ("any_%c%d"), gfc_type_letter (mask->ts.type), in gfc_resolve_any()
414 mask->ts.kind); in gfc_resolve_any()
421 f->ts = x->ts; in gfc_resolve_asin()
423 = gfc_get_string ("__asin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_asin()
429 f->ts = x->ts; in gfc_resolve_asinh()
431 = gfc_get_string ("__asinh_%c%d", gfc_type_letter (x->ts.type), in gfc_resolve_asinh()
432 x->ts.kind); in gfc_resolve_asinh()
438 f->ts = x->ts; in gfc_resolve_atan()
440 = gfc_get_string ("__atan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_atan()
446 f->ts = x->ts; in gfc_resolve_atanh()
448 = gfc_get_string ("__atanh_%c%d", gfc_type_letter (x->ts.type), in gfc_resolve_atanh()
449 x->ts.kind); in gfc_resolve_atanh()
455 f->ts = x->ts; in gfc_resolve_atan2()
457 = gfc_get_string ("__atan2_%c%d", gfc_type_letter (x->ts.type), in gfc_resolve_atan2()
458 x->ts.kind); in gfc_resolve_atan2()
467 gfc_typespec ts; in gfc_resolve_besn() local
468 gfc_clear_ts (&ts); in gfc_resolve_besn()
470 f->ts = x->ts; in gfc_resolve_besn()
471 if (n->ts.kind != gfc_c_int_kind) in gfc_resolve_besn()
473 ts.type = BT_INTEGER; in gfc_resolve_besn()
474 ts.kind = gfc_c_int_kind; in gfc_resolve_besn()
475 gfc_convert_type (n, &ts, 2); in gfc_resolve_besn()
484 gfc_typespec ts; in gfc_resolve_bessel_n2() local
485 gfc_clear_ts (&ts); in gfc_resolve_bessel_n2()
487 f->ts = x->ts; in gfc_resolve_bessel_n2()
497 if (n1->ts.kind != gfc_c_int_kind) in gfc_resolve_bessel_n2()
499 ts.type = BT_INTEGER; in gfc_resolve_bessel_n2()
500 ts.kind = gfc_c_int_kind; in gfc_resolve_bessel_n2()
501 gfc_convert_type (n1, &ts, 2); in gfc_resolve_bessel_n2()
504 if (n2->ts.kind != gfc_c_int_kind) in gfc_resolve_bessel_n2()
506 ts.type = BT_INTEGER; in gfc_resolve_bessel_n2()
507 ts.kind = gfc_c_int_kind; in gfc_resolve_bessel_n2()
508 gfc_convert_type (n2, &ts, 2); in gfc_resolve_bessel_n2()
513 f->ts.kind); in gfc_resolve_bessel_n2()
516 f->ts.kind); in gfc_resolve_bessel_n2()
523 f->ts.type = BT_LOGICAL; in gfc_resolve_btest()
524 f->ts.kind = gfc_default_logical_kind; in gfc_resolve_btest()
526 = gfc_get_string ("__btest_%d_%d", i->ts.kind, pos->ts.kind); in gfc_resolve_btest()
533 f->ts = f->value.function.isym->ts; in gfc_resolve_c_loc()
540 f->ts = f->value.function.isym->ts; in gfc_resolve_c_funloc()
547 f->ts.type = BT_INTEGER; in gfc_resolve_ceiling()
548 f->ts.kind = (kind == NULL) in gfc_resolve_ceiling()
551 = gfc_get_string ("__ceiling_%d_%c%d", f->ts.kind, in gfc_resolve_ceiling()
552 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_ceiling()
566 f->ts.type = BT_INTEGER; in gfc_resolve_chdir()
567 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_chdir()
568 f->value.function.name = gfc_get_string (PREFIX ("chdir_i%d"), f->ts.kind); in gfc_resolve_chdir()
579 kind = c->ext.actual->next->expr->ts.kind; in gfc_resolve_chdir_sub()
592 f->ts.type = BT_INTEGER; in gfc_resolve_chmod()
593 f->ts.kind = gfc_c_int_kind; in gfc_resolve_chmod()
605 kind = c->ext.actual->next->next->expr->ts.kind; in gfc_resolve_chmod_sub()
617 f->ts.type = BT_COMPLEX; in gfc_resolve_cmplx()
618 f->ts.kind = (kind == NULL) in gfc_resolve_cmplx()
623 = gfc_get_string ("__cmplx0_%d_%c%d", f->ts.kind, in gfc_resolve_cmplx()
624 gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_cmplx()
627 = gfc_get_string ("__cmplx1_%d_%c%d_%c%d", f->ts.kind, in gfc_resolve_cmplx()
628 gfc_type_letter (x->ts.type), x->ts.kind, in gfc_resolve_cmplx()
629 gfc_type_letter (y->ts.type), y->ts.kind); in gfc_resolve_cmplx()
646 if (x->ts.type == BT_INTEGER) in gfc_resolve_complex()
648 if (y->ts.type == BT_INTEGER) in gfc_resolve_complex()
651 kind = y->ts.kind; in gfc_resolve_complex()
655 if (y->ts.type == BT_REAL) in gfc_resolve_complex()
656 kind = (x->ts.kind > y->ts.kind) ? x->ts.kind : y->ts.kind; in gfc_resolve_complex()
658 kind = x->ts.kind; in gfc_resolve_complex()
661 f->ts.type = BT_COMPLEX; in gfc_resolve_complex()
662 f->ts.kind = kind; in gfc_resolve_complex()
664 = gfc_get_string ("__cmplx1_%d_%c%d_%c%d", f->ts.kind, in gfc_resolve_complex()
665 gfc_type_letter (x->ts.type), x->ts.kind, in gfc_resolve_complex()
666 gfc_type_letter (y->ts.type), y->ts.kind); in gfc_resolve_complex()
673 f->ts = x->ts; in gfc_resolve_conjg()
674 f->value.function.name = gfc_get_string ("__conjg_%d", x->ts.kind); in gfc_resolve_conjg()
681 f->ts = x->ts; in gfc_resolve_cos()
683 = gfc_get_string ("__cos_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_cos()
690 f->ts = x->ts; in gfc_resolve_cosh()
692 = gfc_get_string ("__cosh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_cosh()
699 f->ts.type = BT_INTEGER; in gfc_resolve_count()
701 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_count()
703 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_count()
715 = gfc_get_string (PREFIX ("count_%d_%c"), f->ts.kind, in gfc_resolve_count()
716 gfc_type_letter (mask->ts.type)); in gfc_resolve_count()
726 if (array->ts.type == BT_CHARACTER && array->ref) in gfc_resolve_cshift()
729 f->ts = array->ts; in gfc_resolve_cshift()
741 m = m < dim->ts.kind ? dim->ts.kind : m; in gfc_resolve_cshift()
745 if (shift->ts.kind < m) in gfc_resolve_cshift()
747 gfc_typespec ts; in gfc_resolve_cshift() local
748 gfc_clear_ts (&ts); in gfc_resolve_cshift()
749 ts.type = BT_INTEGER; in gfc_resolve_cshift()
750 ts.kind = m; in gfc_resolve_cshift()
751 gfc_convert_type_warn (shift, &ts, 2, 0); in gfc_resolve_cshift()
760 dim->representation.length = shift->ts.kind; in gfc_resolve_cshift()
766 if (dim->ts.kind != shift->ts.kind) in gfc_resolve_cshift()
767 gfc_convert_type_warn (dim, &shift->ts, 2, 0); in gfc_resolve_cshift()
771 if (array->ts.type == BT_CHARACTER) in gfc_resolve_cshift()
773 if (array->ts.kind == gfc_default_character_kind) in gfc_resolve_cshift()
775 = gfc_get_string (PREFIX ("cshift%d_%d_char"), n, shift->ts.kind); in gfc_resolve_cshift()
778 = gfc_get_string (PREFIX ("cshift%d_%d_char%d"), n, shift->ts.kind, in gfc_resolve_cshift()
779 array->ts.kind); in gfc_resolve_cshift()
783 = gfc_get_string (PREFIX ("cshift%d_%d"), n, shift->ts.kind); in gfc_resolve_cshift()
790 gfc_typespec ts; in gfc_resolve_ctime() local
791 gfc_clear_ts (&ts); in gfc_resolve_ctime()
793 f->ts.type = BT_CHARACTER; in gfc_resolve_ctime()
794 f->ts.kind = gfc_default_character_kind; in gfc_resolve_ctime()
797 if (time->ts.kind != 8) in gfc_resolve_ctime()
799 ts.type = BT_INTEGER; in gfc_resolve_ctime()
800 ts.kind = 8; in gfc_resolve_ctime()
801 ts.u.derived = NULL; in gfc_resolve_ctime()
802 ts.u.cl = NULL; in gfc_resolve_ctime()
803 gfc_convert_type (time, &ts, 2); in gfc_resolve_ctime()
813 f->ts.type = BT_REAL; in gfc_resolve_dble()
814 f->ts.kind = gfc_default_double_kind; in gfc_resolve_dble()
816 = gfc_get_string ("__dble_%c%d", gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_dble()
823 f->ts.type = a->ts.type; in gfc_resolve_dim()
825 f->ts.kind = gfc_kind_max (a,p); in gfc_resolve_dim()
827 f->ts.kind = a->ts.kind; in gfc_resolve_dim()
829 if (p != NULL && a->ts.kind != p->ts.kind) in gfc_resolve_dim()
831 if (a->ts.kind == gfc_kind_max (a,p)) in gfc_resolve_dim()
832 gfc_convert_type (p, &a->ts, 2); in gfc_resolve_dim()
834 gfc_convert_type (a, &p->ts, 2); in gfc_resolve_dim()
838 = gfc_get_string ("__dim_%c%d", gfc_type_letter (f->ts.type), f->ts.kind); in gfc_resolve_dim()
848 gfc_clear_ts (&temp.ts); in gfc_resolve_dot_product()
853 f->ts = temp.ts; in gfc_resolve_dot_product()
856 gfc_type_letter (f->ts.type), f->ts.kind); in gfc_resolve_dot_product()
864 f->ts.kind = gfc_default_double_kind; in gfc_resolve_dprod()
865 f->ts.type = BT_REAL; in gfc_resolve_dprod()
866 f->value.function.name = gfc_get_string ("__dprod_r%d", f->ts.kind); in gfc_resolve_dprod()
874 f->ts = i->ts; in gfc_resolve_dshift()
876 f->value.function.name = gfc_get_string ("dshiftl_i%d", f->ts.kind); in gfc_resolve_dshift()
878 f->value.function.name = gfc_get_string ("dshiftr_i%d", f->ts.kind); in gfc_resolve_dshift()
890 if (array->ts.type == BT_CHARACTER && array->ref) in gfc_resolve_eoshift()
893 f->ts = array->ts; in gfc_resolve_eoshift()
906 m = m < dim->ts.kind ? dim->ts.kind : m; in gfc_resolve_eoshift()
910 if (shift->ts.kind < m) in gfc_resolve_eoshift()
912 gfc_typespec ts; in gfc_resolve_eoshift() local
913 gfc_clear_ts (&ts); in gfc_resolve_eoshift()
914 ts.type = BT_INTEGER; in gfc_resolve_eoshift()
915 ts.kind = m; in gfc_resolve_eoshift()
916 gfc_convert_type_warn (shift, &ts, 2, 0); in gfc_resolve_eoshift()
925 dim->representation.length = shift->ts.kind; in gfc_resolve_eoshift()
931 if (dim->ts.kind != shift->ts.kind) in gfc_resolve_eoshift()
932 gfc_convert_type_warn (dim, &shift->ts, 2, 0); in gfc_resolve_eoshift()
936 if (array->ts.type == BT_CHARACTER) in gfc_resolve_eoshift()
938 if (array->ts.kind == gfc_default_character_kind) in gfc_resolve_eoshift()
940 = gfc_get_string (PREFIX ("eoshift%d_%d_char"), n, shift->ts.kind); in gfc_resolve_eoshift()
943 = gfc_get_string (PREFIX ("eoshift%d_%d_char%d"), n, shift->ts.kind, in gfc_resolve_eoshift()
944 array->ts.kind); in gfc_resolve_eoshift()
948 = gfc_get_string (PREFIX ("eoshift%d_%d"), n, shift->ts.kind); in gfc_resolve_eoshift()
955 f->ts = x->ts; in gfc_resolve_exp()
957 = gfc_get_string ("__exp_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_exp()
964 f->ts.type = BT_INTEGER; in gfc_resolve_exponent()
965 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_exponent()
966 f->value.function.name = gfc_get_string ("__exponent_%d", x->ts.kind); in gfc_resolve_exponent()
979 if (f->ts.type == BT_LOGICAL) in gfc_resolve_extends_type_of()
983 if (a->ts.type == BT_CLASS) in gfc_resolve_extends_type_of()
985 else if (a->ts.type == BT_DERIVED) in gfc_resolve_extends_type_of()
989 vtab = gfc_find_derived_vtab (a->ts.u.derived); in gfc_resolve_extends_type_of()
998 a->ts = vtab->ts; in gfc_resolve_extends_type_of()
1003 if (mo->ts.type == BT_CLASS) in gfc_resolve_extends_type_of()
1005 else if (mo->ts.type == BT_DERIVED) in gfc_resolve_extends_type_of()
1009 vtab = gfc_find_derived_vtab (mo->ts.u.derived); in gfc_resolve_extends_type_of()
1018 mo->ts = vtab->ts; in gfc_resolve_extends_type_of()
1022 f->ts.type = BT_LOGICAL; in gfc_resolve_extends_type_of()
1023 f->ts.kind = 4; in gfc_resolve_extends_type_of()
1025 f->value.function.isym->formal->ts = a->ts; in gfc_resolve_extends_type_of()
1026 f->value.function.isym->formal->next->ts = mo->ts; in gfc_resolve_extends_type_of()
1036 f->ts.type = BT_CHARACTER; in gfc_resolve_fdate()
1037 f->ts.kind = gfc_default_character_kind; in gfc_resolve_fdate()
1045 f->ts.type = BT_INTEGER; in gfc_resolve_floor()
1046 f->ts.kind = (kind == NULL) in gfc_resolve_floor()
1049 = gfc_get_string ("__floor%d_%c%d", f->ts.kind, in gfc_resolve_floor()
1050 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_floor()
1057 f->ts.type = BT_INTEGER; in gfc_resolve_fnum()
1058 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_fnum()
1059 if (n->ts.kind != f->ts.kind) in gfc_resolve_fnum()
1060 gfc_convert_type (n, &f->ts, 2); in gfc_resolve_fnum()
1061 f->value.function.name = gfc_get_string (PREFIX ("fnum_i%d"), f->ts.kind); in gfc_resolve_fnum()
1068 f->ts = x->ts; in gfc_resolve_fraction()
1069 f->value.function.name = gfc_get_string ("__fraction_%d", x->ts.kind); in gfc_resolve_fraction()
1078 f->ts = x->ts; in gfc_resolve_g77_math1()
1086 f->ts = x->ts; in gfc_resolve_gamma()
1088 = gfc_get_string ("__tgamma_%d", x->ts.kind); in gfc_resolve_gamma()
1095 f->ts.type = BT_INTEGER; in gfc_resolve_getcwd()
1096 f->ts.kind = 4; in gfc_resolve_getcwd()
1104 f->ts.type = BT_INTEGER; in gfc_resolve_getgid()
1105 f->ts.kind = 4; in gfc_resolve_getgid()
1113 f->ts.type = BT_INTEGER; in gfc_resolve_getpid()
1114 f->ts.kind = 4; in gfc_resolve_getpid()
1122 f->ts.type = BT_INTEGER; in gfc_resolve_getuid()
1123 f->ts.kind = 4; in gfc_resolve_getuid()
1131 f->ts.type = BT_INTEGER; in gfc_resolve_hostnm()
1132 f->ts.kind = 4; in gfc_resolve_hostnm()
1140 f->ts = x->ts; in gfc_resolve_hypot()
1141 f->value.function.name = gfc_get_string ("__hypot_r%d", x->ts.kind); in gfc_resolve_hypot()
1158 if (i->ts.kind != j->ts.kind) in gfc_resolve_iand()
1160 if (i->ts.kind == gfc_kind_max (i, j)) in gfc_resolve_iand()
1161 gfc_convert_type (j, &i->ts, 2); in gfc_resolve_iand()
1163 gfc_convert_type (i, &j->ts, 2); in gfc_resolve_iand()
1166 f->ts = i->ts; in gfc_resolve_iand()
1167 f->value.function.name = gfc_get_string ("__iand_%d", i->ts.kind); in gfc_resolve_iand()
1181 f->ts = i->ts; in gfc_resolve_ibclr()
1182 f->value.function.name = gfc_get_string ("__ibclr_%d", i->ts.kind); in gfc_resolve_ibclr()
1190 f->ts = i->ts; in gfc_resolve_ibits()
1191 f->value.function.name = gfc_get_string ("__ibits_%d", i->ts.kind); in gfc_resolve_ibits()
1198 f->ts = i->ts; in gfc_resolve_ibset()
1199 f->value.function.name = gfc_get_string ("__ibset_%d", i->ts.kind); in gfc_resolve_ibset()
1206 f->ts.type = BT_INTEGER; in gfc_resolve_iachar()
1208 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_iachar()
1210 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_iachar()
1211 f->value.function.name = gfc_get_string ("__ichar_%d", c->ts.kind); in gfc_resolve_iachar()
1218 f->ts.type = BT_INTEGER; in gfc_resolve_ichar()
1220 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_ichar()
1222 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_ichar()
1223 f->value.function.name = gfc_get_string ("__ichar_%d", c->ts.kind); in gfc_resolve_ichar()
1237 f->ts.type = BT_INTEGER; in gfc_resolve_ierrno()
1238 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_ierrno()
1239 f->value.function.name = gfc_get_string (PREFIX ("ierrno_i%d"), f->ts.kind); in gfc_resolve_ierrno()
1249 if (i->ts.kind != j->ts.kind) in gfc_resolve_ieor()
1251 if (i->ts.kind == gfc_kind_max (i, j)) in gfc_resolve_ieor()
1252 gfc_convert_type (j, &i->ts, 2); in gfc_resolve_ieor()
1254 gfc_convert_type (i, &j->ts, 2); in gfc_resolve_ieor()
1257 f->ts = i->ts; in gfc_resolve_ieor()
1258 f->value.function.name = gfc_get_string ("__ieor_%d", i->ts.kind); in gfc_resolve_ieor()
1268 if (i->ts.kind != j->ts.kind) in gfc_resolve_ior()
1270 if (i->ts.kind == gfc_kind_max (i, j)) in gfc_resolve_ior()
1271 gfc_convert_type (j, &i->ts, 2); in gfc_resolve_ior()
1273 gfc_convert_type (i, &j->ts, 2); in gfc_resolve_ior()
1276 f->ts = i->ts; in gfc_resolve_ior()
1277 f->value.function.name = gfc_get_string ("__ior_%d", i->ts.kind); in gfc_resolve_ior()
1284 gfc_typespec ts; in gfc_resolve_index_func() local
1285 gfc_clear_ts (&ts); in gfc_resolve_index_func()
1300 f->ts.type = BT_INTEGER; in gfc_resolve_index_func()
1302 f->ts.kind = mpz_get_si ((kind)->value.integer); in gfc_resolve_index_func()
1304 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_index_func()
1306 if (back && back->ts.kind != gfc_default_integer_kind) in gfc_resolve_index_func()
1308 ts.type = BT_LOGICAL; in gfc_resolve_index_func()
1309 ts.kind = gfc_default_integer_kind; in gfc_resolve_index_func()
1310 ts.u.derived = NULL; in gfc_resolve_index_func()
1311 ts.u.cl = NULL; in gfc_resolve_index_func()
1312 gfc_convert_type (back, &ts, 2); in gfc_resolve_index_func()
1316 = gfc_get_string ("__index_%d_i%d", str->ts.kind, f->ts.kind); in gfc_resolve_index_func()
1325 f->ts.type = BT_INTEGER; in gfc_resolve_int()
1326 f->ts.kind = (kind == NULL) in gfc_resolve_int()
1329 = gfc_get_string ("__int_%d_%c%d", f->ts.kind, in gfc_resolve_int()
1330 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_int()
1337 f->ts.type = BT_INTEGER; in gfc_resolve_int2()
1338 f->ts.kind = 2; in gfc_resolve_int2()
1340 = gfc_get_string ("__int_%d_%c%d", f->ts.kind, in gfc_resolve_int2()
1341 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_int2()
1348 f->ts.type = BT_INTEGER; in gfc_resolve_int8()
1349 f->ts.kind = 8; in gfc_resolve_int8()
1351 = gfc_get_string ("__int_%d_%c%d", f->ts.kind, in gfc_resolve_int8()
1352 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_int8()
1359 f->ts.type = BT_INTEGER; in gfc_resolve_long()
1360 f->ts.kind = 4; in gfc_resolve_long()
1362 = gfc_get_string ("__int_%d_%c%d", f->ts.kind, in gfc_resolve_long()
1363 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_long()
1377 gfc_typespec ts; in gfc_resolve_isatty() local
1378 gfc_clear_ts (&ts); in gfc_resolve_isatty()
1380 f->ts.type = BT_LOGICAL; in gfc_resolve_isatty()
1381 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_isatty()
1382 if (u->ts.kind != gfc_c_int_kind) in gfc_resolve_isatty()
1384 ts.type = BT_INTEGER; in gfc_resolve_isatty()
1385 ts.kind = gfc_c_int_kind; in gfc_resolve_isatty()
1386 ts.u.derived = NULL; in gfc_resolve_isatty()
1387 ts.u.cl = NULL; in gfc_resolve_isatty()
1388 gfc_convert_type (u, &ts, 2); in gfc_resolve_isatty()
1391 f->value.function.name = gfc_get_string (PREFIX ("isatty_l%d"), f->ts.kind); in gfc_resolve_isatty()
1398 f->ts.type = BT_LOGICAL; in gfc_resolve_is_contiguous()
1399 f->ts.kind = gfc_default_logical_kind; in gfc_resolve_is_contiguous()
1407 f->ts = i->ts; in gfc_resolve_ishft()
1409 = gfc_get_string ("__ishft_%d_%d", i->ts.kind, shift->ts.kind); in gfc_resolve_ishft()
1416 f->ts = i->ts; in gfc_resolve_rshift()
1418 = gfc_get_string ("__rshift_%d_%d", i->ts.kind, shift->ts.kind); in gfc_resolve_rshift()
1425 f->ts = i->ts; in gfc_resolve_lshift()
1427 = gfc_get_string ("__lshift_%d_%d", i->ts.kind, shift->ts.kind); in gfc_resolve_lshift()
1436 s_kind = (size == NULL) ? gfc_default_integer_kind : size->ts.kind; in gfc_resolve_ishftc()
1438 f->ts = i->ts; in gfc_resolve_ishftc()
1440 = gfc_get_string ("__ishftc_%d_%d_%d", i->ts.kind, shift->ts.kind, s_kind); in gfc_resolve_ishftc()
1461 f->ts.type = BT_INTEGER; in gfc_resolve_len()
1463 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_len()
1465 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_len()
1467 = gfc_get_string ("__len_%d_i%d", string->ts.kind, in gfc_resolve_len()
1475 f->ts.type = BT_INTEGER; in gfc_resolve_len_trim()
1477 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_len_trim()
1479 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_len_trim()
1480 f->value.function.name = gfc_get_string ("__len_trim%d", string->ts.kind); in gfc_resolve_len_trim()
1487 f->ts = x->ts; in gfc_resolve_lgamma()
1489 = gfc_get_string ("__lgamma_%d", x->ts.kind); in gfc_resolve_lgamma()
1497 f->ts.type = BT_INTEGER; in gfc_resolve_link()
1498 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_link()
1499 f->value.function.name = gfc_get_string (PREFIX ("link_i%d"), f->ts.kind); in gfc_resolve_link()
1506 f->ts.type= BT_INTEGER; in gfc_resolve_loc()
1507 f->ts.kind = gfc_index_integer_kind; in gfc_resolve_loc()
1508 f->value.function.name = gfc_get_string ("__loc_%d", x->ts.kind); in gfc_resolve_loc()
1515 f->ts = x->ts; in gfc_resolve_log()
1517 = gfc_get_string ("__log_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_log()
1524 f->ts = x->ts; in gfc_resolve_log10()
1526 = gfc_get_string ("__log10_%c%d", gfc_type_letter (x->ts.type), in gfc_resolve_log10()
1527 x->ts.kind); in gfc_resolve_log10()
1534 f->ts.type = BT_LOGICAL; in gfc_resolve_logical()
1535 f->ts.kind = (kind == NULL) in gfc_resolve_logical()
1540 = gfc_get_string ("__logical_%d_%c%d", f->ts.kind, in gfc_resolve_logical()
1541 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_logical()
1550 if (a->ts.type == BT_LOGICAL && b->ts.type == BT_LOGICAL) in gfc_resolve_matmul()
1552 f->ts.type = BT_LOGICAL; in gfc_resolve_matmul()
1553 f->ts.kind = gfc_default_logical_kind; in gfc_resolve_matmul()
1558 gfc_clear_ts (&temp.ts); in gfc_resolve_matmul()
1563 f->ts = temp.ts; in gfc_resolve_matmul()
1597 = gfc_get_string (PREFIX ("matmul_%c%d"), gfc_type_letter (f->ts.type), in gfc_resolve_matmul()
1598 f->ts.kind); in gfc_resolve_matmul()
1607 f->ts.type = args->expr->ts.type; in gfc_resolve_minmax()
1608 f->ts.kind = args->expr->ts.kind; in gfc_resolve_minmax()
1612 if (a->expr->ts.kind > f->ts.kind) in gfc_resolve_minmax()
1613 f->ts.kind = a->expr->ts.kind; in gfc_resolve_minmax()
1619 if (a->expr->ts.kind != f->ts.kind) in gfc_resolve_minmax()
1620 gfc_convert_type (a->expr, &f->ts, 2); in gfc_resolve_minmax()
1624 = gfc_get_string (name, gfc_type_letter (f->ts.type), f->ts.kind); in gfc_resolve_minmax()
1647 f->ts.type = BT_INTEGER; in gfc_resolve_maxloc()
1657 f->ts.kind = MINMAXLOC_MIN_KIND; in gfc_resolve_maxloc()
1659 f->ts.kind = fkind; in gfc_resolve_maxloc()
1698 if (array->ts.type != BT_CHARACTER || f->rank != 0) in gfc_resolve_maxloc()
1707 = gfc_get_string (PREFIX ("%s%d_%d_%c%d"), name, d_num, f->ts.kind, in gfc_resolve_maxloc()
1708 gfc_type_letter (array->ts.type), array->ts.kind); in gfc_resolve_maxloc()
1715 if (fkind != f->ts.kind) in gfc_resolve_maxloc()
1717 gfc_typespec ts; in gfc_resolve_maxloc() local
1718 gfc_clear_ts (&ts); in gfc_resolve_maxloc()
1720 ts.type = BT_INTEGER; in gfc_resolve_maxloc()
1721 ts.kind = fkind; in gfc_resolve_maxloc()
1722 gfc_convert_type_warn (f, &ts, 2, 0); in gfc_resolve_maxloc()
1725 if (back->ts.kind != gfc_logical_4_kind) in gfc_resolve_maxloc()
1727 gfc_typespec ts; in gfc_resolve_maxloc() local
1728 gfc_clear_ts (&ts); in gfc_resolve_maxloc()
1729 ts.type = BT_LOGICAL; in gfc_resolve_maxloc()
1730 ts.kind = gfc_logical_4_kind; in gfc_resolve_maxloc()
1731 gfc_convert_type_warn (back, &ts, 2, 0); in gfc_resolve_maxloc()
1751 f->ts.type = BT_INTEGER; in gfc_resolve_findloc()
1760 f->ts.kind = gfc_index_integer_kind; in gfc_resolve_findloc()
1765 if ((array->ts.type != value->ts.type && value->ts.type != BT_LOGICAL) in gfc_resolve_findloc()
1766 || array->ts.kind != value->ts.kind) in gfc_resolve_findloc()
1767 gfc_convert_type_warn (value, &array->ts, 2, 0); in gfc_resolve_findloc()
1814 if (back->ts.kind != gfc_logical_4_kind) in gfc_resolve_findloc()
1816 gfc_typespec ts; in gfc_resolve_findloc() local
1817 gfc_clear_ts (&ts); in gfc_resolve_findloc()
1818 ts.type = BT_LOGICAL; in gfc_resolve_findloc()
1819 ts.kind = gfc_logical_4_kind; in gfc_resolve_findloc()
1820 gfc_convert_type_warn (back, &ts, 2, 0); in gfc_resolve_findloc()
1825 gfc_type_letter (array->ts.type, true), array->ts.kind); in gfc_resolve_findloc()
1832 if (f->ts.kind != fkind) in gfc_resolve_findloc()
1835 gfc_typespec ts; in gfc_resolve_findloc() local
1836 gfc_clear_ts (&ts); in gfc_resolve_findloc()
1838 ts.type = BT_INTEGER; in gfc_resolve_findloc()
1839 ts.kind = fkind; in gfc_resolve_findloc()
1840 gfc_convert_type_warn (f, &ts, 2, 0); in gfc_resolve_findloc()
1852 f->ts = array->ts; in gfc_resolve_maxval()
1884 if (array->ts.type != BT_CHARACTER) in gfc_resolve_maxval()
1887 gfc_type_letter (array->ts.type), array->ts.kind); in gfc_resolve_maxval()
1891 gfc_type_letter (array->ts.type), array->ts.kind); in gfc_resolve_maxval()
1898 f->ts.type = BT_INTEGER; in gfc_resolve_mclock()
1899 f->ts.kind = 4; in gfc_resolve_mclock()
1907 f->ts.type = BT_INTEGER; in gfc_resolve_mclock8()
1908 f->ts.kind = 8; in gfc_resolve_mclock8()
1917 f->ts.type = BT_INTEGER; in gfc_resolve_mask()
1918 f->ts.kind = kind ? mpz_get_si (kind->value.integer) in gfc_resolve_mask()
1922 f->value.function.name = gfc_get_string ("__maskl_i%d", f->ts.kind); in gfc_resolve_mask()
1924 f->value.function.name = gfc_get_string ("__maskr_i%d", f->ts.kind); in gfc_resolve_mask()
1933 if (tsource->ts.type == BT_CHARACTER && tsource->ref) in gfc_resolve_merge()
1936 if (fsource->ts.type == BT_CHARACTER && fsource->ref) in gfc_resolve_merge()
1939 if (tsource->ts.type == BT_CHARACTER) in gfc_resolve_merge()
1942 f->ts = tsource->ts; in gfc_resolve_merge()
1944 = gfc_get_string ("__merge_%c%d", gfc_type_letter (tsource->ts.type), in gfc_resolve_merge()
1945 tsource->ts.kind); in gfc_resolve_merge()
1954 f->ts = i->ts; in gfc_resolve_merge_bits()
1955 f->value.function.name = gfc_get_string ("__merge_bits_i%d", i->ts.kind); in gfc_resolve_merge_bits()
1975 f->ts.type = BT_INTEGER; in gfc_resolve_minloc()
1985 f->ts.kind = MINMAXLOC_MIN_KIND; in gfc_resolve_minloc()
1987 f->ts.kind = fkind; in gfc_resolve_minloc()
2026 if (array->ts.type != BT_CHARACTER || f->rank != 0) in gfc_resolve_minloc()
2035 = gfc_get_string (PREFIX ("%s%d_%d_%c%d"), name, d_num, f->ts.kind, in gfc_resolve_minloc()
2036 gfc_type_letter (array->ts.type), array->ts.kind); in gfc_resolve_minloc()
2038 if (fkind != f->ts.kind) in gfc_resolve_minloc()
2040 gfc_typespec ts; in gfc_resolve_minloc() local
2041 gfc_clear_ts (&ts); in gfc_resolve_minloc()
2043 ts.type = BT_INTEGER; in gfc_resolve_minloc()
2044 ts.kind = fkind; in gfc_resolve_minloc()
2045 gfc_convert_type_warn (f, &ts, 2, 0); in gfc_resolve_minloc()
2048 if (back->ts.kind != gfc_logical_4_kind) in gfc_resolve_minloc()
2050 gfc_typespec ts; in gfc_resolve_minloc() local
2051 gfc_clear_ts (&ts); in gfc_resolve_minloc()
2052 ts.type = BT_LOGICAL; in gfc_resolve_minloc()
2053 ts.kind = gfc_logical_4_kind; in gfc_resolve_minloc()
2054 gfc_convert_type_warn (back, &ts, 2, 0); in gfc_resolve_minloc()
2066 f->ts = array->ts; in gfc_resolve_minval()
2098 if (array->ts.type != BT_CHARACTER) in gfc_resolve_minval()
2101 gfc_type_letter (array->ts.type), array->ts.kind); in gfc_resolve_minval()
2105 gfc_type_letter (array->ts.type), array->ts.kind); in gfc_resolve_minval()
2112 f->ts.type = a->ts.type; in gfc_resolve_mod()
2114 f->ts.kind = gfc_kind_max (a,p); in gfc_resolve_mod()
2116 f->ts.kind = a->ts.kind; in gfc_resolve_mod()
2118 if (p != NULL && a->ts.kind != p->ts.kind) in gfc_resolve_mod()
2120 if (a->ts.kind == gfc_kind_max (a,p)) in gfc_resolve_mod()
2121 gfc_convert_type (p, &a->ts, 2); in gfc_resolve_mod()
2123 gfc_convert_type (a, &p->ts, 2); in gfc_resolve_mod()
2127 = gfc_get_string ("__mod_%c%d", gfc_type_letter (f->ts.type), f->ts.kind); in gfc_resolve_mod()
2134 f->ts.type = a->ts.type; in gfc_resolve_modulo()
2136 f->ts.kind = gfc_kind_max (a,p); in gfc_resolve_modulo()
2138 f->ts.kind = a->ts.kind; in gfc_resolve_modulo()
2140 if (p != NULL && a->ts.kind != p->ts.kind) in gfc_resolve_modulo()
2142 if (a->ts.kind == gfc_kind_max (a,p)) in gfc_resolve_modulo()
2143 gfc_convert_type (p, &a->ts, 2); in gfc_resolve_modulo()
2145 gfc_convert_type (a, &p->ts, 2); in gfc_resolve_modulo()
2149 = gfc_get_string ("__modulo_%c%d", gfc_type_letter (f->ts.type), in gfc_resolve_modulo()
2150 f->ts.kind); in gfc_resolve_modulo()
2156 if (p->ts.kind != a->ts.kind) in gfc_resolve_nearest()
2157 gfc_convert_type (p, &a->ts, 2); in gfc_resolve_nearest()
2159 f->ts = a->ts; in gfc_resolve_nearest()
2161 = gfc_get_string ("__nearest_%c%d", gfc_type_letter (a->ts.type), in gfc_resolve_nearest()
2162 a->ts.kind); in gfc_resolve_nearest()
2168 f->ts.type = BT_INTEGER; in gfc_resolve_nint()
2169 f->ts.kind = (kind == NULL) in gfc_resolve_nint()
2172 = gfc_get_string ("__nint_%d_%d", f->ts.kind, a->ts.kind); in gfc_resolve_nint()
2186 f->ts = i->ts; in gfc_resolve_not()
2187 f->value.function.name = gfc_get_string ("__not_%d", i->ts.kind); in gfc_resolve_not()
2194 f->ts.type = i->ts.type; in gfc_resolve_or()
2195 f->ts.kind = gfc_kind_max (i, j); in gfc_resolve_or()
2197 if (i->ts.kind != j->ts.kind) in gfc_resolve_or()
2199 if (i->ts.kind == gfc_kind_max (i, j)) in gfc_resolve_or()
2200 gfc_convert_type (j, &i->ts, 2); in gfc_resolve_or()
2202 gfc_convert_type (i, &j->ts, 2); in gfc_resolve_or()
2206 = gfc_get_string ("__or_%c%d", gfc_type_letter (i->ts.type), f->ts.kind); in gfc_resolve_or()
2214 if (array->ts.type == BT_CHARACTER && array->ref) in gfc_resolve_pack()
2217 f->ts = array->ts; in gfc_resolve_pack()
2224 if (array->ts.type == BT_CHARACTER) in gfc_resolve_pack()
2226 = array->ts.kind == 1 ? PREFIX ("pack_char") in gfc_resolve_pack()
2229 array->ts.kind); in gfc_resolve_pack()
2235 if (array->ts.type == BT_CHARACTER) in gfc_resolve_pack()
2237 = array->ts.kind == 1 ? PREFIX ("pack_s_char") in gfc_resolve_pack()
2240 array->ts.kind); in gfc_resolve_pack()
2265 f->ts.type = BT_INTEGER; in gfc_resolve_rank()
2266 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_rank()
2274 f->ts.type = BT_REAL; in gfc_resolve_real()
2277 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_real()
2279 f->ts.kind = (a->ts.type == BT_COMPLEX) in gfc_resolve_real()
2280 ? a->ts.kind : gfc_default_real_kind; in gfc_resolve_real()
2283 = gfc_get_string ("__real_%d_%c%d", f->ts.kind, in gfc_resolve_real()
2284 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_real()
2291 f->ts.type = BT_REAL; in gfc_resolve_realpart()
2292 f->ts.kind = a->ts.kind; in gfc_resolve_realpart()
2294 = gfc_get_string ("__real_%d_%c%d", f->ts.kind, in gfc_resolve_realpart()
2295 gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_realpart()
2303 f->ts.type = BT_INTEGER; in gfc_resolve_rename()
2304 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_rename()
2305 f->value.function.name = gfc_get_string (PREFIX ("rename_i%d"), f->ts.kind); in gfc_resolve_rename()
2314 f->ts.type = BT_CHARACTER; in gfc_resolve_repeat()
2315 f->ts.kind = string->ts.kind; in gfc_resolve_repeat()
2316 f->value.function.name = gfc_get_string ("__repeat_%d", string->ts.kind); in gfc_resolve_repeat()
2319 if (f->ts.u.cl == NULL) in gfc_resolve_repeat()
2320 f->ts.u.cl = gfc_new_charlen (gfc_current_ns, NULL); in gfc_resolve_repeat()
2328 else if (string->ts.u.cl && string->ts.u.cl->length) in gfc_resolve_repeat()
2330 tmp = gfc_copy_expr (string->ts.u.cl->length); in gfc_resolve_repeat()
2334 f->ts.u.cl->length = gfc_multiply (tmp, gfc_copy_expr (ncopies)); in gfc_resolve_repeat()
2347 if (source->ts.type == BT_CHARACTER && source->ref) in gfc_resolve_reshape()
2350 f->ts = source->ts; in gfc_resolve_reshape()
2355 switch (source->ts.type) in gfc_resolve_reshape()
2362 kind = source->ts.kind; in gfc_resolve_reshape()
2376 if (source->ts.type == BT_COMPLEX || source->ts.type == BT_REAL) in gfc_resolve_reshape()
2379 gfc_type_letter (source->ts.type), in gfc_resolve_reshape()
2380 source->ts.kind); in gfc_resolve_reshape()
2381 else if (source->ts.type == BT_CHARACTER) in gfc_resolve_reshape()
2386 = gfc_get_string (PREFIX ("reshape_%d"), source->ts.kind); in gfc_resolve_reshape()
2390 f->value.function.name = (source->ts.type == BT_CHARACTER in gfc_resolve_reshape()
2409 if (shape->ts.kind != gfc_index_integer_kind) in gfc_resolve_reshape()
2411 gfc_typespec ts = shape->ts; in gfc_resolve_reshape() local
2412 ts.kind = gfc_index_integer_kind; in gfc_resolve_reshape()
2413 gfc_convert_type_warn (shape, &ts, 2, 0); in gfc_resolve_reshape()
2415 if (order && order->ts.kind != gfc_index_integer_kind) in gfc_resolve_reshape()
2416 gfc_convert_type_warn (order, &shape->ts, 2, 0); in gfc_resolve_reshape()
2423 f->ts = x->ts; in gfc_resolve_rrspacing()
2424 f->value.function.name = gfc_get_string ("__rrspacing_%d", x->ts.kind); in gfc_resolve_rrspacing()
2448 f->ts = x->ts; in gfc_resolve_scale()
2449 f->value.function.name = gfc_get_string ("__scale_%d", x->ts.kind); in gfc_resolve_scale()
2458 f->ts.type = BT_INTEGER; in gfc_resolve_scan()
2460 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_scan()
2462 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_scan()
2463 f->value.function.name = gfc_get_string ("__scan_%d", string->ts.kind); in gfc_resolve_scan()
2470 t1->ts = t0->ts; in gfc_resolve_secnds()
2479 f->ts = x->ts; in gfc_resolve_set_exponent()
2480 f->value.function.name = gfc_get_string ("__set_exponent_%d", x->ts.kind); in gfc_resolve_set_exponent()
2487 f->ts.type = BT_INTEGER; in gfc_resolve_shape()
2490 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_shape()
2492 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_shape()
2501 f->value.function.name = gfc_get_string (PREFIX ("shape_%d"), f->ts.kind); in gfc_resolve_shape()
2508 f->ts = i->ts; in gfc_resolve_shift()
2510 f->value.function.name = gfc_get_string ("shifta_i%d", f->ts.kind); in gfc_resolve_shift()
2512 f->value.function.name = gfc_get_string ("shiftl_i%d", f->ts.kind); in gfc_resolve_shift()
2514 f->value.function.name = gfc_get_string ("shiftr_i%d", f->ts.kind); in gfc_resolve_shift()
2523 f->ts = a->ts; in gfc_resolve_sign()
2525 = gfc_get_string ("__sign_%c%d", gfc_type_letter (a->ts.type), a->ts.kind); in gfc_resolve_sign()
2532 f->ts.type = BT_INTEGER; in gfc_resolve_signal()
2533 f->ts.kind = gfc_c_int_kind; in gfc_resolve_signal()
2536 if (handler->ts.type == BT_INTEGER) in gfc_resolve_signal()
2538 if (handler->ts.kind != gfc_c_int_kind) in gfc_resolve_signal()
2539 gfc_convert_type (handler, &f->ts, 2); in gfc_resolve_signal()
2545 if (number->ts.kind != gfc_c_int_kind) in gfc_resolve_signal()
2546 gfc_convert_type (number, &f->ts, 2); in gfc_resolve_signal()
2553 f->ts = x->ts; in gfc_resolve_sin()
2555 = gfc_get_string ("__sin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_sin()
2562 f->ts = x->ts; in gfc_resolve_sinh()
2564 = gfc_get_string ("__sinh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_sinh()
2572 f->ts.type = BT_INTEGER; in gfc_resolve_size()
2574 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_size()
2576 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_size()
2584 f->ts.type = BT_INTEGER; in gfc_resolve_stride()
2585 f->ts.kind = gfc_index_integer_kind; in gfc_resolve_stride()
2592 f->ts = x->ts; in gfc_resolve_spacing()
2593 f->value.function.name = gfc_get_string ("__spacing_%d", x->ts.kind); in gfc_resolve_spacing()
2601 if (source->ts.type == BT_CHARACTER && source->ref) in gfc_resolve_spread()
2604 if (source->ts.type == BT_CHARACTER) in gfc_resolve_spread()
2607 f->ts = source->ts; in gfc_resolve_spread()
2611 if (source->ts.type == BT_CHARACTER) in gfc_resolve_spread()
2613 = source->ts.kind == 1 ? PREFIX ("spread_char_scalar") in gfc_resolve_spread()
2616 source->ts.kind); in gfc_resolve_spread()
2622 if (source->ts.type == BT_CHARACTER) in gfc_resolve_spread()
2624 = source->ts.kind == 1 ? PREFIX ("spread_char") in gfc_resolve_spread()
2627 source->ts.kind); in gfc_resolve_spread()
2656 f->ts = x->ts; in gfc_resolve_sqrt()
2658 = gfc_get_string ("__sqrt_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_sqrt()
2668 f->ts.type = BT_INTEGER; in gfc_resolve_stat()
2669 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_stat()
2670 f->value.function.name = gfc_get_string (PREFIX ("stat_i%d"), f->ts.kind); in gfc_resolve_stat()
2678 f->ts.type = BT_INTEGER; in gfc_resolve_lstat()
2679 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_lstat()
2680 f->value.function.name = gfc_get_string (PREFIX ("lstat_i%d"), f->ts.kind); in gfc_resolve_lstat()
2687 f->ts.type = BT_INTEGER; in gfc_resolve_fstat()
2688 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_fstat()
2689 if (n->ts.kind != f->ts.kind) in gfc_resolve_fstat()
2690 gfc_convert_type (n, &f->ts, 2); in gfc_resolve_fstat()
2692 f->value.function.name = gfc_get_string (PREFIX ("fstat_i%d"), f->ts.kind); in gfc_resolve_fstat()
2699 gfc_typespec ts; in gfc_resolve_fgetc() local
2700 gfc_clear_ts (&ts); in gfc_resolve_fgetc()
2702 f->ts.type = BT_INTEGER; in gfc_resolve_fgetc()
2703 f->ts.kind = gfc_c_int_kind; in gfc_resolve_fgetc()
2704 if (u->ts.kind != gfc_c_int_kind) in gfc_resolve_fgetc()
2706 ts.type = BT_INTEGER; in gfc_resolve_fgetc()
2707 ts.kind = gfc_c_int_kind; in gfc_resolve_fgetc()
2708 ts.u.derived = NULL; in gfc_resolve_fgetc()
2709 ts.u.cl = NULL; in gfc_resolve_fgetc()
2710 gfc_convert_type (u, &ts, 2); in gfc_resolve_fgetc()
2720 f->ts.type = BT_INTEGER; in gfc_resolve_fget()
2721 f->ts.kind = gfc_c_int_kind; in gfc_resolve_fget()
2729 gfc_typespec ts; in gfc_resolve_fputc() local
2730 gfc_clear_ts (&ts); in gfc_resolve_fputc()
2732 f->ts.type = BT_INTEGER; in gfc_resolve_fputc()
2733 f->ts.kind = gfc_c_int_kind; in gfc_resolve_fputc()
2734 if (u->ts.kind != gfc_c_int_kind) in gfc_resolve_fputc()
2736 ts.type = BT_INTEGER; in gfc_resolve_fputc()
2737 ts.kind = gfc_c_int_kind; in gfc_resolve_fputc()
2738 ts.u.derived = NULL; in gfc_resolve_fputc()
2739 ts.u.cl = NULL; in gfc_resolve_fputc()
2740 gfc_convert_type (u, &ts, 2); in gfc_resolve_fputc()
2750 f->ts.type = BT_INTEGER; in gfc_resolve_fput()
2751 f->ts.kind = gfc_c_int_kind; in gfc_resolve_fput()
2759 gfc_typespec ts; in gfc_resolve_ftell() local
2760 gfc_clear_ts (&ts); in gfc_resolve_ftell()
2762 f->ts.type = BT_INTEGER; in gfc_resolve_ftell()
2763 f->ts.kind = gfc_intio_kind; in gfc_resolve_ftell()
2764 if (u->ts.kind != gfc_c_int_kind) in gfc_resolve_ftell()
2766 ts.type = BT_INTEGER; in gfc_resolve_ftell()
2767 ts.kind = gfc_c_int_kind; in gfc_resolve_ftell()
2768 ts.u.derived = NULL; in gfc_resolve_ftell()
2769 ts.u.cl = NULL; in gfc_resolve_ftell()
2770 gfc_convert_type (u, &ts, 2); in gfc_resolve_ftell()
2781 f->ts.type = BT_INTEGER; in gfc_resolve_storage_size()
2783 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_storage_size()
2785 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_storage_size()
2800 f->ts.type = BT_INTEGER; in gfc_resolve_symlnk()
2801 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_symlnk()
2802 f->value.function.name = gfc_get_string (PREFIX ("symlnk_i%d"), f->ts.kind); in gfc_resolve_symlnk()
2811 f->ts.type = BT_INTEGER; in gfc_resolve_system()
2812 f->ts.kind = 4; in gfc_resolve_system()
2820 f->ts = x->ts; in gfc_resolve_tan()
2822 = gfc_get_string ("__tan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_tan()
2829 f->ts = x->ts; in gfc_resolve_tanh()
2831 = gfc_get_string ("__tanh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_tanh()
2843 f->ts.type = BT_INTEGER; in gfc_resolve_failed_images()
2845 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_failed_images()
2847 gfc_extract_int (kind, &f->ts.kind); in gfc_resolve_failed_images()
2859 f->ts.type = BT_INTEGER; in gfc_resolve_image_status()
2860 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_image_status()
2872 f->ts.type = BT_INTEGER; in gfc_resolve_get_team()
2873 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_get_team()
2885 f->ts.type = BT_INTEGER; in gfc_resolve_image_index()
2886 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_image_index()
2899 f->ts.type = BT_INTEGER; in gfc_resolve_stopped_images()
2901 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_stopped_images()
2903 gfc_extract_int (kind, &f->ts.kind); in gfc_resolve_stopped_images()
2915 f->ts.type = BT_INTEGER; in gfc_resolve_team_number()
2916 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_team_number()
2930 f->ts.type = BT_INTEGER; in gfc_resolve_this_image()
2931 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_this_image()
2940 f->ts.type = BT_INTEGER; in gfc_resolve_time()
2941 f->ts.kind = 4; in gfc_resolve_time()
2949 f->ts.type = BT_INTEGER; in gfc_resolve_time8()
2950 f->ts.kind = 8; in gfc_resolve_time8()
2962 if (mold->ts.type == BT_CHARACTER in gfc_resolve_transfer()
2963 && !mold->ts.u.cl->length in gfc_resolve_transfer()
2970 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_transfer()
2977 mold->ts.u.cl->length = gfc_get_int_expr (gfc_charlen_int_kind, in gfc_resolve_transfer()
2982 f->ts = mold->ts; in gfc_resolve_transfer()
3006 if (matrix->ts.type == BT_CHARACTER && matrix->ref) in gfc_resolve_transpose()
3009 f->ts = matrix->ts; in gfc_resolve_transpose()
3018 switch (matrix->ts.kind) in gfc_resolve_transpose()
3024 switch (matrix->ts.type) in gfc_resolve_transpose()
3030 gfc_type_letter (matrix->ts.type), in gfc_resolve_transpose()
3031 matrix->ts.kind); in gfc_resolve_transpose()
3039 = gfc_get_string (PREFIX ("transpose_i%d"), matrix->ts.kind); in gfc_resolve_transpose()
3043 if (matrix->ts.type == BT_CHARACTER && matrix->ts.kind == 4) in gfc_resolve_transpose()
3052 f->value.function.name = (matrix->ts.type == BT_CHARACTER in gfc_resolve_transpose()
3063 f->ts.type = BT_CHARACTER; in gfc_resolve_trim()
3064 f->ts.kind = string->ts.kind; in gfc_resolve_trim()
3065 f->value.function.name = gfc_get_string ("__trim_%d", string->ts.kind); in gfc_resolve_trim()
3076 f->ts = x->ts; in gfc_resolve_trigd()
3079 gfc_type_letter (x->ts.type), x->ts.kind); in gfc_resolve_trigd()
3086 f->ts = y->ts; in gfc_resolve_trigd2()
3089 x->ts.kind); in gfc_resolve_trigd2()
3112 f->ts.type = BT_INTEGER; in gfc_resolve_umask()
3113 f->ts.kind = n->ts.kind; in gfc_resolve_umask()
3114 f->value.function.name = gfc_get_string (PREFIX ("umask_i%d"), n->ts.kind); in gfc_resolve_umask()
3123 f->ts.type = BT_INTEGER; in gfc_resolve_unlink()
3124 f->ts.kind = 4; in gfc_resolve_unlink()
3132 gfc_typespec ts; in gfc_resolve_ttynam() local
3133 gfc_clear_ts (&ts); in gfc_resolve_ttynam()
3135 f->ts.type = BT_CHARACTER; in gfc_resolve_ttynam()
3136 f->ts.kind = gfc_default_character_kind; in gfc_resolve_ttynam()
3138 if (unit->ts.kind != gfc_c_int_kind) in gfc_resolve_ttynam()
3140 ts.type = BT_INTEGER; in gfc_resolve_ttynam()
3141 ts.kind = gfc_c_int_kind; in gfc_resolve_ttynam()
3142 ts.u.derived = NULL; in gfc_resolve_ttynam()
3143 ts.u.cl = NULL; in gfc_resolve_ttynam()
3144 gfc_convert_type (unit, &ts, 2); in gfc_resolve_ttynam()
3155 if (vector->ts.type == BT_CHARACTER && vector->ref) in gfc_resolve_unpack()
3158 f->ts = vector->ts; in gfc_resolve_unpack()
3162 if (vector->ts.type == BT_CHARACTER) in gfc_resolve_unpack()
3164 if (vector->ts.kind == 1) in gfc_resolve_unpack()
3170 field->rank > 0 ? 1 : 0, vector->ts.kind); in gfc_resolve_unpack()
3183 f->ts.type = BT_INTEGER; in gfc_resolve_verify()
3185 f->ts.kind = mpz_get_si (kind->value.integer); in gfc_resolve_verify()
3187 f->ts.kind = gfc_default_integer_kind; in gfc_resolve_verify()
3188 f->value.function.name = gfc_get_string ("__verify_%d", string->ts.kind); in gfc_resolve_verify()
3195 f->ts.type = i->ts.type; in gfc_resolve_xor()
3196 f->ts.kind = gfc_kind_max (i, j); in gfc_resolve_xor()
3198 if (i->ts.kind != j->ts.kind) in gfc_resolve_xor()
3200 if (i->ts.kind == gfc_kind_max (i, j)) in gfc_resolve_xor()
3201 gfc_convert_type (j, &i->ts, 2); in gfc_resolve_xor()
3203 gfc_convert_type (i, &j->ts, 2); in gfc_resolve_xor()
3207 = gfc_get_string ("__xor_%c%d", gfc_type_letter (i->ts.type), f->ts.kind); in gfc_resolve_xor()
3218 gfc_typespec ts; in gfc_resolve_alarm_sub() local
3219 gfc_clear_ts (&ts); in gfc_resolve_alarm_sub()
3223 ts.type = BT_INTEGER; in gfc_resolve_alarm_sub()
3224 ts.kind = gfc_c_int_kind; in gfc_resolve_alarm_sub()
3229 if (handler->ts.type == BT_INTEGER) in gfc_resolve_alarm_sub()
3231 if (handler->ts.kind != gfc_c_int_kind) in gfc_resolve_alarm_sub()
3232 gfc_convert_type (handler, &ts, 2); in gfc_resolve_alarm_sub()
3240 if (seconds->ts.kind != gfc_c_int_kind) in gfc_resolve_alarm_sub()
3241 gfc_convert_type (seconds, &ts, 2); in gfc_resolve_alarm_sub()
3250 name = gfc_get_string (PREFIX ("cpu_time_%d"), c->ext.actual->expr->ts.kind); in gfc_resolve_cpu_time()
3273 sym->ts = actual->expr->ts; in create_formal_for_intents()
3315 gfc_typespec ts; in gfc_resolve_mvbits() local
3316 gfc_clear_ts (&ts); in gfc_resolve_mvbits()
3320 ts.type = BT_INTEGER; in gfc_resolve_mvbits()
3321 ts.kind = gfc_c_int_kind; in gfc_resolve_mvbits()
3322 if (c->ext.actual->next->expr->ts.kind != gfc_c_int_kind) in gfc_resolve_mvbits()
3323 gfc_convert_type (c->ext.actual->next->expr, &ts, 2); in gfc_resolve_mvbits()
3324 if (c->ext.actual->next->next->expr->ts.kind != gfc_c_int_kind) in gfc_resolve_mvbits()
3325 gfc_convert_type (c->ext.actual->next->next->expr, &ts, 2); in gfc_resolve_mvbits()
3326 if (c->ext.actual->next->next->next->next->expr->ts.kind != gfc_c_int_kind) in gfc_resolve_mvbits()
3327 gfc_convert_type (c->ext.actual->next->next->next->next->expr, &ts, 2); in gfc_resolve_mvbits()
3331 c->ext.actual->expr->ts.kind); in gfc_resolve_mvbits()
3359 kind = c->ext.actual->expr->ts.kind; in gfc_resolve_random_number()
3387 kind = c->ext.actual->next->next->expr->ts.kind; in gfc_resolve_rename_sub()
3403 kind = c->ext.actual->next->next->expr->ts.kind; in gfc_resolve_link_sub()
3419 kind = c->ext.actual->next->next->expr->ts.kind; in gfc_resolve_symlnk_sub()
3500 kind = c->ext.actual->expr->ts.kind; in gfc_resolve_sleep_sub()
3527 if (c->ext.actual->expr->ts.kind != gfc_default_integer_kind) in gfc_resolve_getarg()
3529 gfc_typespec ts; in gfc_resolve_getarg() local
3530 gfc_clear_ts (&ts); in gfc_resolve_getarg()
3532 ts.type = BT_INTEGER; in gfc_resolve_getarg()
3533 ts.kind = gfc_default_integer_kind; in gfc_resolve_getarg()
3535 gfc_convert_type (c->ext.actual->expr, &ts, 2); in gfc_resolve_getarg()
3552 kind = c->ext.actual->next->expr->ts.kind; in gfc_resolve_getcwd_sub()
3605 gfc_typespec ts; in gfc_resolve_signal_sub() local
3606 gfc_clear_ts (&ts); in gfc_resolve_signal_sub()
3611 ts.type = BT_INTEGER; in gfc_resolve_signal_sub()
3612 ts.kind = gfc_c_int_kind; in gfc_resolve_signal_sub()
3615 if (handler->ts.type == BT_INTEGER) in gfc_resolve_signal_sub()
3617 if (handler->ts.kind != gfc_c_int_kind) in gfc_resolve_signal_sub()
3618 gfc_convert_type (handler, &ts, 2); in gfc_resolve_signal_sub()
3624 if (number->ts.kind != gfc_c_int_kind) in gfc_resolve_signal_sub()
3625 gfc_convert_type (number, &ts, 2); in gfc_resolve_signal_sub()
3626 if (status != NULL && status->ts.kind != gfc_c_int_kind) in gfc_resolve_signal_sub()
3627 gfc_convert_type (status, &ts, 2); in gfc_resolve_signal_sub()
3656 if ((!count || count->ts.kind >= 8) in gfc_resolve_system_clock()
3657 && (!count_max || count_max->ts.kind >= 8)) in gfc_resolve_system_clock()
3684 gfc_typespec ts; in gfc_resolve_exit() local
3686 gfc_clear_ts (&ts); in gfc_resolve_exit()
3690 ts.type = BT_INTEGER; in gfc_resolve_exit()
3691 ts.kind = gfc_default_integer_kind; in gfc_resolve_exit()
3693 if (n != NULL && n->ts.kind != ts.kind) in gfc_resolve_exit()
3694 gfc_convert_type (n, &ts, 2); in gfc_resolve_exit()
3696 name = gfc_get_string (PREFIX ("exit_i%d"), ts.kind); in gfc_resolve_exit()
3707 gfc_typespec ts; in gfc_resolve_flush() local
3709 gfc_clear_ts (&ts); in gfc_resolve_flush()
3711 ts.type = BT_INTEGER; in gfc_resolve_flush()
3712 ts.kind = gfc_default_integer_kind; in gfc_resolve_flush()
3714 if (n != NULL && n->ts.kind != ts.kind) in gfc_resolve_flush()
3715 gfc_convert_type (n, &ts, 2); in gfc_resolve_flush()
3717 name = gfc_get_string (PREFIX ("flush_i%d"), ts.kind); in gfc_resolve_flush()
3725 gfc_typespec ts; in gfc_resolve_ctime_sub() local
3726 gfc_clear_ts (&ts); in gfc_resolve_ctime_sub()
3729 if (c->ext.actual->expr->ts.kind != 8) in gfc_resolve_ctime_sub()
3731 ts.type = BT_INTEGER; in gfc_resolve_ctime_sub()
3732 ts.kind = 8; in gfc_resolve_ctime_sub()
3733 ts.u.derived = NULL; in gfc_resolve_ctime_sub()
3734 ts.u.cl = NULL; in gfc_resolve_ctime_sub()
3735 gfc_convert_type (c->ext.actual->expr, &ts, 2); in gfc_resolve_ctime_sub()
3770 kind = c->ext.actual->next->expr->ts.kind; in gfc_resolve_hostnm_sub()
3810 gfc_typespec *ts; in gfc_resolve_fstat_sub() local
3813 ts = &c->ext.actual->next->expr->ts; in gfc_resolve_fstat_sub()
3814 if (u->ts.kind != ts->kind) in gfc_resolve_fstat_sub()
3815 gfc_convert_type (u, ts, 2); in gfc_resolve_fstat_sub()
3816 name = gfc_get_string (PREFIX ("fstat_i%d_sub"), ts->kind); in gfc_resolve_fstat_sub()
3825 gfc_typespec ts; in gfc_resolve_fgetc_sub() local
3827 gfc_clear_ts (&ts); in gfc_resolve_fgetc_sub()
3832 if (u->ts.kind != gfc_c_int_kind) in gfc_resolve_fgetc_sub()
3834 ts.type = BT_INTEGER; in gfc_resolve_fgetc_sub()
3835 ts.kind = gfc_c_int_kind; in gfc_resolve_fgetc_sub()
3836 ts.u.derived = NULL; in gfc_resolve_fgetc_sub()
3837 ts.u.cl = NULL; in gfc_resolve_fgetc_sub()
3838 gfc_convert_type (u, &ts, 2); in gfc_resolve_fgetc_sub()
3842 name = gfc_get_string (PREFIX ("fgetc_i%d_sub"), st->ts.kind); in gfc_resolve_fgetc_sub()
3858 name = gfc_get_string (PREFIX ("fget_i%d_sub"), st->ts.kind); in gfc_resolve_fget_sub()
3870 gfc_typespec ts; in gfc_resolve_fputc_sub() local
3872 gfc_clear_ts (&ts); in gfc_resolve_fputc_sub()
3877 if (u->ts.kind != gfc_c_int_kind) in gfc_resolve_fputc_sub()
3879 ts.type = BT_INTEGER; in gfc_resolve_fputc_sub()
3880 ts.kind = gfc_c_int_kind; in gfc_resolve_fputc_sub()
3881 ts.u.derived = NULL; in gfc_resolve_fputc_sub()
3882 ts.u.cl = NULL; in gfc_resolve_fputc_sub()
3883 gfc_convert_type (u, &ts, 2); in gfc_resolve_fputc_sub()
3887 name = gfc_get_string (PREFIX ("fputc_i%d_sub"), st->ts.kind); in gfc_resolve_fputc_sub()
3903 name = gfc_get_string (PREFIX ("fput_i%d_sub"), st->ts.kind); in gfc_resolve_fput_sub()
3917 gfc_typespec ts; in gfc_resolve_fseek_sub() local
3918 gfc_clear_ts (&ts); in gfc_resolve_fseek_sub()
3924 if (unit->ts.kind != gfc_c_int_kind) in gfc_resolve_fseek_sub()
3926 ts.type = BT_INTEGER; in gfc_resolve_fseek_sub()
3927 ts.kind = gfc_c_int_kind; in gfc_resolve_fseek_sub()
3928 ts.u.derived = NULL; in gfc_resolve_fseek_sub()
3929 ts.u.cl = NULL; in gfc_resolve_fseek_sub()
3930 gfc_convert_type (unit, &ts, 2); in gfc_resolve_fseek_sub()
3933 if (offset->ts.kind != gfc_intio_kind) in gfc_resolve_fseek_sub()
3935 ts.type = BT_INTEGER; in gfc_resolve_fseek_sub()
3936 ts.kind = gfc_intio_kind; in gfc_resolve_fseek_sub()
3937 ts.u.derived = NULL; in gfc_resolve_fseek_sub()
3938 ts.u.cl = NULL; in gfc_resolve_fseek_sub()
3939 gfc_convert_type (offset, &ts, 2); in gfc_resolve_fseek_sub()
3942 if (whence->ts.kind != gfc_c_int_kind) in gfc_resolve_fseek_sub()
3944 ts.type = BT_INTEGER; in gfc_resolve_fseek_sub()
3945 ts.kind = gfc_c_int_kind; in gfc_resolve_fseek_sub()
3946 ts.u.derived = NULL; in gfc_resolve_fseek_sub()
3947 ts.u.cl = NULL; in gfc_resolve_fseek_sub()
3948 gfc_convert_type (whence, &ts, 2); in gfc_resolve_fseek_sub()
3960 gfc_typespec ts; in gfc_resolve_ftell_sub() local
3961 gfc_clear_ts (&ts); in gfc_resolve_ftell_sub()
3966 if (unit->ts.kind != gfc_c_int_kind) in gfc_resolve_ftell_sub()
3968 ts.type = BT_INTEGER; in gfc_resolve_ftell_sub()
3969 ts.kind = gfc_c_int_kind; in gfc_resolve_ftell_sub()
3970 ts.u.derived = NULL; in gfc_resolve_ftell_sub()
3971 ts.u.cl = NULL; in gfc_resolve_ftell_sub()
3972 gfc_convert_type (unit, &ts, 2); in gfc_resolve_ftell_sub()
3975 name = gfc_get_string (PREFIX ("ftell_i%d_sub"), offset->ts.kind); in gfc_resolve_ftell_sub()
3983 gfc_typespec ts; in gfc_resolve_ttynam_sub() local
3984 gfc_clear_ts (&ts); in gfc_resolve_ttynam_sub()
3986 if (c->ext.actual->expr->ts.kind != gfc_c_int_kind) in gfc_resolve_ttynam_sub()
3988 ts.type = BT_INTEGER; in gfc_resolve_ttynam_sub()
3989 ts.kind = gfc_c_int_kind; in gfc_resolve_ttynam_sub()
3990 ts.u.derived = NULL; in gfc_resolve_ttynam_sub()
3991 ts.u.cl = NULL; in gfc_resolve_ttynam_sub()
3992 gfc_convert_type (c->ext.actual->expr, &ts, 2); in gfc_resolve_ttynam_sub()
4008 kind = c->ext.actual->next->expr->ts.kind; in gfc_resolve_umask_sub()
4025 kind = c->ext.actual->next->expr->ts.kind; in gfc_resolve_unlink_sub()