re PR fortran/48976 (INQUIRE with STREAM= not supported)

2012-12-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/48976
	* gfortran.dg/inquire_15.f90: New.

From-SVN: r194736

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 0d97252967a044aced2e626067990df6e8b78298..1237fb9bdf9a2d7423ea56d2cf074e7fbca30a3a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-12-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/48976
+       * gfortran.dg/inquire_15.f90: New.
+
 2012-12-27  Sriraman Tallam  <tmsriram@google.com>
 
        * testsuite/g++.dg/mv1.C: Remove target options.

diff --git a/gcc/testsuite/gfortran.dg/inquire_15.f90 b/gcc/testsuite/gfortran.dg/inquire_15.f90
new file mode 100644 (file)
index 0000000..8550663
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/inquire_15.f90
@@ -0,0 +1,27 @@
+! PR48976 test case by jvdelisle@gcc.gnu.org
+character(len=20) :: str
+str = "abcdefg"
+inquire(file="abcddummy", stream=str)
+!print *, "str=",str
+if (str /= "UNKNOWN") call abort
+inquire(99, stream=str)
+!print *, "str=",str
+if (str /= "UNKNOWN") call abort
+open(99,access="stream")
+inquire(99, stream=str)
+!print *, "str=",str
+if (str /= "YES") goto 10
+close(99)
+open(99,access="direct", recl=16)
+inquire(99, stream=str)
+!print *, "str=",str
+if (str /= "NO") goto 10
+close(99)
+open(99,access="sequential")
+inquire(99, stream=str)
+!print *, "str=",str
+if (str /= "NO") goto 10
+stop
+10 close(99, status="delete")
+call abort
+end