diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2009-08-09 10:35:36 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2009-08-09 10:35:36 +0200 |
| commit | 2b374f55986f4d4c84d1af9a9a6be1c8d72b1e91 (patch) | |
| tree | 062189decd4fd69dc34c13ea034acb58e8725c39 /gcc/fortran/expr.c | |
| parent | 2c08497af02c674b5f87b988b55f8a79d2e77195 (diff) | |
| download | gcc-2b374f55986f4d4c84d1af9a9a6be1c8d72b1e91.zip gcc-2b374f55986f4d4c84d1af9a9a6be1c8d72b1e91.tar.gz gcc-2b374f55986f4d4c84d1af9a9a6be1c8d72b1e91.tar.bz2 | |
re PR fortran/40955 (STDCALL attributes are not saved in the .MOD files)
2009-08-05 Tobias Burnus <burnus@net-b.de>
PR fortran/40955
* gfortran.h (ext_attr_id_t): Add typedef for this enum.
(gfc_add_ext_attribute): Use it.
* decl.c (gfc_match_gcc_attributes): Ditto.
* expr.c (gfc_check_pointer_assign): Ditto.
* symbol.c (gfc_add_ext_attribute): Ditto.
(gfc_copy_attr): Copy also ext_attr.
* resolve.c (resolve_fl_derived,resolve_symbol): Ditto.
* module.c (mio_symbol_attribute): Save ext_attr in the mod
* file.
2009-08-05 Tobias Burnus <burnus@net-b.de>
PR fortran/40955
* gfortran.dg/module_md5_1.f90: Update MD5 check sum.
From-SVN: r150589
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index df399b9..b0e58b3 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -3195,9 +3195,9 @@ gfc_check_pointer_assign (gfc_expr *lvalue, gfc_expr *rvalue) symbol_attribute cdecl, stdcall, fastcall; unsigned calls; - gfc_add_ext_attribute (&cdecl, (unsigned) EXT_ATTR_CDECL, NULL); - gfc_add_ext_attribute (&stdcall, (unsigned) EXT_ATTR_STDCALL, NULL); - gfc_add_ext_attribute (&fastcall, (unsigned) EXT_ATTR_FASTCALL, NULL); + gfc_add_ext_attribute (&cdecl, EXT_ATTR_CDECL, NULL); + gfc_add_ext_attribute (&stdcall, EXT_ATTR_STDCALL, NULL); + gfc_add_ext_attribute (&fastcall, EXT_ATTR_FASTCALL, NULL); calls = cdecl.ext_attr | stdcall.ext_attr | fastcall.ext_attr; if ((calls & lvalue->symtree->n.sym->attr.ext_attr) |