From 69f2e30bdf172b4da70921bf9deee0bac2628d00 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 27 Jan 2008 19:50:16 +0000 Subject: [PATCH] re PR fortran/34990 (ICE in gfc_typenode_for_spec, at fortran/trans-types.c:842) 2008-01-27 Jerry DeLisle PR fortran/34990 * gfortran.dg/array_constructor_22.f90: New test. From-SVN: r131891 --- gcc/testsuite/ChangeLog | 5 ++++ .../gfortran.dg/array_constructor_22.f90 | 27 +++++++++++++++++++ 2 files changed, 32 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/array_constructor_22.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6a6ba462230..e16cb7d359e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-01-27 Jerry DeLisle + + PR fortran/34990 + * gfortran.dg/array_constructor_22.f90: New test. + 2008-01-26 Maxim Kuvyrkov PR middle-end/34688 diff --git a/gcc/testsuite/gfortran.dg/array_constructor_22.f90 b/gcc/testsuite/gfortran.dg/array_constructor_22.f90 new file mode 100644 index 00000000000..d29039a80e6 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/array_constructor_22.f90 @@ -0,0 +1,27 @@ +! { dg-do compile } +! PR34990 ICE in gfc_typenode_for_spec, at fortran/trans-types.c:842 +! Test case that of the reporters. +module test + implicit none + contains + function my_string(x) + integer i + real, intent(in) :: x(:) + character(0) h4(1:minval([(1,i=1,0)],1)) + character(0) sv1(size(x,1):size(h4)) + character(0) sv2(2*lbound(sv1,1):size(h4)) + character(lbound(sv2,1)-3) my_string + + do i = 1, len(my_string) + my_string(i:i) = achar(modulo(i-1,10)+iachar('0')) + end do + end function my_string +end module test + +program len_test + use test + implicit none + real x(7) + + write(*,*) my_string(x) +end program len_test -- 2.30.2