OSDN Git Service

PR fortran/33881
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 3 Nov 2007 22:12:03 +0000 (22:12 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 3 Nov 2007 22:12:03 +0000 (22:12 +0000)
commit5d88b6dd8eaa2d8b5c2f64cf242396a59d9710ed
treeae8c90b0319ebd7c47e711f7535fc641f08f902a
parentce53604aa79a9218d85c2041a800bd6e98f15218
PR fortran/33881

* trans-array.c (gfc_conv_array_parameter): Evaluate
se->string_length instead of the expr->ts.cl->backend_decl.

* gfortran.dg/assumed_charlen_arg_1.f90: New test.

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