aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
Diffstat (limited to 'gcc')
-rw-r--r--gcc/testsuite/ChangeLog5
-rw-r--r--gcc/testsuite/gfortran.dg/inquire_7.f9027
2 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 88725cb..37bcc5b 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-30 Bud Davis <bdavis@gfortran.org>
+
+ PR fortran/19647
+ * gfortan.dg/inquire_7.f90
+
2005-01-29 Richard Guenther <richard.guenther@uni-tuebingen.de>
PR tree-optimization/15791
diff --git a/gcc/testsuite/gfortran.dg/inquire_7.f90 b/gcc/testsuite/gfortran.dg/inquire_7.f90
new file mode 100644
index 0000000..02e96ab
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/inquire_7.f90
@@ -0,0 +1,27 @@
+! { 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') call abort
+! apostrophe
+ open(10,delim='apostrophe',status='SCRATCH')
+ inquire(10,delim=delim)
+ close(10)
+ if (delim .ne. 'APOSTROPHE') call abort
+! none
+ open(10,status='SCRATCH')
+ inquire(10,delim=delim)
+ close(10)
+ if (delim .ne. 'NONE') call abort
+! undefined
+ open(10,form='UNFORMATTED',status='SCRATCH')
+ inquire(10,delim=delim)
+ close(10)
+ if (delim .ne. 'UNDEFINED') call abort
+ end program main