From cbae6efa78ccefbd5e78161904217142803eded7 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sat, 22 Mar 2025 06:38:46 -0700
Subject: [PATCH] Add another multivalue return test for pointer lvalues

---
 src/samplesrc/test.pla | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/samplesrc/test.pla b/src/samplesrc/test.pla
index 67678d4..b6bacec 100755
--- a/src/samplesrc/test.pla
+++ b/src/samplesrc/test.pla
@@ -83,7 +83,7 @@ def vals123#3
   return 1, 2, 3
 end
 export def main(range)#0
-  word a, b, c
+  word a, b, c, valptr
   word lambda
 
   a = 10
@@ -125,6 +125,10 @@ export def main(range)#0
   drop, b, drop = vals123
   drop, drop, c = vals123
   puts("a, b, c = "); puti(a); puts(", "); puti(b); puts(", "); puti(c); putln
+  a, b, c = 0, 0, 0
+  valptr = @a
+  valptr=>[a], valptr=>[1], valptr=>[2] = vals123
+  puts("a, b, c = "); puti(a); puts(", "); puti(b); puts(", "); puti(c); putln
   puts(" 7 /  3 = "); puti(7/3);   puts(" ;  7 %  3 = "); puti(7%3); putln
   puts(" 7 / -3 = "); puti(7/-3);  puts(";  7 % -3 = "); puti(7%-3); putln
   puts("-7 /  3 = "); puti(-7/3);  puts("; -7 %  3 = "); puti(-7%3); putln