Re: Simple Program, Lots of Issues (F90)

On Tue, 29 Jul 2008 19:07:40 +0000 (UTC), Dr Ivan D. Reid
<Ivan.Reid@[EMAIL PROTECTED]
>
 wrote in <slrng8uqjs.3ir.Ivan.Reid@[EMAIL PROTECTED]
>:

>>   gfortran:
>>     Segmentation fault
>>     Program received signal SIGSEGV, Segmentation fault.
>>     0x08048875 in MAIN__ () at primes2.f90:29
>>     29            nums(2*i:mxn:i)=0
 
> Program received signal SIGSEGV, Segmentation fault.
> 0x0000000000400c34 in MAIN__ () at sieve.f90:27
> 27          numbers(2*i : last_number : i) = 0   ! eliminate all
multiples
 
> 	Same as you.
> GNU Fortran (GCC) 4.1.2 20070626 (Red Hat 4.1.2-14)
> Copyright (C) 2007 Free Software Foundation, Inc.
 
> also:
> Program received signal SIGSEGV, Segmentation fault.
> 0x0000000000400bd6 in MAIN__ () at sieve.f90:27
> 27          numbers(2*i : last_number : i) = 0   ! eliminate all
multiples
 
> GNU Fortran (GCC) 4.2.3 (Ubuntu 4.2.3-2ubuntu7)
> Copyright (C) 2007 Free Software Foundation, Inc.
  
> 	Further printouts suggest this happens when i~last_number/2, for
> last_mumber>32762.

	A little mod, side-stepping the issue, let both gfortrans run:

ac=SQRT(REAL(last_number))+1
do i = 2, ac

-- 
Ivan Reid, School of Engineering & Design, _____________  CMS
Collaboration,
Brunel University.    Ivan.Reid@[EMAIL PROTECTED]
|cern.ch]    Room 40-1-B12,
CERN
        KotPT -- "for stupidity above and beyond the call of duty".