| ! { dg-do run } |
| ! pr 19647 / segfault on inquire(..pad=..) |
| ! Thomas.Koenig@online.de |
| ! bdavis9659@comcast.net |
| program main |
| character(len=10) delim |
| ! quote |
| open(10,delim='quote',status='SCRATCH') |
| inquire(10,delim=delim) |
| close(10) |
| if (delim .ne. 'QUOTE') STOP 1 |
| ! apostrophe |
| open(10,delim='apostrophe',status='SCRATCH') |
| inquire(10,delim=delim) |
| close(10) |
| if (delim .ne. 'APOSTROPHE') STOP 2 |
| ! none |
| open(10,status='SCRATCH') |
| inquire(10,delim=delim) |
| close(10) |
| if (delim .ne. 'NONE') STOP 3 |
| ! undefined |
| open(10,form='UNFORMATTED',status='SCRATCH') |
| inquire(10,delim=delim) |
| close(10) |
| if (delim .ne. 'UNDEFINED') STOP 4 |
| end program main |