From ee66b0882158fd9906d2b13429ae00e71dd58554 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 26 Aug 2007 22:17:33 +0000 Subject: [PATCH] negative_unit.f: Add new check 2007-08-26 Jerry DeLisle * 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 --- gcc/testsuite/ChangeLog | 6 +++++ gcc/testsuite/gfortran.dg/negative_unit.f | 10 ++++++++ gcc/testsuite/gfortran.dg/negative_unit_int8.f | 35 ++++++++++++++++++++++++++ 3 files changed, 51 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/negative_unit_int8.f 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 + + * 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 * 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 ! ! 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 +! +! 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 -- 2.7.4