procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

contiguous_1.f90: Update dg-error.

Browse source 
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
This commit is contained in:
Tobias Burnus 2012-07-26 13:49:32 +02:00 • committed by Tobias Burnus
parent 2f33158ffb
commit 6b4496dbc3
3 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -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

4
gcc/testsuite/gfortran.dg/contiguous_1.f90
View file

@ -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(:)

2
gcc/testsuite/gfortran.dg/proc_ptr_32.f90
View file

@ -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