From: Tobias Burnus <burnus@net-b.de>
Date: Thu, 26 Jul 2012 11:49:32 +0000 (+0200)
Subject: contiguous_1.f90: Update dg-error.
X-Git-Tag: releases/gcc-4.8.0~4257
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=6b4496dbc3afe3f18aaf3fa6792995427194d685;p=thirdparty%2Fgcc.git

contiguous_1.f90: Update dg-error.

2012-07-26  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/contiguous_1.f90: Update dg-error.
        * gfortran.dg/proc_ptr_32.f90: Ditto.

From-SVN: r189887
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3092b9072bfa..805698a5d9fa 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-26  Tobias Burnus  <burnus@net-b.de>
+
+	* gfortran.dg/contiguous_1.f90: Update dg-error.
+	* gfortran.dg/proc_ptr_32.f90: Ditto.
+
 2012-07-26  Richard Guenther  <rguenther@suse.de>
 
 	PR tree-optimization/54098
diff --git a/gcc/testsuite/gfortran.dg/contiguous_1.f90 b/gcc/testsuite/gfortran.dg/contiguous_1.f90
index e75c08d8ef4e..78c84cbbe074 100644
--- a/gcc/testsuite/gfortran.dg/contiguous_1.f90
+++ b/gcc/testsuite/gfortran.dg/contiguous_1.f90
@@ -129,7 +129,7 @@ subroutine C1241
   integer, pointer, contiguous :: a(:)
   integer, pointer :: b(:)
   call test(a)
-  call test(b) ! { dg-error "must be simply contigous" }
+  call test(b) ! { dg-error "must be simply contiguous" }
 contains
   subroutine test(x)
     integer, pointer, contiguous :: x(:)
@@ -169,7 +169,7 @@ end subroutine sect12528
 subroutine test34
   implicit none
   integer, volatile,pointer :: a(:,:),i
-  call foo(a(2,2:3:2)) ! { dg-error "must be simply contigous" }
+  call foo(a(2,2:3:2)) ! { dg-error "must be simply contiguous" }
 contains
   subroutine foo(x)
     integer, pointer, contiguous, volatile :: x(:)
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_32.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_32.f90
index 5664ddecd5da..9cae65be0d8a 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_32.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_32.f90
@@ -6,7 +6,7 @@
 
   implicit none
   procedure(my_dcos), pointer :: f
-  f => my_dcos           ! { dg-error "invalid in procedure pointer assigment" }
+  f => my_dcos           ! { dg-error "invalid in procedure pointer assignment" }
 contains
   real elemental function my_dcos(x)
     real, intent(in) :: x