1! Test that IOLENGTH works for dynamic arrays 2program 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 STOP 1 15 end if 16end program iolength_1 17