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