diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-07-19 20:29:18 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-07-19 20:29:18 +0200 |
| commit | 5e2be41f37d39b91e27c4d129a5861cfe80809ec (patch) | |
| tree | 7e56dd4f2c521e0c9b24826bf7475fda87f7a473 /gcc/fortran/matchexp.c | |
| parent | e513a086f036e9d3951fa7c184fdc323feefbae1 (diff) | |
| download | gcc-5e2be41f37d39b91e27c4d129a5861cfe80809ec.zip gcc-5e2be41f37d39b91e27c4d129a5861cfe80809ec.tar.gz gcc-5e2be41f37d39b91e27c4d129a5861cfe80809ec.tar.bz2 | |
re PR fortran/36795 (crash with character allocatable array argument)
2008-07-19 Tobias Burnus <burnus@net-b.de>
PR fortran/36795
* matchexp.c (gfc_get_parentheses): Remove obsolete workaround,
which caused the generation of wrong code.
2008-07-19 Tobias Burnus <burnus@net-b.de>
PR fortran/36795
* char_expr_1.f90: New.
* char_expr_2.f90: New.
From-SVN: r137986
Diffstat (limited to 'gcc/fortran/matchexp.c')
| -rw-r--r-- | gcc/fortran/matchexp.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/gcc/fortran/matchexp.c b/gcc/fortran/matchexp.c index a53c69b..0092f40 100644 --- a/gcc/fortran/matchexp.c +++ b/gcc/fortran/matchexp.c @@ -130,13 +130,6 @@ gfc_get_parentheses (gfc_expr *e) { gfc_expr *e2; - /* This is a temporary fix, awaiting the patch for various - other character problems. The resolution and translation - of substrings and concatenations are so kludged up that - putting parentheses around them breaks everything. */ - if (e->ts.type == BT_CHARACTER && e->ref) - return e; - e2 = gfc_get_expr(); e2->expr_type = EXPR_OP; e2->ts = e->ts; |