diff options
| author | Marcin Dalecki <martin@dalecki.de> | 2006-10-23 14:20:56 +0000 |
|---|---|---|
| committer | Marcin Dalecki <martin@dalecki.de> | 2006-10-23 14:20:56 +0000 |
| commit | 46e02f6dd14ae7279e94be50f8f5473abcac97af (patch) | |
| tree | 9ab887994c957be985a0a73b8b26801920bd6637 /gcc/fortran/data.c | |
| parent | 6194350ff9feab15c279e8dcde95aefbd71a74b5 (diff) | |
Added the first working version of the C++ compatibility port. Everything with the notable exception of ADA just works now.c++-compat-branch
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/c++-compat-branch@117976 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/data.c')
| -rw-r--r-- | gcc/fortran/data.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 2ab6f507bbe..0feefc0e283 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -45,7 +45,7 @@ get_array_index (gfc_array_ref * ar, mpz_t * offset) { gfc_expr *e; int i; - try re; + check re; mpz_t delta; mpz_t tmp; @@ -155,7 +155,7 @@ create_character_intializer (gfc_expr * init, gfc_typespec * ts, init->expr_type = EXPR_CONSTANT; init->ts = *ts; - dest = gfc_getmem (len); + dest = (char *) gfc_getmem (len); init->value.character.length = len; init->value.character.string = dest; /* Blank the string if we're only setting a substring. */ |