------- Comment #8 from dominiq at lps dot ens dot fr  2010-07-01 12:16 -------
> > Fixed for 4.6, waiting a bit for 4.5.
>
> Revision 161496 caused pr44699.

I think the PRINTs are of no use in the testsuite for gfortran.dg/pr44592.f90.
I'ld suggest to apply the following patch:

--- ../_clean/gcc/testsuite/gfortran.dg/pr44592.f90     2010-06-28
17:51:41.000000000 +0200
+++ gcc/testsuite/gfortran.dg/pr44592.f90       2010-07-01 14:12:38.000000000
+0200
@@ -13,8 +13,5 @@
   b(4:2:-1)(i:i) = b(3:1:-1)(i:i)

   ! This fails.  If the condition is printed, the result is F F F F
-  if (any (b .ne. (/"1","1","2","3"/))) i = 2
-  print *, b
-  print *, b .ne. (/"1","1","2","3"/)
-  if (i == 2) call abort
+  if (any (b .ne. (/"1","1","2","3"/))) call abort
 end


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44592

Reply via email to