1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/predcom-2.f b/gcc/testsuite/gfortran.dg/predcom-2.f
new file mode 100644
index 000000000..7e43cb07a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/predcom-2.f
@@ -0,0 +1,20 @@
+! PR 32220, ICE when the loop is not unrolled enough to eliminate all 
+!   register copies
+! { dg-do compile }
+! { dg-options "-O3" }
+
+      subroutine derv (b,cosxy,thick)
+c
+      common /shell4/xji(3,3)
+c
+      dimension cosxy(6,*),
+     1          thick(*),b(*)
+c
+
+      do 125 i=1,3
+      b(k2+i)=xji(i,1) + xji(i,2) + xji(i,3)
+  125 b(k3+i)=cosxy(i+3,kk) + cosxy(i,kk)
+c
+c
+      return
+      end