diff options
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr63821.f90 | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 10c4e6f9faf..7b284c10537 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2014-11-12 Richard Biener <rguenther@suse.de> + + PR middle-end/63821 + * gfortran.dg/pr63821.f90: New testcase. + 2014-11-12 Thomas Preud'homme <thomas.preudhomme@arm.com> PR tree-optimization/63761 diff --git a/gcc/testsuite/gfortran.dg/pr63821.f90 b/gcc/testsuite/gfortran.dg/pr63821.f90 new file mode 100644 index 00000000000..b26f4d788a4 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr63821.f90 @@ -0,0 +1,17 @@ +! { dg-do compile } +! { dg-options "-O3" } +SUBROUTINE calculates_green_opt() + INTEGER, PARAMETER :: dp=8 + REAL(KIND=dp), ALLOCATABLE, DIMENSION(:) :: green, green1 + ALLOCATE(green(-nrec:nrec),stat=i_all) + DO ikern=1,nrec + green(-ikern)=gleft+gright + IF (ABS(green(ikern)) <= 1.e-20_dp) THEN + nrec=ikern + EXIT + END IF + END DO + ALLOCATE(green1(-nrec:nrec),stat=i_all) + CALL scf_recursion(nrec,green(-nrec),green1(-nrec)) +END SUBROUTINE calculates_green_opt + |