+2005-03-05 Steven G. Kargl <kargls@comcast.net>
+ Paul Thomas <prthomas@drfccad.cea.fr>
+
+ * PR19754_1.f90: New test.
+ * PR19754_2.f90: ditto.
+
2005-03-06 Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net>
PR c++/19311
--- /dev/null
+! { dg-do run }
+! Test of Steve Kargl's fix to PR19754
+! This exercises bugs that the original patch caused
+!
+program PR19754_2
+ real a(2,2), b(2,2),c(2,2),d(2,2)
+ integer i(2,2),j(2,2),k(2,2)
+ a = 1. ; b = 2. ; i = 4
+ c = b - floor( a / b ) ! this caused an ICE
+ d = b - real(floor( a / b ))
+ if (any (c/=d)) call abort ()
+ j = aint(b) - floor( a / b ) ! this caused an ICE
+ if (any(real(j)/=d)) call abort ()
+ c = i
+ if (any(real(i)/=c)) call abort ()
+ c = i + b ! this caused an ICE
+ d = real(i) + b
+ if (any(c/=d)) call abort ()
+ j = i + aint (a)
+ k = i + a ! this caused an ICE
+ if (any(j/=k)) call abort ()
+end program PR19754_2