obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 27 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/same_type_as_1.f03 b/gcc/testsuite/gfortran.dg/same_type_as_1.f03
new file mode 100644
index 000000000..45b5d2662
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/same_type_as_1.f03
@@ -0,0 +1,27 @@
+! { dg-do compile }
+!
+! Error checking for the intrinsic functions SAME_TYPE_AS and EXTENDS_TYPE_OF.
+!
+! Contributed by Janus Weil <janus@gcc.gnu.org>
+
+ type :: t1
+  integer :: i
+ end type 
+
+ type :: ts
+  sequence
+  integer :: j
+ end type
+
+ TYPE(t1) :: x1
+ TYPE(ts) :: x2
+
+ integer :: i
+
+ print *, SAME_TYPE_AS (i,x1)   ! { dg-error "must be of a derived type" }
+ 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 (x1,x2)  ! { dg-error "must be of an extensible type" }
+
+end