diff -Nurd -x'*~' qrupdate-1.1.2.orig/test/utils.f qrupdate-1.1.2/test/utils.f
--- qrupdate-1.1.2.orig/test/utils.f	2010-02-11 05:45:19.000000000 -0500
+++ qrupdate-1.1.2/test/utils.f	2019-11-03 01:35:23.000000000 -0400
@@ -68,7 +68,7 @@
       subroutine zrandg(m,n,x,ldx)
       integer m,n,ldx
       double complex x(ldx,*)
-      external srandg
+      external drandg
       call drandg(2*m,n,x,2*ldx)
       end subroutine