re PR middle-end/45505 (gfortran.dg/pr25923.f90)

	PR fortran/45505
	* gfortran.dg/pr25923.f90: XFAIL warning on wrong line for ilp32.

From-SVN: r163949

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5c04a042904438a87c11f095e84b488675599bda..b2f4abad37e0638fccb61da1a8f9f45b2f2250d0 100644 (file)
--- 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 f075944b92bd1778aa7e6117a75c1830e888b928..e7f6f6e7004c895d282938a35eda96e435042aab 100644 (file)
--- 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