diff options
author | Christopher D. Rickett <crickett@lanl.gov> | 2007-08-07 00:27:25 +0000 |
---|---|---|
committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2007-08-07 00:27:25 +0000 |
commit | e032c2a16e87f7e1a3d00be8c0f962104038b088 (patch) | |
tree | 9c712a82e188eac02acefd1674eeebba1a691c46 /gcc/fortran/trans.h | |
parent | 55eece47212d1846d59de07dfeb762692614265a (diff) | |
download | gcc-e032c2a16e87f7e1a3d00be8c0f962104038b088.zip gcc-e032c2a16e87f7e1a3d00be8c0f962104038b088.tar.gz gcc-e032c2a16e87f7e1a3d00be8c0f962104038b088.tar.bz2 |
re PR fortran/32732 ([Bind C] Character scalars are passed as arrays)
2007-08-06 Christopher D. Rickett <crickett@lanl.gov>
PR fortran/32732
* trans-expr.c (gfc_conv_scalar_char_value): Convert the tree and
actual arg expressions for scalar characters passed by-value to
bind(c) routines.
(gfc_conv_function_call): Call gfc_conv_scalar_char_value.
* trans.h: Add prototype for gfc_conv_scalar_char_value.
* trans-decl.c (generate_local_decl): Convert by-value character
dummy args of bind(c) procedures using
gfc_conv_scalar_char_value.
From-SVN: r127265
Diffstat (limited to 'gcc/fortran/trans.h')
-rw-r--r-- | gcc/fortran/trans.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 8226187..645f9a3 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -295,6 +295,9 @@ void gfc_conv_expr_lhs (gfc_se * se, gfc_expr * expr); void gfc_conv_expr_reference (gfc_se * se, gfc_expr *); void gfc_conv_expr_type (gfc_se * se, gfc_expr *, tree); +/* trans-expr.c */ +void gfc_conv_scalar_char_value (gfc_symbol *sym, gfc_se *se, gfc_expr **expr); + /* Find the decl containing the auxiliary variables for assigned variables. */ void gfc_conv_label_variable (gfc_se * se, gfc_expr * expr); /* If the value is not constant, Create a temporary and copy the value. */ |