Problem script is pasted below, it's a minimal version I was able to achieve.

The session log from the clean install is:

# start of session log
user2@host2:~/j901> ./jconsole.sh
   load 'pacman'
   'update' jpkg ''
Updating server catalog...
Local JAL information was last updated: 13 May 2020 17:26:38
Installed addons are up to date, 115 addons are not yet installed.
The base library is up to date.
   'install' jpkg 'math/mt math/lapack2'
Installing 5 packages
Downloading general/misc...
Installing general/misc...
Downloading math/lapack2...
Installing math/lapack2...
Downloading math/misc...
Installing math/misc...
Downloading math/mt...
Installing math/mt...
Done.
Installed addons are up to date, 111 addons are not yet installed.
The base library is up to date.
   JVERSION
Engine: j901/j64/linux
Release-e: commercial/2020-01-29T10:38:14
Library: 9.01.23
Platform: Linux 64
Installer: J901 install
InstallPath: /home/user2/j901
Contact: www.jsoftware.com
   9!:14 ''
j901/j64/linux/release-e/commercial/www.jsoftware.com/2020-01-29T10:38:14
   load '~user/temp/hang.ijs'
   testptsvE_mt_ (j./ 2 5 5 ?@$ 0) ; (j./ 2 5 3 ?@$ 0)
0
1
# hangs here, process was killed manually
# end of session log

NB. === start of script ~user/temp/hang.ijs ===
load 'math/mt'
load 'math/lapack2'

coclass 'mt'

tmonad2=: 2 : 0
'`vgety vgeto vrcond vferr vberr'=. n
try. argy=. vgety y catch. argy=. _. end.
try. 't s'=. timespacex 'ret=. ' , m , ' argy' catch. t=. s=. ret=. _. end.
try. out=. vgeto ret catch. out=. _. end.
try. rcond=. y vrcond out catch. rcond=. _ end.
try. ferr=. y vferr out catch. ferr=. _. end.
try. berr=. y vberr out catch. berr=. _. end.
EMPTY
)

dptsv=: 3 : 0
echo '0'
'd e'=. y
echo '1'
assert. isreal_jlapack2_ d NB. hangs here
echo '2'
d ; e
)

testptsvE=: 3 : 0
vvv=: ((setdiag_mt_~ ;&_1)~ idmat_mt_@#)&>/@}:
('dptsv' tmonad2 (((diag ; _1&diag)@(0&{::))`]`0:`_1:`(1: vvv))) y
EMPTY
)
NB. === end of script ===

-- 
Regards
Igor
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to