diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-27 19:50:16 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-01-27 19:50:16 +0000 |
| commit | 69f2e30bdf172b4da70921bf9deee0bac2628d00 (patch) | |
| tree | 961c1850843be0427059e32c803522870f7b9ff4 | |
| parent | 938f31f19253cd34fff846b86bfa7eabe539e634 (diff) | |
| download | gcc-69f2e30bdf172b4da70921bf9deee0bac2628d00.zip gcc-69f2e30bdf172b4da70921bf9deee0bac2628d00.tar.gz gcc-69f2e30bdf172b4da70921bf9deee0bac2628d00.tar.bz2 | |
re PR fortran/34990 (ICE in gfc_typenode_for_spec, at fortran/trans-types.c:842)
2008-01-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/34990
* gfortran.dg/array_constructor_22.f90: New test.
From-SVN: r131891
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/array_constructor_22.f90 | 27 |
2 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6a6ba46..e16cb7d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-01-27 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/34990 + * gfortran.dg/array_constructor_22.f90: New test. + 2008-01-26 Maxim Kuvyrkov <maxim@codesourcery.com> 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 0000000..d29039a --- /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 |