From: Paul Thomas <pault@gcc.gnu.org>
Date: Thu, 20 Dec 2012 18:03:37 +0000 (+0000)
Subject: same_type_as_1.f03: Correct for improved message.
X-Git-Tag: releases/gcc-4.8.0~1292
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=00155043771e975120a8dd43be6daa81727a8c31;p=thirdparty%2Fgcc.git

same_type_as_1.f03: Correct for improved message.

2012-12-20  Paul Thomas  <pault@gcc.gnu.org>

	* gfortran.dg/same_type_as_1.f03: Correct for improved message.

From-SVN: r194639
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1f401cd7ac77..c7cb23362340 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -18,7 +18,7 @@
 	* gfortran.dg/unlimited_polymorphic_1.f03: New test.
 	* gfortran.dg/unlimited_polymorphic_2.f03: New test.
 	* gfortran.dg/unlimited_polymorphic_3.f03: New test.
-	* gfortran.dg/same_type_as.f03: Correct for improved message.
+	* gfortran.dg/same_type_as_1.f03: Correct for improved message.
 
 2012-12-19  Kyrylo Tkachov  <kyrylo.tkachov@arm.com>
 
diff --git a/gcc/testsuite/gfortran.dg/same_type_as_1.f03 b/gcc/testsuite/gfortran.dg/same_type_as_1.f03
index 45b5d26627fa..5f349c7ba075 100644
--- a/gcc/testsuite/gfortran.dg/same_type_as_1.f03
+++ b/gcc/testsuite/gfortran.dg/same_type_as_1.f03
@@ -6,7 +6,7 @@
 
  type :: t1
   integer :: i
- end type 
+ end type
 
  type :: ts
   sequence
@@ -18,10 +18,10 @@
 
  integer :: i
 
- print *, SAME_TYPE_AS (i,x1)   ! { dg-error "must be of a derived type" }
+ print *, SAME_TYPE_AS (i,x1)   ! { dg-error "cannot be of type INTEGER" }
  print *, SAME_TYPE_AS (x1,x2)  ! { dg-error "must be of an extensible type" }
 
- print *, EXTENDS_TYPE_OF (i,x1)   ! { dg-error "must be of a derived type" }
+ print *, EXTENDS_TYPE_OF (i,x1)   ! { dg-error "cannot be of type INTEGER" }
  print *, EXTENDS_TYPE_OF (x1,x2)  ! { dg-error "must be of an extensible type" }
 
 end