summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture
diff options
context:
space:
mode:
authorH.J. Lu <hongjiu.lu@intel.com>2011-08-19 21:18:03 +0000
committerH.J. Lu <hjl@gcc.gnu.org>2011-08-19 14:18:03 -0700
commit54f6892e4b7baa65bd5a16e5800258c319710e3c (patch)
tree1b85c27b72fa3bcaecc098807bd2c3f176de23b4 /gcc/testsuite/gfortran.fortran-torture
parentd4a83c103c7a266631bc93abcfebc2451a8d5dcd (diff)
Permute conversion and addition of constant for zero-extend.
gcc/ 2011-08-19 H.J. Lu <hongjiu.lu@intel.com> PR middle-end/49721 * explow.c (convert_memory_address_addr_space): Also permute the conversion and addition of constant for zero-extend. gcc/testsuite/ 2011-08-19 H.J. Lu <hongjiu.lu@intel.com> PR middle-end/49721 * gfortran.dg/pr49721-1.f: New. * gfortran.fortran-torture/compile/pr49721-1.f: Likewise. From-SVN: r177914
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
-rw-r--r--gcc/testsuite/gfortran.fortran-torture/compile/pr49721-1.f9
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/pr49721-1.f b/gcc/testsuite/gfortran.fortran-torture/compile/pr49721-1.f
new file mode 100644
index 00000000000..9ddd068cba6
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/compile/pr49721-1.f
@@ -0,0 +1,9 @@
+ PARAMETER( LM=7 )
+ PARAMETER( NM=2+2**LM, NV=NM**3 )
+ PARAMETER( NR = (8*(NM**3+NM**2+5*NM-23+7*LM))/7 )
+ COMMON /X/ U, V, R, A
+ REAL*8 U(NR),V(NV),R(NR),A(0:3)
+ DO 20 IT=1,NIT
+ CALL RESID(U,V,R,N,A)
+ 20 CONTINUE
+ END