From d5a8d70496b2617db76099153eb9984ca7f66294 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 9 Jan 2010 18:31:00 +0000 Subject: [PATCH] re PR fortran/32489 (Endless loop when compiling - middle-end?) 2010-01-09 Jerry DeLisle PR fortran/32489 * gfortran.dg/array_constructor_33.f90: New test. gfortran.dg/array_function_5.f90: Add credit. From-SVN: r155772 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/array_constructor_33.f90 | 10 ++++++++++ gcc/testsuite/gfortran.dg/array_function_5.f90 | 1 + 3 files changed, 17 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/array_constructor_33.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0b2c3a56a34..c2e9144a847 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2010-01-09 Jerry DeLisle + + PR fortran/32489 + * gfortran.dg/array_constructor_33.f90: New test. + gfortran.dg/array_function_5.f90: Add credit. + 2010-01-09 Alexandre Oliva PR debug/42631 diff --git a/gcc/testsuite/gfortran.dg/array_constructor_33.f90 b/gcc/testsuite/gfortran.dg/array_constructor_33.f90 new file mode 100644 index 00000000000..7a7c6fa2e2f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/array_constructor_33.f90 @@ -0,0 +1,10 @@ +! { dg-do compile } +! PR20923 gfortran slow for large array constructors. +! Test case prepared from PR by Jerry DeLisle +program sel + implicit none + integer(kind=4),parameter :: n=1000 + integer(kind=4) :: i,j + real(kind=4),dimension(n*n) :: vect + vect(:) = (/ ((( (i+j+3)),i=1,n),j=1,n) /) +end diff --git a/gcc/testsuite/gfortran.dg/array_function_5.f90 b/gcc/testsuite/gfortran.dg/array_function_5.f90 index da4873b6f16..05f3c92d02b 100644 --- a/gcc/testsuite/gfortran.dg/array_function_5.f90 +++ b/gcc/testsuite/gfortran.dg/array_function_5.f90 @@ -1,6 +1,7 @@ ! { dg-do run ) ! PR41278 internal compiler error related to matmul and transpose ! Test case prepared by Jerry DeLisle +! Original test case by Chris program bug implicit none real, dimension(3,3) :: matA,matB,matC