diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-10-15 14:03:52 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-10-15 14:03:52 +0000 |
| commit | eb64c8e52fb187e24ad8d9789ee22cdf1ae69f12 (patch) | |
| tree | 9a6338c813b581d24b7897c6da7930a0340fbf19 /gcc | |
| parent | f0e1e807272d15076f168ff4c9f837d9632a1cc3 (diff) | |
| download | gcc-eb64c8e52fb187e24ad8d9789ee22cdf1ae69f12.zip gcc-eb64c8e52fb187e24ad8d9789ee22cdf1ae69f12.tar.gz gcc-eb64c8e52fb187e24ad8d9789ee22cdf1ae69f12.tar.bz2 | |
re PR libfortran/33055 (Runtime error in INQUIRE unit existance with -fdefault-integer-8)
2007-10-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/33055
* gfortran.dg/inquire_11.f90: New test.
* gfortan.dg/negative_unit_int8.f: New test.
From-SVN: r129346
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_11.f90 | 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 dae94d9..ff81461 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2007-10-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/33055 + * gfortran.dg/inquire_11.f90: New test. + * gfortan.dg/negative_unit_int8.f: New test. + 2007-10-15 Maxim Kuvyrkov <maxim@codesourcery.com> PR target/33133 diff --git a/gcc/testsuite/gfortran.dg/inquire_11.f90 b/gcc/testsuite/gfortran.dg/inquire_11.f90 new file mode 100644 index 0000000..f410766 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/inquire_11.f90 @@ -0,0 +1,10 @@ +! { dg-do compile } +! PR 33055 Runtime error in INQUIRE unit existance with -fdefault-integer-8 +! Test case from PR33217 prepared by Jerry DeLisle <jvdelisle@gcc.gnu.org> +MODULE print_it +CONTAINS + SUBROUTINE i() + LOGICAL :: qexist + INQUIRE (UNIT=1, EXIST=qexist) + END SUBROUTINE i +END MODULE print_it 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 |