diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2012-12-27 19:24:44 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2012-12-27 19:24:44 +0000 |
| commit | f5b650c0ace1265e1906d4a79717730ef089d528 (patch) | |
| tree | 615d952129d0b1204104c4eb603512153c2d7235 /gcc | |
| parent | 93e8af199cc829c12790873935a4fa4c51c89044 (diff) | |
| download | gcc-f5b650c0ace1265e1906d4a79717730ef089d528.zip gcc-f5b650c0ace1265e1906d4a79717730ef089d528.tar.gz gcc-f5b650c0ace1265e1906d4a79717730ef089d528.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_15.f90 | 27 |
2 files changed, 32 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0d97252..1237fb9 100644 --- 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 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 |