OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

New helper function to return the standard that supports this isocbinding symbol.Do not generate GNU extension symbols if std=f2003. Add new parameter to NAMED_INTCST.

Browse Source 
From-SVN: r135341
This commit is contained in:
Sa Liu 2008-05-15 12:51:56 +00:00
parent ec9231857b
commit 05e73743d5
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gcc/fortran/symbol.c
View File

@ -3740,6 +3740,20 @@ build_formal_args (gfc_symbol *new_proc_sym,
gfc_current_ns = parent_ns;
}
static int
std_for_isocbinding_symbol (int id)
{
switch (id)
{
#define NAMED_INTCST(a,b,c,d) \
case a:\
return d;
#include "iso-c-binding.def"
#undef NAMED_INTCST
default:
return GFC_STD_F2003;
}
}
/* Generate the given set of C interoperable kind objects, or all
interoperable kinds. This function will only be given kind objects
@ -3765,6 +3779,8 @@ generate_isocbinding_symbol (const char *mod_name, iso_c_binding_symbol s,
char comp_name[(GFC_MAX_SYMBOL_LEN * 2) + 1];
int index;
if (gfc_notification_std (std_for_isocbinding_symbol (s)) == FAILURE)
return;
tmp_symtree = gfc_find_symtree (gfc_current_ns->sym_root, name);
/* Already exists in this scope so don't re-add it.
@ -3788,7 +3804,7 @@ generate_isocbinding_symbol (const char *mod_name, iso_c_binding_symbol s,
switch (s)
{
#define NAMED_INTCST(a,b,c) case a :
#define NAMED_INTCST(a,b,c,d) case a :
#define NAMED_REALCST(a,b,c) case a :
#define NAMED_CMPXCST(a,b,c) case a :
#define NAMED_LOGCST(a,b,c) case a :