diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2007-04-07 20:29:13 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2007-04-07 20:29:13 +0000 |
| commit | 3c19e5e1a18fa59dd69c1a21e17619f6166c963e (patch) | |
| tree | f05c09f61a0b2a7d5ced0831c3bbf0a01f6fb8d3 /gcc/fortran/iresolve.c | |
| parent | 145bdc2cbc1237d3f3ab25f45d18f1fce7ecb2b5 (diff) | |
| download | gcc-3c19e5e1a18fa59dd69c1a21e17619f6166c963e.zip gcc-3c19e5e1a18fa59dd69c1a21e17619f6166c963e.tar.gz gcc-3c19e5e1a18fa59dd69c1a21e17619f6166c963e.tar.bz2 | |
re PR fortran/31257 (ICE in gfc_conv_expr_descriptor)
2007-04-07 Paul Thomas <pault@gcc.gnu.org>
PR fortran/31257
* intrinsic.c (add_functions): Add ref. to gfc_resolve_achar.
* intrinsic.h : Add prototype for gfc_resolve_achar.
* iresolve.c (gfc_resolve_achar): New function.
2007-04-07 Paul Thomas <pault@gcc.gnu.org>
PR fortran/31257
* gfortran.dg/achar_4.f90: New test.
From-SVN: r123646
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 12ecd06..14ed3e3 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -99,6 +99,22 @@ gfc_resolve_access (gfc_expr *f, gfc_expr *name ATTRIBUTE_UNUSED, void +gfc_resolve_achar (gfc_expr *f, gfc_expr *x) +{ + + f->ts.type = BT_CHARACTER; + f->ts.kind = gfc_default_character_kind; + f->ts.cl = gfc_get_charlen (); + f->ts.cl->next = gfc_current_ns->cl_list; + gfc_current_ns->cl_list = f->ts.cl; + f->ts.cl->length = gfc_int_expr (1); + + f->value.function.name + = gfc_get_string ("__achar_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); +} + + +void gfc_resolve_acos (gfc_expr *f, gfc_expr *x) { f->ts = x->ts; |