gcc/testsuite/gfortran.dg/pr20950.f

   1 ! PR libfortran/20950
   2 ! Original bug-report by Walt Brainerd, The Fortran Company
   3 ! { dg-do run }
   4 ! { dg-options "-std=legacy" }
   5 !
   6       character*20 c
   7       inquire (33, sequential = c)
   8       if (c .ne. "UNKNOWN") call abort
   9       end