| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
| H A D | pr49179.f90 | 2 function more_OK (fcn)
4 character (*), external :: fcn local in function:more_OK
5 more_OK = fcn ()
|
| H A D | pr49494.f90 | 3 function more_OK (fcn)
5 character (*), external :: fcn local in function:more_OK
6 more_OK = fcn ()
|
| H A D | proc_ptr_comp_2.f90 | 10 procedure(fcn), pointer, nopass :: ppc
22 procedure(fcn), pointer :: f
28 obj%ppc => fcn
47 integer function fcn(x)
function
49 fcn = 2 * x
53 procedure (fcn), pointer :: arg
|
| H A D | assumed_charlen_function_3.f90 | 13 ! The warning occurs twice for the next line; for 'more_OK' and for 'fcn';
14 function more_OK (ch, fcn) ! { dg-warning "Obsolescent feature" }
16 character (*), external :: fcn ! OK as a dummy argument
local in function:more_OK
17 more_OK = fcn (ch)
|
| H A D | external_procedures_3.f90 | 2 ! Tests the fix for PR32926, in which the call to fcn
19 subroutine foo (fcn)
20 external fcn
24 call fcn
|
| H A D | assumed_size_refs_1.f90 | 35 x = fcn (m) ! { dg-error "upper bound in the last dimension" }
36 m(:, 1:2) = fcn (q)
45 elemental function fcn (a) result (b) function in program:assumed_size_test_1
49 end function fcn
|
| H A D | cray_pointers_8.f90 | 5 ! correctly to 'euler' so that an undefined reference to fcn was
37 real function fcn (x)
50 pointer (pfcn, fcn)
58 y = y + fcn(x)*dx
61 z = euler(0.0,1.0,0.0005,fcn)
|
| /haiku-buildtools/binutils/ld/testsuite/ld-elf/ |
| H A D | dl1main.c | 11 void (*fcn) (void);
20 fcn = (void (*)(void)) dlsym(handle, "foo");
21 if (!fcn)
28 (*fcn) ();
|
| H A D | dl6amain.c | 11 void (*fcn) (void);
20 fcn = (void (*)(void)) dlsym(handle, "foo");
21 if (!fcn)
28 (*fcn) ();
|
| H A D | dl6bmain.c | 11 void (*fcn) (void);
20 fcn = (void (*)(void)) dlsym(handle, "foo");
21 if (!fcn)
28 (*fcn) ();
|
| H A D | dl6cmain.c | 11 void (*fcn) (void);
20 fcn = (void (*)(void)) dlsym(handle, "foo");
21 if (!fcn)
28 (*fcn) ();
|
| H A D | dl6dmain.c | 11 void (*fcn) (void);
20 fcn = (void (*)(void)) dlsym(handle, "foo");
21 if (!fcn)
28 (*fcn) ();
|
| /haiku-buildtools/gcc/libcilkrts/runtime/ |
| H A D | local_state.c | 46 scheduling_stack_fcn_t fcn = w->l->post_suspend; local
59 CILK_ASSERT(fcn);
61 fcn(w, ff2, sf2);
|
| H A D | scheduler.c | 1578 scheduling_stack_fcn_t fcn,
1591 fcn(w, ff, sf);
1615 w->l->post_suspend = fcn;
1577 longjmp_into_runtime(__cilkrts_worker *w, scheduling_stack_fcn_t fcn, __cilkrts_stack_frame *sf) argument
|
| /haiku-buildtools/gcc/gcc/testsuite/g++.dg/template/ |
| H A D | const1.C | 2 // instantiating op() with void()() was making the compiler think that 'fcn'
14 void operator()(const T& fcn) { argument
15 fcn();
|
| /haiku-buildtools/gcc/gcc/fortran/ |
| H A D | frontend-passes.c | 244 gfc_expr *fcn, *e = c->expr; local
246 fcn = gfc_copy_expr (e);
259 new_c = gfc_constructor_append_expr (&newbase, fcn, &(e->where));
264 fcn = new_expr;
267 if (fcn->rank != 0)
272 fcn = gfc_build_intrinsic_call (current_ns, id,
274 fn->where, 3, fcn, NULL, NULL);
276 fcn = gfc_build_intrinsic_call (current_ns, id,
278 fn->where, 2, fcn, NULL);
282 fcn
1448 gfc_expr *fcn; local
1531 gfc_expr *fcn; local
1684 gfc_expr *fcn; local
[all...] |
| H A D | trans-expr.c | 1038 tree fcn; local
1079 fcn = gfc_class_vtab_copy_get (from_class_base);
1083 fcn = gfc_class_vtab_copy_get (to);
1087 fcn_type = TREE_TYPE (TREE_TYPE (fcn));
1126 tmp = build_call_vec (fcn_type, fcn, args);
1146 tmp = build_call_vec (fcn_type, fcn, args);
1182 stdcopy = build_call_vec (fcn_type, fcn, args);
1188 extcopy = build_call_vec (fcn_type, fcn, args);
|
| H A D | resolve.c | 7229 resolve_allocate_deallocate (gfc_code *code, const char *fcn) argument
7271 "the same %s statement", &stat->where, fcn, fcn);
7316 "the same %s statement", &errmsg->where, fcn, fcn);
7400 if (strcmp (fcn, "ALLOCATE") == 0)
|
| /haiku-buildtools/legacy/gcc/gcc/ |
| H A D | explow.c | 901 rtx (*fcn) PROTO ((rtx, rtx)) = gen_move_insn;
910 fcn = gen_save_stack_block;
916 fcn = gen_save_stack_function;
922 fcn = gen_save_stack_nonlocal;
957 emit_insn (fcn (sa, stack_pointer_rtx));
966 emit_insn (fcn (sa, stack_pointer_rtx));
983 rtx (*fcn) PROTO ((rtx, rtx)) = gen_move_insn;
991 fcn = gen_restore_stack_block;
997 fcn = gen_restore_stack_function;
1003 fcn
[all...] |
| /haiku-buildtools/gcc/gcc/ |
| H A D | explow.c | 994 rtx (*fcn) (rtx, rtx) = gen_move_insn;
1003 fcn = gen_save_stack_block;
1009 fcn = gen_save_stack_function;
1015 fcn = gen_save_stack_nonlocal;
1039 emit_insn (fcn (sa, stack_pointer_rtx));
1049 rtx (*fcn) (rtx, rtx) = gen_move_insn;
1071 fcn = gen_restore_stack_block;
1077 fcn = gen_restore_stack_function;
1083 fcn = gen_restore_stack_nonlocal;
1102 emit_insn (fcn (stack_pointer_rt
[all...] |
| /haiku-buildtools/legacy/binutils/gas/config/ |
| H A D | tc-sparc.c | 1536 int fcn = 0;
1541 if (! parse_keyword_arg (sparc_encode_prefetch, &s, &fcn))
1549 if (! parse_const_expr_arg (&s, &fcn))
1554 if (fcn < 0 || fcn > 31)
1560 opcode |= RD (fcn);
1527 int fcn = 0; local
|
| /haiku-buildtools/binutils/gas/config/ |
| H A D | tc-sparc.c | 1895 int fcn = 0;
1900 if (! parse_keyword_arg (sparc_encode_prefetch, &s, &fcn))
1908 if (! parse_const_expr_arg (&s, &fcn))
1913 if (fcn < 0 || fcn > 31)
1919 opcode |= RD (fcn);
1884 int fcn = 0; local
|