2005-05-18 Feng Wang <fengwang@nudt.edu.cn>
PR fortran/20954
* trans-const.c (gfc_conv_const_charlen): Use gfc_charlen_type_node to
build character length.
2005-05-18 Feng Wang <fengwang@nudt.edu.cn>
PR fortran/20954
* gfortran.dg/pr20954.f: New test.
From-SVN: r99892
+2005-05-18 Feng Wang <fengwang@nudt.edu.cn>
+
+ PR fortran/20954
+ * trans-const.c (gfc_conv_const_charlen): Use gfc_charlen_type_node to
+ build character length.
+
2005-05-17 Zdenek Dvorak <dvorakz@suse.cz>
* trans-types.c (gfc_array_range_type): New variable.
{
cl->backend_decl = gfc_conv_mpz_to_tree (cl->length->value.integer,
cl->length->ts.kind);
+ cl->backend_decl = fold_convert (gfc_charlen_type_node,
+ cl->backend_decl);
}
}
+2005-05-18 Feng Wang <fengwang@nudt.edu.cn>
+
+ PR fortran/20954
+ * gfortran.dg/pr20954.f: New test.
+
2005-05-17 Mike Stump <mrs@apple.com>
Yet more Objective-C++...
libiberty.h.
* gcc.dg/compat/generate-random_r.c: Likewise.
+>>>>>>> 1.5488
2005-05-17 Paolo Bonzini <bonzini@gnu.org>
* gcc.dg/fold-div-1.c, gcc.dg/recip-1.c, gcc.dg/recip-2.c: New.
--- /dev/null
+ ! { dg-do run }
+ ! { dg-options "-fdefault-integer-8" }
+ ! Program to test character length type
+ Program pr20954
+ character*16 string (5)
+ character*5 filename
+ character*80 line
+ filename = 'input'
+ open (2,file=filename)
+ write (line, '(5a16)') (string(i),i=1,5)
+ end