diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-08-26 22:17:33 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-08-26 22:17:33 +0000 |
| commit | ee66b0882158fd9906d2b13429ae00e71dd58554 (patch) | |
| tree | f25d11463df116b1104ca69de1db86da9837fe5c /gcc | |
| parent | 128997b6a50945943c47b02ca4d743e22e4d4786 (diff) | |
| download | gcc-ee66b0882158fd9906d2b13429ae00e71dd58554.zip gcc-ee66b0882158fd9906d2b13429ae00e71dd58554.tar.gz gcc-ee66b0882158fd9906d2b13429ae00e71dd58554.tar.bz2 | |
negative_unit.f: Add new check
2007-08-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/negative_unit.f: Add new check
* gfortran.dg/negative_unit_int8.f: New. Same as above except use
-fdefault-integer-8.
From-SVN: r127818
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/negative_unit.f | 10 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/negative_unit_int8.f | 35 |
3 files changed, 51 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d0be7ee..52467d2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-08-26 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/negative_unit.f: Add new check + * gfortran.dg/negative_unit_int8.f: New. Same as above except use + -fdefault-integer-8. + 2007-08-26 Asher Langton <langton2@llnl.gov> * gfortran.dg/recursive_stack.f90: New. diff --git a/gcc/testsuite/gfortran.dg/negative_unit.f b/gcc/testsuite/gfortran.dg/negative_unit.f index fd0100a..fcfb058 100644 --- a/gcc/testsuite/gfortran.dg/negative_unit.f +++ b/gcc/testsuite/gfortran.dg/negative_unit.f @@ -2,9 +2,12 @@ ! ! PR libfortran/20660 and other bugs (not filed in bugzilla) relating ! to negative units +! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8 +! Test case update by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! ! Bugs submitted by Walt Brainerd integer i + integer, parameter ::ERROR_BAD_UNIT = 5005 logical l i = 0 @@ -16,7 +19,14 @@ open (unit=-11, file="xxx", iostat=i) if (i <= 0) call abort + i = 0 inquire (unit=-42, exist=l) if (l) call abort + i = 0 +! This one is nasty + inquire (unit=2_8*huge(0_4)+20_8, exist=l, iostat=i) + if (l) call abort + if (i.ne.ERROR_BAD_UNIT) call abort + end diff --git a/gcc/testsuite/gfortran.dg/negative_unit_int8.f b/gcc/testsuite/gfortran.dg/negative_unit_int8.f new file mode 100644 index 0000000..53a7daa --- /dev/null +++ b/gcc/testsuite/gfortran.dg/negative_unit_int8.f @@ -0,0 +1,35 @@ +! { dg-do run } +! { dg-options "-fdefault-integer-8" } +! +! NOTE: This test is identical to negative_unit.f except -fdefault-integer-8 +! +! PR libfortran/20660 and other bugs (not filed in bugzilla) relating +! to negative units +! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8 +! Test case update by Jerry DeLisle <jvdelisle@gcc.gnu.org> +! +! Bugs submitted by Walt Brainerd + integer i + integer, parameter ::ERROR_BAD_UNIT = 5005 + 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 + + i = 0 + inquire (unit=-42, exist=l) + if (l) call abort + + i = 0 +! This one is nasty + inquire (unit=2_8*huge(0_4)+20_8, exist=l, iostat=i) + if (l) call abort + if (i.ne.ERROR_BAD_UNIT) call abort + + end |