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