1! { dg-do run } 2! PR 53796 INQUIRE(RECL=...) 3program inqrecl 4 implicit none 5 integer(8) :: r 6 integer :: r4 7 ! F2018 (N2137) 12.10.2.26: recl for unconnected should be -1 8 inquire(10, recl=r) 9 if (r /= -1) then 10 STOP 1 11 end if 12 13 ! Formatted sequential 14 open(10, status="scratch") 15 inquire(10, recl=r) 16 inquire(10, recl=r4) 17 close(10) 18 if (r /= huge(0_8) - huge(0_4) - 1) then 19 STOP 2 20 end if 21 if (r4 /= huge(0)) then 22 STOP 3 23 end if 24 25 ! Formatted sequential with recl= specifier 26 open(10, status="scratch", recl=100) 27 inquire(10, recl=r) 28 close(10) 29 if (r /= 100) then 30 STOP 4 31 end if 32 33 ! Formatted stream 34 ! F2018 (N2137) 12.10.2.26: If unit is connected 35 ! for stream access, recl should be assigned the value -2. 36 open(10, status="scratch", access="stream") 37 inquire(10, recl=r) 38 close(10) 39 if (r /= -2) then 40 STOP 5 41 end if 42 43 ! Also inquire by filename for a non-opened unit is considered 44 ! unconnected similar to the first test. 45 inquire(file='unconnectedfile.txt', recl=r) 46 if (r /= -1) then 47 stop 6 48 end if 49end program inqrecl 50