blob: 8b8beb81bc6d8ad5f40d26e7e0bfb30ebe36fb05 [file] [log] [blame]
! PR libfortran/20950
! Original bug-report by Walt Brainerd, The Fortran Company
! { dg-do run }
! { dg-options "-std=legacy" }
!
character*20 c
inquire (33, sequential = c)
if (c .ne. "UNKNOWN") STOP 1
end