diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3092b9072bf..805698a5d9f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-07-26 Tobias Burnus + + * gfortran.dg/contiguous_1.f90: Update dg-error. + * gfortran.dg/proc_ptr_32.f90: Ditto. + 2012-07-26 Richard Guenther PR tree-optimization/54098 diff --git a/gcc/testsuite/gfortran.dg/contiguous_1.f90 b/gcc/testsuite/gfortran.dg/contiguous_1.f90 index e75c08d8ef4..78c84cbbe07 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 5664ddecd5d..9cae65be0d8 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