]>
Commit | Line | Data |
---|---|---|
4ee9c684 | 1 | /* Header for statement translation functions |
f1717362 | 2 | Copyright (C) 2002-2016 Free Software Foundation, Inc. |
4ee9c684 | 3 | Contributed by Paul Brook |
4 | ||
c84b470d | 5 | This file is part of GCC. |
4ee9c684 | 6 | |
c84b470d | 7 | GCC is free software; you can redistribute it and/or modify it under |
8 | the terms of the GNU General Public License as published by the Free | |
bdabe786 | 9 | Software Foundation; either version 3, or (at your option) any later |
c84b470d | 10 | version. |
4ee9c684 | 11 | |
c84b470d | 12 | GCC is distributed in the hope that it will be useful, but WITHOUT ANY |
13 | WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
14 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
15 | for more details. | |
4ee9c684 | 16 | |
17 | You should have received a copy of the GNU General Public License | |
bdabe786 | 18 | along with GCC; see the file COPYING3. If not see |
19 | <http://www.gnu.org/licenses/>. */ | |
4ee9c684 | 20 | |
21 | /* Statement translators (gfc_trans_*) return a fully translated tree. | |
22 | Calls gfc_trans_*. */ | |
23 | tree gfc_trans_code (gfc_code *); | |
24 | ||
1e8c7f7a | 25 | /* Wrapper function used to pass a check condition for implied DO loops. */ |
26 | tree gfc_trans_code_cond (gfc_code *, tree); | |
27 | ||
4ee9c684 | 28 | /* All other gfc_trans_* should only need be called by gfc_trans_code */ |
29 | ||
30 | /* trans-expr.c */ | |
31 | tree gfc_trans_assign (gfc_code *); | |
32 | tree gfc_trans_pointer_assign (gfc_code *); | |
b9cd8c56 | 33 | tree gfc_trans_init_assign (gfc_code *); |
0fc13348 | 34 | tree gfc_trans_class_init_assign (gfc_code *); |
35 | tree gfc_trans_class_assign (gfc_expr *, gfc_expr *, gfc_exec_op); | |
4ee9c684 | 36 | |
37 | /* trans-stmt.c */ | |
38 | tree gfc_trans_cycle (gfc_code *); | |
c6cd3066 | 39 | tree gfc_trans_critical (gfc_code *); |
4ee9c684 | 40 | tree gfc_trans_exit (gfc_code *); |
41 | tree gfc_trans_label_assign (gfc_code *); | |
42 | tree gfc_trans_label_here (gfc_code *); | |
43 | tree gfc_trans_goto (gfc_code *); | |
1b716045 | 44 | tree gfc_trans_entry (gfc_code *); |
4ee9c684 | 45 | tree gfc_trans_pause (gfc_code *); |
c6cd3066 | 46 | tree gfc_trans_stop (gfc_code *, bool); |
b36b5dd2 | 47 | tree gfc_trans_call (gfc_code *, bool, tree, tree, bool); |
4ee9c684 | 48 | tree gfc_trans_return (gfc_code *); |
49 | tree gfc_trans_if (gfc_code *); | |
50 | tree gfc_trans_arithmetic_if (gfc_code *); | |
6a7084d7 | 51 | tree gfc_trans_block_construct (gfc_code *); |
1e8c7f7a | 52 | tree gfc_trans_do (gfc_code *, tree); |
55ea8666 | 53 | tree gfc_trans_do_concurrent (gfc_code *); |
4ee9c684 | 54 | tree gfc_trans_do_while (gfc_code *); |
55 | tree gfc_trans_select (gfc_code *); | |
c6cd3066 | 56 | tree gfc_trans_sync (gfc_code *, gfc_exec_op); |
c135f087 | 57 | tree gfc_trans_lock_unlock (gfc_code *, gfc_exec_op); |
bd47f0bc | 58 | tree gfc_trans_event_post_wait (gfc_code *, gfc_exec_op); |
4ee9c684 | 59 | tree gfc_trans_forall (gfc_code *); |
60 | tree gfc_trans_where (gfc_code *); | |
61 | tree gfc_trans_allocate (gfc_code *); | |
62 | tree gfc_trans_deallocate (gfc_code *); | |
63 | tree gfc_trans_deallocate_array (tree); | |
64 | ||
764f1175 | 65 | /* trans-openmp.c */ |
66 | tree gfc_trans_omp_directive (gfc_code *); | |
15b28553 | 67 | void gfc_trans_omp_declare_simd (gfc_namespace *); |
764f1175 | 68 | |
ca4c3545 | 69 | /* trans-openacc.c */ |
70 | tree gfc_trans_oacc_directive (gfc_code *); | |
01d728a4 | 71 | tree gfc_trans_oacc_declare (gfc_namespace *); |
ca4c3545 | 72 | |
4ee9c684 | 73 | /* trans-io.c */ |
74 | tree gfc_trans_open (gfc_code *); | |
75 | tree gfc_trans_close (gfc_code *); | |
76 | tree gfc_trans_read (gfc_code *); | |
77 | tree gfc_trans_write (gfc_code *); | |
78 | tree gfc_trans_iolength (gfc_code *); | |
79 | tree gfc_trans_backspace (gfc_code *); | |
80 | tree gfc_trans_endfile (gfc_code *); | |
81 | tree gfc_trans_inquire (gfc_code *); | |
82 | tree gfc_trans_rewind (gfc_code *); | |
6c306f90 | 83 | tree gfc_trans_flush (gfc_code *); |
4ee9c684 | 84 | |
85 | tree gfc_trans_transfer (gfc_code *); | |
86 | tree gfc_trans_dt_end (gfc_code *); | |
ff6af856 | 87 | tree gfc_trans_wait (gfc_code *); |