gcc/testsuite/gfortran.fortran-torture/execute/iolength_1.f90

   1 ! Test that IOLENGTH works for dynamic arrays
   2 program iolength_1
   3   implicit none
   4   ! 32 bit, i.e. 4 byte integer (every gcc architecture should have this?)
   5   integer, parameter :: int32 = selected_int_kind(9)
   6   integer(int32), allocatable :: a(:)
   7   integer :: iol, alength
   8   real :: r
   9   call random_number(r)
  10   alength = nint(r*20)
  11   allocate(a(alength))
  12   inquire (iolength = iol) a
  13   if ( 4*alength /= iol) then
  14      call abort
  15   end if
  16 end program iolength_1