diff options
| author | Tobias Burnus <burnus@net-b.de> | 2009-06-28 19:56:41 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-06-28 19:56:41 +0200 |
| commit | 08a6b8e049f9935cc314a669b2120ff07cd7fbeb (patch) | |
| tree | 49b09d2f1e0cfee1a1f1901ff04e9da4c8a351d1 /gcc/fortran/module.c | |
| parent | 0948ccb243a5b2244bef375addc6f1a4b3a2f526 (diff) | |
| download | gcc-08a6b8e049f9935cc314a669b2120ff07cd7fbeb.zip gcc-08a6b8e049f9935cc314a669b2120ff07cd7fbeb.tar.gz gcc-08a6b8e049f9935cc314a669b2120ff07cd7fbeb.tar.bz2 | |
re PR fortran/34112 (Add $!DEC ATTRIBUTE support for 32bit Windows' STDCALL)
2009-06-28 Tobias Burnus <burnus@net-b.de>
Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/34112
* symbol.c (gfc_add_ext_attribute): New function.
(gfc_get_sym_tree): New argument allow_subroutine.
(gfc_get_symbol,gfc_get_ha_sym_tree,gen_cptr_param,gen_fptr_param
gen_shape_param,generate_isocbinding_symbol): Use it.
* decl.c (find_special): New argument allow_subroutine.
(add_init_expr_to_sym,add_hidden_procptr_result,attr_decl1,
match_procedure_in_type,gfc_match_final_decl): Use it.
(gfc_match_gcc_attributes): New function.
* gfortran.texi (Mixed-Language Programming): New section
"GNU Fortran Compiler Directives".
* gfortran.h (ext_attr_t): New struct.
(symbol_attributes): Use it.
(gfc_add_ext_attribute): New prototype.
(gfc_get_sym_tree): Update pototype.
* expr.c (gfc_check_pointer_assign): Check whether call
convention is the same.
* module.c (import_iso_c_binding_module, create_int_parameter,
use_iso_fortran_env_module): Update gfc_get_sym_tree call.
* scanner.c (skip_gcc_attribute): New function.
(skip_free_comments,skip_fixed_comments): Use it.
(gfc_next_char_literal): Support !GCC$ lines.
* resolve.c (check_host_association): Update
gfc_get_sym_tree call.
* match.c (gfc_match_sym_tree,gfc_match_call): Update
gfc_get_sym_tree call.
* trans-decl.c (add_attributes_to_decl): New function.
(gfc_get_symbol_decl,get_proc_pointer_decl,
gfc_get_extern_function_decl,build_function_decl: Use it.
* match.h (gfc_match_gcc_attributes): Add prototype.
* parse.c (decode_gcc_attribute): New function.
(next_free,next_fixed): Support !GCC$ lines.
* primary.c (match_actual_arg,check_for_implicit_index,
gfc_match_rvalue,gfc_match_rvalue): Update
gfc_get_sym_tree call.
2009-06-28 Tobias Burnus <burnus@net-b.de>
PR fortran/34112
* gfortran.dg/compiler-directive_1.f90: New test.
* gfortran.dg/compiler-directive_2.f: New test.
Co-Authored-By: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
From-SVN: r149036
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 15b1b5d..7e6e8ff 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -5006,7 +5006,8 @@ import_iso_c_binding_module (void) if (mod_symtree == NULL) { /* symtree doesn't already exist in current namespace. */ - gfc_get_sym_tree (iso_c_module_name, gfc_current_ns, &mod_symtree); + gfc_get_sym_tree (iso_c_module_name, gfc_current_ns, &mod_symtree, + false); if (mod_symtree != NULL) mod_sym = mod_symtree->n.sym; @@ -5094,7 +5095,7 @@ create_int_parameter (const char *name, int value, const char *modname, gfc_error ("Symbol '%s' already declared", name); } - gfc_get_sym_tree (name, gfc_current_ns, &tmp_symtree); + gfc_get_sym_tree (name, gfc_current_ns, &tmp_symtree, false); sym = tmp_symtree->n.sym; sym->module = gfc_get_string (modname); @@ -5135,7 +5136,7 @@ use_iso_fortran_env_module (void) mod_symtree = gfc_find_symtree (gfc_current_ns->sym_root, mod); if (mod_symtree == NULL) { - gfc_get_sym_tree (mod, gfc_current_ns, &mod_symtree); + gfc_get_sym_tree (mod, gfc_current_ns, &mod_symtree, false); gcc_assert (mod_symtree); mod_sym = mod_symtree->n.sym; |