Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / proc_ptr_15.f90

diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_15.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_15.f90
index f5a7486..f1d3d18 100644 (file)
--- a/gcc/testsuite/gfortran.dg/proc_ptr_15.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_15.f90
@@ -19,10 +19,10 @@ p4 => p3
 p6 => p1
 
 ! invalid
-p1 => iabs   ! { dg-error "Type/rank mismatch in return value" }
-p1 => p2     ! { dg-error "Type/rank mismatch in return value" }
-p1 => p5     ! { dg-error "Type/rank mismatch in return value" }
-p6 => iabs   ! { dg-error "Type/rank mismatch in return value" }
+p1 => iabs   ! { dg-error "Type/rank mismatch in function result" }
+p1 => p2     ! { dg-error "Type/rank mismatch in function result" }
+p1 => p5     ! { dg-error "Type/rank mismatch in function result" }
+p6 => iabs   ! { dg-error "Type/rank mismatch in function result" }
 p4 => p2     ! { dg-error "is not a subroutine" }
 
 contains