This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[gfortran, testsuite, committed] Add testcase for disappeared failure
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: GCC Fortran mailing list <fortran at gcc dot gnu dot org>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 13 Mar 2005 20:27:46 +0100
- Subject: [gfortran, testsuite, committed] Add testcase for disappeared failure
The failure from PR 18600 has disappeared during the last two months. I
committed this testcase to make sure that we don't regress again.
- Tobi
Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/ChangeLog,v
retrieving revision 1.5156
diff -u -p -r1.5156 ChangeLog
--- ChangeLog 13 Mar 2005 18:46:35 -0000 1.5156
+++ ChangeLog 13 Mar 2005 19:24:30 -0000
@@ -1,5 +1,10 @@
2003-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
+ PR fortran/18600
+ * gfortran.dg/stfunc_1.f90: New test.
+
+2003-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
+
PR fortran/16907
* gfortran.dg/real_index_1.f90: New test.
Index: gfortran.dg/stfunc_1.f90
===================================================================
RCS file: gfortran.dg/stfunc_1.f90
diff -N gfortran.dg/stfunc_1.f90
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ gfortran.dg/stfunc_1.f90 13 Mar 2005 19:24:30 -0000
@@ -0,0 +1,9 @@
+! { dg-do run }
+! this is a problem which disappeared between 2005-01-02 and 2005-03-13
+! PR 18600
+ logical a, b
+ a(b) = .true.
+ b = .false.
+ if (a(.false.)) b = .true.
+ if (.not.b) call abort
+ end