diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-07-26 13:49:32 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-07-26 13:49:32 +0200 |
| commit | 6b4496dbc3afe3f18aaf3fa6792995427194d685 (patch) | |
| tree | 3e8a09b56dedc1756b601daf557fab40e75026ba /gcc | |
| parent | 2f33158ffbcca343ca00c302935f2d324b47d373 (diff) | |
| download | gcc-6b4496dbc3afe3f18aaf3fa6792995427194d685.zip gcc-6b4496dbc3afe3f18aaf3fa6792995427194d685.tar.gz gcc-6b4496dbc3afe3f18aaf3fa6792995427194d685.tar.bz2 | |
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
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 |