Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / same_type_as_1.f03

diff --git a/gcc/testsuite/gfortran.dg/same_type_as_1.f03 b/gcc/testsuite/gfortran.dg/same_type_as_1.f03
index 45b5d26..5f349c7 100644 (file)
--- 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