...: 8 =: #bits PRIVATE #bits 2^x 1- =: mask PRIVATE 4 VALUE #bytes PRIVATE #10000000 VALUE #entries PRIVATE CREATE COUNTS #bits 2^x CELLS ALLOT PRIVATE CREATE INDEX #bits 2^x ... .. 0.099 seconds elapsed. ok \ Win32Forth P4 between 2.8 - 3.25 Ghz Creating 10000000 input values. Sorting .. Elapsed time: 00:00:20.419 ok cell sort sedge-c RANDOM-FILL: 10...

....exe 632 AClntUsr.exe 4372 UdaterUI.exe 4184 Mctray.exe 1684 AeXAgentUIHost..exe 1968 mmc.exe 1048 sqlmangr.exe 3932 DRWTSN32.exe 0 _Total.exe (00400000 - 00414000) (77F80000 - 77FFC000) (10000000 - 1002D000) (7C570000 - 7C624000) (77E10000 - 77E6F000) (77F40000 - 77F7C000) (77800000 - 7781E000) (77D30000 - 77D9F000) (7C340000 - 7C34F000) (7C2D0000 - 7C335000) (76620000 - ...

... variable but the associated memory should ! not be reused within the subroutine accum ! module assignment implicit none integer, parameter :: fieldsize = 10000000 private :: stack_level private :: block private :: block_pool type block integer :: level real, dimension(:), pointer :: data end type ...

... a temporary variable but the associated memory should ! not be reused within the subroutine accum ! module assignment implicit none integer, parameter :: fieldsize = 10000000 private :: stack_level private :: block private :: block_pool type block integer :: level real, dimension(:), pointer :: data end type type(block), ...

....com> wrote: seeftp://ftp.swcp.com/pub/walt/F/Examples/sieve.f95 I tried this simple program using six Fortran compilers but setting the integer parameter last_number to 10000000 (10 million). All compiled but four of the six had problems during exection. gfortran: Segmentation fault Program received signal SIGSEGV, Segmentation fault. 0x08048875 in ...

... <e...@juno.com> wrote: see ftp://ftp.swcp.com/pub/walt/F/Examples/sieve.f95 I tried this simple program using six Fortran compilers but setting the integer parameter last_number to 10000000 (10 million). All compiled but four of the six had problems during exection.   gfortran:     Segmentation fault     Program received signal SIGSEGV, Segmentation fault.     ...

... this simple program using six Fortran compilers but setting the integer parameter last_number to 10000000 (10 million). All compiled but four of the six had problems during exection.... cleaned up version of the program: program Sieve_Of_Eratosthenes implicit none integer, parameter :: mxn=10000000 integer, dimension(mxn) :: nums integer :: i,ic,npr ! ..Initialize NUMBERS to 0...

...: 11.47 11.67 seconds ! do-loop: 7.41 7.37 seconds ! ! module assignment implicit none integer, parameter :: fieldsize = 10000000 type field logical :: temp = .false. real, dimension(:), pointer :: data end type field interface assignment(=) module procedure assign_field module procedure ...

...operator: 11.47 11.67 seconds ! do-loop: 7.41 7.37 seconds ! ! module assignment implicit none integer, parameter :: fieldsize = 10000000 type field logical :: temp = .false. real, dimension(:), pointer :: data end type field interface assignment(=) module procedure assign_field module procedure assign_field_scalar ...

.... 123 .FALSE. failed 01111100 .TRUE. 124 .FALSE. failed 01111101 .TRUE. 125 .FALSE. failed 01111110 .TRUE. 126 .FALSE. failed 01111111 .TRUE. 127 .FALSE. failed 10000000 .TRUE. -128 .FALSE. failed 10000001 .TRUE. -127 .FALSE. failed 10000010 .TRUE. -126 .FALSE. failed 10000011 .TRUE. -125 .FALSE. failed 10000100 .TRUE. -...