preserve input type in _to_diagonal - PDLPorters/pdl#511

mohawk2 · Dec 20, 2024 · 6b3eb20 · 6b3eb20
1 parent 7f7ab6a
commit 6b3eb20
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/PDL/IO/Touchstone.pm b/lib/PDL/IO/Touchstone.pm
@@ -1308,7 +1308,7 @@ sub _to_diagonal
 
 	if (!@dims || (@dims == 1 && $dims[0] == 1))
 	{
-		$ret = zeroes($n_ports,$n_ports);
+		$ret = zeroes($v->type,$n_ports,$n_ports);
 		$ret->diagonal(0,1) .= $v;
 	}
 	elsif (@dims == 1 && $dims[0] == $n_ports)