Commit 6b4496db by Tobias Burnus Committed by Tobias Burnus

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
parent 2f33158f
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> 2012-07-26 Richard Guenther <rguenther@suse.de>
PR tree-optimization/54098 PR tree-optimization/54098
......
...@@ -129,7 +129,7 @@ subroutine C1241 ...@@ -129,7 +129,7 @@ subroutine C1241
integer, pointer, contiguous :: a(:) integer, pointer, contiguous :: a(:)
integer, pointer :: b(:) integer, pointer :: b(:)
call test(a) call test(a)
call test(b) ! { dg-error "must be simply contigous" } call test(b) ! { dg-error "must be simply contiguous" }
contains contains
subroutine test(x) subroutine test(x)
integer, pointer, contiguous :: x(:) integer, pointer, contiguous :: x(:)
...@@ -169,7 +169,7 @@ end subroutine sect12528 ...@@ -169,7 +169,7 @@ end subroutine sect12528
subroutine test34 subroutine test34
implicit none implicit none
integer, volatile,pointer :: a(:,:),i 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 contains
subroutine foo(x) subroutine foo(x)
integer, pointer, contiguous, volatile :: x(:) integer, pointer, contiguous, volatile :: x(:)
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
implicit none implicit none
procedure(my_dcos), pointer :: f 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 contains
real elemental function my_dcos(x) real elemental function my_dcos(x)
real, intent(in) :: x real, intent(in) :: x
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment