Logo

Programming-Idioms

  • Perl
  • Fortran

Idiom #88 Allocate 1M bytes

Create a new bytes buffer buf of size 1,000,000.

  use iso_c_binding, only : c_int8_t
  integer(kind=c_int8_t), dimension(:), allocatable :: a

  allocate (a(10**6))
my $buf = ' ' * 1_000_000;
type Byte is range 0 .. 255
  with Size => 8;
      
type Byte_Array is array (Positive range <>) of Byte;  
      
Buf : Byte_Array (1 .. 1_000_000);

New implementation...
< >
programming-idioms.org