OSDN Git Service

2005-04-05 Feng Wang <fengwang@nudt.edu.cn>
authorfengwang <fengwang@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 5 Apr 2005 08:54:50 +0000 (08:54 +0000)
committerfengwang <fengwang@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 5 Apr 2005 08:54:50 +0000 (08:54 +0000)
commita270dc8e86a1a576245362a6b732ecaba54b0d20
treef6c74a9c71a05857596eb14d9cf27f90b0dd91cb
parent144c946d7b6dbc9eec60d52dde28d2a2158969fb
2005-04-05  Feng Wang  <fengwang@nudt.edu.cn>

PR fortran/15959
PR fortran/20713

* array.c (resolve_character_array_constructor): New function. Set
constant character array's character length.
(gfc_resolve_array_constructor): Use it.
* decl.c (add_init_expr_to_sym): Set symbol and initializer character
length.
(gfc_set_constant_character_len): New function. Set constant character
expression according the given length.
* match.h (gfc_set_constant_character_len): Add prototype.

2005-04-05  Feng Wang  <fengwang@nudt.edu.cn>

* gfortran.dg/pr15959.f90: New test.
* gfortran.dg/string_pad_trunc.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97613 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/array.c
gcc/fortran/decl.c
gcc/fortran/match.h
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/pr15959.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/string_pad_trunc.f90 [new file with mode: 0644]