Here is the trace from trying my parallel code:
142 chinook% /usr/local/sbin/trace ./drive
./drive
Tracing process /proc/11525
getpagesize () = 8192
obreak (0x15d0f54a0) = 0
getpagesize () = 8192
getsysinfo () = 1
getpid () = 11525
getpid () = 11525
getpid () = 11525
getpid () = 11525
obreak (0x15d1074a0) = 0
mprotect (0x15d0f4000, 8192, 0) = -1, (Not enough space)
write (2, "DECthreads bugcheck (version V3.14-126),"..., 64) = DECthreads
bugcheck (version V3.14-126), terminating execution.
64
write (2, 0x3ffc0099ba0, 8) = Failure 8
write (2, 0x3ffc0099ba0, 8) = initiali8
write (2, 0x3ffc0099ba0, 8) = zing the8
write (2, 0x3ffc0099ba0, 8) = manager8
write (2, 0x3ffc0099ba0, 8) = thread 8
write (2, 0x3ffc0099ba0, 8) = tcb (12)8
write (2, 0x11ffff548, 1) =
1
sigaction (SIGABRT, {{0x0,0x0,0}}, (struct sigaction *)0) = 0
sigprocmask (2, 0x20, 0x0) = 0
SIGNAL [6 SIGABRT]
EXIT [signal=6]
I thought this might be a KAP bug, so I also tried a small fortran program:
11 ecfc% cat t.f
program test
integer IA(1000,1000),IB(1000,1000)
!$PAR PARALLEL DO
do i=1,1000
do j=1,1000
IA(i,j)=i+j
enddo
enddo
write(6,*)IA(1,1),IA(100,100), IA(1000,1000)
!$PAR PARALLEL DO
do i=1,1000
do j=1,1000
IB(i,j)=IA(i,j)*i
enddo
enddo
write(6,*)IB(1,1),IB(100,100), IB(1000,1000)
end
This runs fine non parallel:
13 ecfc% ./t
2 200 2000
2 20000 2000000
When I compile with -mp I get:
a segmentation fault.
In the debugger it looks like it died prior to line 1:
dbx t
dbx version 3.11.10
Type 'help' for help.
test: 7 do i=1,1000
(dbx) thread 0x9 signal Segmentation fault at [test:1 +0x10,0x120001c1c]
program test
(dbx) where
> 0 test() ["t.f":1, 0x120001c1c]
I must have something not installed or misinstalled as this used to work fine.
Any suggestions?????
David Warren INTERNET: warren_at_atmos.washington.edu
(206) 543-0945 Fax: (206) 543-0308
University of Washington
Dept of Atmospheric Sciences, Box 351640
Seattle, WA 98195-1640
-------------------------------------------------------------------------------
DECUS E-PUBS Library Committee representative
SeaLUG DECUS Chair
Received on Wed Jan 28 1998 - 19:43:34 NZDT