mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-21 15:41:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/13249 (Error when using COMMON)

Browse Source 
PR fortran/13249
	* symbol.c (gfc_add_common): Disable checks to work around other more
	fundamental inadequacies.

From-SVN: r82134
This commit is contained in:
Victor Leikehman 2004-05-22 17:51:16 +03:00 committed by Paul Brook
parent ae5cbc332f
commit b672076889
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2004-05-22 Victor Leikehman <lei@haifasphere.co.il>
PR fortran/13249
* symbol.c (gfc_add_common): Disable checks to work around other more
fundamental inadequacies.
2004-05-22 Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
* trans-decl.c (gfc_get_extern_function_decl): Set DECL_IS_PURE

6
gcc/fortran/symbol.c
View File

@ -722,9 +722,13 @@ gfc_add_dummy (symbol_attribute * attr, locus * where)
try
gfc_add_common (symbol_attribute * attr, locus * where)
{
/* TODO: We currently add common blocks into the same namespace as normal
variables. This is wrong. Disable the checks below as a temporary
hack. See PR13249 */
#if 0
if (check_used (attr, where) || check_done (attr, where))
return FAILURE;
#endif
attr->common = 1;
return check_conflict (attr, where);