Newsgroups: comp.parallel.pvm
From: hleroy@irisa.fr (Hugues Leroy)
Subject: PVM, UWARE (Unixware) and f2c or gnu fortran g77 (gcc-2.7.2.3/g77-0.5.21)
Organization: Irisa, Rennes (FR)
Date: 3 Nov 1997 10:07:36 GMT
Message-ID: <63k7p8$7ed$1@news.irisa.fr>

Hi,
i have no problems with gcc/pvm3 and all c examples, but when i try to
run fortran examples (compiled with g77 or via f2c and gcc) they abort
with a seg. fault each time they use group operations (pvmfjoingroup)


this is pvm3.4beta, but same problem with pvm3.3.11
unixware on biprocessor Pentium Pro II
(uname -a => UNIX_SV paraski10 4.2MP 2.1.2 i386 x86at)
-----------------------------------------------------
I put some printf() in files in libfpvm

and the Seg. fault is in ftocstr() ....

../bin/UWARE/gexample
....IN pvmfjoingroup
...IN ftocstr
args are : ds=l, dl=32, ss=m, sl=134511384
Segmentation fault


My guess is that the UWARE.m4 config file is wrong...
here is the file i use :

divert(-1)
undefine(`len')
#
# append an underscore to FORTRAN function names
#
define(`FUNCTION',`$1_')
#
# FORTRAN character strings are passed as follows:
#   XXX is this right?
# a pointer to the base of the string is passed in the normal
# argument list, and the length is passed by value as an extra
# argument, after all of the other arguments.
#
define(`ARGS',`($1`'undivert(1))')
define(`SAVE',`divert(1)$1`'divert(0)')
define(`STRING_ARG',`$1_ptr, $1_len')
define(`STRING_ARG_DECL',`char * $1_ptr; int $1_len')
define(`STRING_LEN',`$1_len')
define(`STRING_PTR',`$1_ptr')
divert(0)