gcc/testsuite/gfortran.dg/malloc_free_1.f90

   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