On 07/25/2012 08:04 PM, Tobias Burnus wrote:
Committed as obvious (Rev. 189859).
I just saw that I missed the testsuite changes. I have now committed
them as Rev. 189887.
Tobias
Index: testsuite/gfortran.dg/contiguous_1.f90
===================================================================
--- testsuite/gfortran.dg/contiguous_1.f90 (revision 189886)
+++ testsuite/gfortran.dg/contiguous_1.f90 (working copy)
@@ -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(:)
Index: testsuite/gfortran.dg/proc_ptr_32.f90
===================================================================
--- testsuite/gfortran.dg/proc_ptr_32.f90 (revision 189886)
+++ testsuite/gfortran.dg/proc_ptr_32.f90 (working copy)
@@ -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
Index: testsuite/ChangeLog
===================================================================
--- testsuite/ChangeLog (revision 189886)
+++ testsuite/ChangeLog (working copy)
@@ -1,3 +1,8 @@
+2012-07-26 Tobias Burnus <[email protected]>
+
+ * gfortran.dg/contiguous_1.f90: Update dg-error.
+ * gfortran.dg/proc_ptr_32.f90: Ditto.
+
2012-07-26 Richard Guenther <[email protected]>
PR tree-optimization/54098
