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

   1 ! Test that IOLENGTH works for io list containing more than one entry
   2 program 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      call abort
  14   end if
  15 end program iolength_3