OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/20954 (gfortran - internal compiler error with -fdefault-integer-8)

Browse Source 
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
This commit is contained in:
Feng Wang 2005-05-18 09:54:21 +00:00
parent d14f5ecbef
commit 1e7d0a6431
4 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
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.

2
gcc/fortran/trans-const.c
View File

@ -141,6 +141,8 @@ gfc_conv_const_charlen (gfc_charlen * cl)
{
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);
}
}

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
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++...
@ -26,6 +31,7 @@
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.

11
gcc/testsuite/gfortran.dg/pr20954.f Normal file
View File

@ -0,0 +1,11 @@
! { 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