diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 20:31:45 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-12-13 20:31:45 +0000 |
| commit | 8b8484b4c7064d2aef3b9db4c5dc4410e4767007 (patch) | |
| tree | 7490068c518c7a37a24975f274d5f47a48c77b61 /gcc/fortran/trans-decl.c | |
| parent | 442c1e06790600fe721015acaa931f030d33eb03 (diff) | |
| download | gcc-8b8484b4c7064d2aef3b9db4c5dc4410e4767007.tar.gz | |
2007-12-13 Anton Korobeynikov <asl@math.spbu.ru>
* trans-decl.c (gfc_build_builtin_function_decls): Correct decl
construction for select_string() and internal_unpack()
2007-12-13 Duncan Sands <baldrick@free.fr>
Anton Korobeynikov <asl@math.spbu.ru>
* trans-expr.c (gfc_conv_structure): Make sure record
* constructors
for static variables are marked constant.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130914 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 96beed224e6..876219fed66 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2325,7 +2325,9 @@ gfc_build_builtin_function_decls (void) gfor_fndecl_select_string = gfc_build_library_function_decl (get_identifier (PREFIX("select_string")), - integer_type_node, 0); + integer_type_node, 4, pvoid_type_node, + integer_type_node, pchar_type_node, + integer_type_node); gfor_fndecl_runtime_error = gfc_build_library_function_decl (get_identifier (PREFIX("runtime_error")), @@ -2379,7 +2381,7 @@ gfc_build_builtin_function_decls (void) gfor_fndecl_in_unpack = gfc_build_library_function_decl ( get_identifier (PREFIX("internal_unpack")), - pvoid_type_node, 1, pvoid_type_node); + void_type_node, 2, pvoid_type_node, pvoid_type_node); gfor_fndecl_associated = gfc_build_library_function_decl ( |