! This file: http://ftp.aset.psu.edu/pub/ger/fortran/hdk/RecLen.f90
!
program reclen
 integer I
 real X(1000)
 integer Y(2000)
 X=1.1
 Y=2
 inquire(iolength = len) (X(I),I=1,SIZE(X)), (Y(I),I=1,SIZE(Y))
 print *, len
end program reclen