OSDN Git Service

PR libfortran/20950
[pf3gnuchains/gcc-fork.git] / 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       character*20 c
5       inquire (33, sequential = c)
6       if (c .ne. "UNKNOWN") call abort
7       end