diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-05-06 22:56:52 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-05-06 22:56:52 +0000 |
| commit | 22aef73f17b09c1805aee5bb4a64f1e012bec49d (patch) | |
| tree | 2927bdf1c5e6166302a007c1ab8e0e1105334d9b /gcc/fortran/simplify.c | |
| parent | 28fe1c4032687045633a19b9a7746c4bc9f5474f (diff) | |
| download | gcc-22aef73f17b09c1805aee5bb4a64f1e012bec49d.zip gcc-22aef73f17b09c1805aee5bb4a64f1e012bec49d.tar.gz gcc-22aef73f17b09c1805aee5bb4a64f1e012bec49d.tar.bz2 | |
re PR fortran/31764 (NEW_LINE with array argument)
PR fortran/31764
* simplify.c (gfc_simplify_new_line): NEW_LINE can be simplified
even for non constant arguments.
* gfortran.dg/new_line.f90: Add new checks.
From-SVN: r124482
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 9df2e81..ed62ee3 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -2641,13 +2641,8 @@ gfc_simplify_new_line (gfc_expr *e) { gfc_expr *result; - if (e->expr_type != EXPR_CONSTANT) - return NULL; - result = gfc_constant_result (BT_CHARACTER, e->ts.kind, &e->where); - result->value.character.string = gfc_getmem (2); - result->value.character.length = 1; result->value.character.string[0] = '\n'; result->value.character.string[1] = '\0'; /* For debugger */ |