diff --git a/gcc/testsuite/gfortran.dg/pr41043.f90 b/gcc/testsuite/gfortran.dg/pr41043.f90
new file mode 100644
index 00000000000..fab428b4d20
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr41043.f90
@@ -0,0 +1,11 @@
+! { dg-do compile }
+! { dg-options "-O2" }
+      subroutine foo
+      implicit none
+
+      integer :: i
+
+      call gee_i(int(i**huge(0_8),kind=kind(i)))
+
+      end subroutine foo
+