mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
28 lines
765 B
Fortran
28 lines
765 B
Fortran
! { 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
|