1! Test that IOLENGTH works for io list containing more than one entry 2program iolength_3 3 implicit none 4 integer, parameter :: & 5 ! 32 bit, i.e. 4 byte integer (every gcc architecture should have this?) 6 int32 = selected_int_kind(9), & 7 ! IEEE double precision, i.e. 8 bytes 8 dp = selected_real_kind(15, 307) 9 integer(int32) :: a, b, iol 10 real(dp) :: c 11 inquire (iolength = iol) a, b, c 12 if ( 16 /= iol) then 13 STOP 1 14 end if 15end program iolength_3 16