PR fortran/45505

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163949 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5c04a04..b2f4aba 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 f075944..e7f6f6e 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