diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2012-12-20 18:03:37 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2012-12-20 18:03:37 +0000 |
| commit | 00155043771e975120a8dd43be6daa81727a8c31 (patch) | |
| tree | 47f948f014e2263e5616ec7045877e539920ed29 /gcc | |
| parent | 3cecbdfa22c72f1c5bdbef6346567c9b82f69222 (diff) | |
| download | gcc-00155043771e975120a8dd43be6daa81727a8c31.zip gcc-00155043771e975120a8dd43be6daa81727a8c31.tar.gz gcc-00155043771e975120a8dd43be6daa81727a8c31.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/same_type_as_1.f03 | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1f401cd..c7cb233 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 45b5d26..5f349c7 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 |