diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5c04a042904..b2f4abad37e 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-07  Hans-Peter Nilsson  <hp@axis.com>
+
+	PR fortran/45505
+	* gfortran.dg/pr25923.f90: XFAIL warning on wrong line for ilp32.
+
 2010-09-07  Jan Hubicka  <jh@suse.cz>
 
 	* gcc.c-torture/compile/20100907.c: New testcase.
diff --git a/gcc/testsuite/gfortran.dg/pr25923.f90 b/gcc/testsuite/gfortran.dg/pr25923.f90
index f075944b92b..e7f6f6e7004 100644
--- a/gcc/testsuite/gfortran.dg/pr25923.f90
+++ b/gcc/testsuite/gfortran.dg/pr25923.f90
@@ -10,7 +10,7 @@ implicit none
 
 contains
 
-  function baz(arg) result(res) ! { dg-warning "res.yr' may be" }
+  function baz(arg) result(res) ! { dg-warning "res.yr' may be" "PR45505" { xfail ilp32 } }
     type(bar), intent(in) :: arg
     type(bar) :: res
     logical, external:: some_func
@@ -19,7 +19,7 @@ contains
     else
       res = arg
     end if
-  end function baz
+  end function baz ! { dg-bogus "res.yr' may be" "PR45505" { xfail ilp32 } }
 
 end module foo