1! { dg-do run }
2! pr 19647 / segfault on inquire(..pad=..)
3!   Thomas.Koenig@online.de
4!   bdavis9659@comcast.net
5       program main
6       character(len=10) delim
7! quote
8       open(10,delim='quote',status='SCRATCH')
9       inquire(10,delim=delim)
10       close(10)
11       if (delim .ne. 'QUOTE') call abort
12! apostrophe
13       open(10,delim='apostrophe',status='SCRATCH')
14       inquire(10,delim=delim)
15       close(10)
16       if (delim .ne. 'APOSTROPHE') call abort
17! none
18       open(10,status='SCRATCH')
19       inquire(10,delim=delim)
20       close(10)
21       if (delim .ne. 'NONE') call abort
22! undefined
23       open(10,form='UNFORMATTED',status='SCRATCH')
24       inquire(10,delim=delim)
25       close(10)
26       if (delim .ne. 'UNDEFINED') call abort
27       end program main
28