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 | |
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')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/simplify.c | 5 |
2 files changed, 6 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8d15bf2..04220ab 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-05-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/31764 + * simplify.c (gfc_simplify_new_line): NEW_LINE can be simplified + even for non constant arguments. + 2007-05-06 Jerry DeLisle <jvdelisle@gcc.gnu.org> Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 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 */ |