gcc/testsuite/gfortran.dg/set_vm_limit.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

/* Called by pr68078. */

#include <stdio.h>
#include <stdlib.h>
#include <sys/time.h>
#include <sys/resource.h>

void
set_vm_limit (int vm_limit)
{
  struct rlimit rl;
  int r;

  r = getrlimit (RLIMIT_AS, &rl);
  if (r)
    {
      perror ("get_vm_limit");
      exit (1);
    }

  if (vm_limit >= rl.rlim_cur)
    return;

  rl.rlim_cur = vm_limit;
  r = setrlimit (RLIMIT_AS, &rl);
  if (r)
    {
      perror ("set_vm_limit");
      exit (1);
    }

  return;
}