FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/35937 (Wrong type for charlength of function)

Browse source 
2008-12-14  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/35937
	* trans-expr.c (gfc_finish_interface_mapping): Fold convert the
	character length to gfc_charlen_type_node.

2008-12-14  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/35937
	* gfortran.dg/char_length_14.f90: New test.

From-SVN: r142750
This commit is contained in:
Paul Thomas 2008-12-14 16:00:25 +00:00
parent 7379374526
commit 18dd272dfd
4 changed files with 35 additions and 1 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 @@
2008-12-14 Paul Thomas <pault@gcc.gnu.org>
PR fortran/35937
* trans-expr.c (gfc_finish_interface_mapping): Fold convert the
character length to gfc_charlen_type_node.
2008-12-12 Daniel Franke <franke.daniel@gmail.com>
PR fortran/36355

2
gcc/fortran/trans-expr.c
View file

@ -1830,7 +1830,7 @@ gfc_finish_interface_mapping (gfc_interface_mapping * mapping,
gfc_apply_interface_mapping_to_expr (mapping, expr);
gfc_init_se (&se, NULL);
gfc_conv_expr (&se, expr);
se.expr = fold_convert (gfc_charlen_type_node, se.expr);
se.expr = gfc_evaluate_now (se.expr, &se.pre);
gfc_add_block_to_block (pre, &se.pre);
gfc_add_block_to_block (post, &se.post);

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2008-12-14 Paul Thomas <pault@gcc.gnu.org>
PR fortran/35937
* gfortran.dg/char_length_14.f90: New test.
2008-12-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/38504

23
gcc/testsuite/gfortran.dg/char_length_14.f90 Normal file
View file

@ -0,0 +1,23 @@
! { dg-do run }
! PR35937, in which letting the length of 'c' to kind = 8 would
! screw up the interface and would cause an ICE. Note that this is
! actually the example of comment #4.
!
! Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>
!
program main
implicit none
if (f5 ('1') .ne. "a") call abort
if (len (f5 ('1')) .ne. 1) call abort
if (f5 ('4') .ne. "abcd") call abort
if (len (f5 ('4')) .ne. 4) call abort
contains
function f5 (c)
character(len=1_8) :: c
character(len=scan('123456789', c)) :: f5
integer :: i
do i = 1, len (f5)
f5(i:i) = char (i+96)
end do
end function f5
end program main