diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/contiguous_1.f90 | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_32.f90 | 2 |
3 files changed, 8 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 3092b90..805698a 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 e75c08d..78c84cb 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 5664dde..9cae65b 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 |