diff options
| author | (no author) <(no author)@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-02 00:35:00 +0000 |
|---|---|---|
| committer | (no author) <(no author)@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-07-02 00:35:00 +0000 |
| commit | 33c6ff0f4f4f35d7dae7bcdac8d429ab312e2b5e (patch) | |
| tree | 89947b04b5c2fbd530076237357ede702d3d6c22 /gcc/testsuite/gfortran.dg/negative_unit.f | |
| parent | 0fcc981fa6eb41869dce802e289b012f4c3726be (diff) | |
This commit was manufactured by cvs2svn to create tagapple/gcc-5208
'apple-gcc-5208'.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/tags/apple-gcc-5208@101526 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/negative_unit.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/negative_unit.f | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/negative_unit.f b/gcc/testsuite/gfortran.dg/negative_unit.f new file mode 100644 index 00000000000..fd0100a14de --- /dev/null +++ b/gcc/testsuite/gfortran.dg/negative_unit.f @@ -0,0 +1,22 @@ +! { dg-do run } +! +! PR libfortran/20660 and other bugs (not filed in bugzilla) relating +! to negative units +! +! Bugs submitted by Walt Brainerd + integer i + logical l + + i = 0 +! gfortran created a 'fort.-1' file and wrote "Hello" in it + write (unit=-1, fmt=*, iostat=i) "Hello" + if (i <= 0) call abort + + i = 0 + open (unit=-11, file="xxx", iostat=i) + if (i <= 0) call abort + + inquire (unit=-42, exist=l) + if (l) call abort + + end |