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 3092b9072bfafe1d6c6c05274c6850f1c6210b72..805698a5d9faca51ada42b36e06820facac142ff 100644 (file)
--- 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 e75c08d8ef4e2a1b4e2bf4ba45604db4f4c1e04e..78c84cbbe074629ac1f20de0c1d38e635f02a41d 100644 (file)
--- 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 5664ddecd5da1aac9c6e8a96016dc1694a2f794a..9cae65be0d8ac7c0770792126e75f9304c1cc0ae 100644 (file)
--- 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