diff --git a/tools/qfcc/test/Makemodule.am b/tools/qfcc/test/Makemodule.am
index faf0eb9bb..078fa5bfa 100644
--- a/tools/qfcc/test/Makemodule.am
+++ b/tools/qfcc/test/Makemodule.am
@@ -10,6 +10,7 @@ fail_bins=
 test_progs_dat=\
 	tools/qfcc/test/address-cast.dat \
 	tools/qfcc/test/alignment.dat \
+	tools/qfcc/test/arraylife.dat \
 	tools/qfcc/test/assignchain.dat \
 	tools/qfcc/test/anonstruct.dat \
 	tools/qfcc/test/chewed-alias.dat \
@@ -157,6 +158,16 @@ tools/qfcc/test/anonstruct.run: $(qfcc_test_run_deps)
 include $(anonstruct_dep) # am--include-marker
 r_depfiles_remade += $(anonstruct_dep)
 
+tools_qfcc_test_arraylife_dat_SOURCES=tools/qfcc/test/arraylife.r
+arraylife_obj=$(tools_qfcc_test_arraylife_dat_SOURCES:.r=.o)
+arraylife_dep=$(call qcautodep,$(tools_qfcc_test_arraylife_dat_SOURCES))
+tools/qfcc/test/arraylife.dat$(EXEEXT): $(arraylife_obj) $(QFCC_DEP)
+	$(V_QFCCLD)$(QLINK) -o $@ $(arraylife_obj)
+tools/qfcc/test/arraylife.run: $(qfcc_test_run_deps)
+	@$(top_srcdir)/tools/qfcc/test/build-run $@
+include $(arraylife_dep) # am--include-marker
+r_depfiles_remade += $(arraylife_dep)
+
 tools_qfcc_test_assignchain_dat_SOURCES=tools/qfcc/test/assignchain.r
 assignchain_obj=$(tools_qfcc_test_assignchain_dat_SOURCES:.r=.o)
 assignchain_dep=$(call qcautodep,$(tools_qfcc_test_assignchain_dat_SOURCES))
diff --git a/tools/qfcc/test/arraylife.r b/tools/qfcc/test/arraylife.r
new file mode 100644
index 000000000..7df0ea8a8
--- /dev/null
+++ b/tools/qfcc/test/arraylife.r
@@ -0,0 +1,20 @@
+vector
+bar (float *v)
+{
+	return [v[0], v[1], v[2]];
+}
+
+vector
+foo (float x, float y, float z)
+{
+	float v[3] = { x, y, z };
+	return bar (&v[0]);
+}
+
+int
+main ()
+{
+	int ret = 0;
+	ret |= foo(1,2,3) != [1, 2, 3];
+	return ret;
+}