1! Test for the MALLOC and FREE intrinsics
2! If something is wrong with them, this test might segfault
3! { dg-do run }
4  integer j
5  integer(kind=8) i8
6
7  do j = 1, 10000
8    i8 = malloc (10 * j)
9    call free (i8)
10  end do
11  end
12