X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fgfortran.dg%2Finterface_27.f90;h=71975b6b7d2920efbb81afa914ec981fed8a11e7;hb=3f1863254a35fca88825ef6d71ef464ebf105efa;hp=a3f1e4b26208bce6d27de991dc46aca891f1b415;hpb=66110e37eaed2c04ffbc33a8bd52dc76c4dac9f4;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/testsuite/gfortran.dg/interface_27.f90 b/gcc/testsuite/gfortran.dg/interface_27.f90
index a3f1e4b2620..71975b6b7d2 100644
--- a/gcc/testsuite/gfortran.dg/interface_27.f90
+++ b/gcc/testsuite/gfortran.dg/interface_27.f90
@@ -31,8 +31,8 @@ subroutine caller
   end interface
   pointer :: p
 
-  call a(4.3,func)  ! { dg-error "Type/rank mismatch in argument" }
-  p => func         ! { dg-error "Interfaces don't match in procedure pointer assignment" }
+  call a(4.3,func)  ! { dg-error "INTENT mismatch in argument" }
+  p => func         ! { dg-error "INTENT mismatch in argument" }
 end subroutine
 
 end module