Allocates a chunk of memory. Can be used to test memory high water mark tools.

custom-allocation.f90

! /usr/bin/time -v ./a.out
program example

    implicit none

    integer(8), parameter :: mw = 1000000  ! 200 MW or 1525 MB
    real(8), allocatable :: a(:)

    print *, 'will try to allocate', 200*mw, 'double precision floats'

    ! allocate 200 MW or 1525 MB
    allocate(a(200*mw))
    a = 1.0d0
    print *, 'first element:', a(1)
    deallocate(a)

    print *, 'ok all went fine'

end program