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

re PR fortran/54474 (gfortran.dg/coarray_poly_3.f90)

Browse source 
2012-09-05  Dominique Dhumieres  <dominiq@lps.ens.fr>

	PR fortran/54474
	* gfortran.dg/coarray_poly_3.f90: Adjust error messages.

From-SVN: r190977
This commit is contained in:
Dominique d'Humieres 2012-09-05 13:26:58 +00:00 • committed by Mikael Morin
parent ff99de9860
commit e124e65f35
2 changed files with 7 additions and 2 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-09-05 Dominique Dhumieres <dominiq@lps.ens.fr>
PR fortran/54474
* gfortran.dg/coarray_poly_3.f90: Adjust error messages.
2012-09-05 Paolo Carlini <paolo.carlini@oracle.com>
PR c++/54191

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

@ -3,13 +3,13 @@
!
subroutine cont1(x) ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer or an assumed-shape array" }
subroutine cont1(x) ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer or an assumed-shape or assumed-rank array" }
type t
end type t
class(t), contiguous, allocatable :: x(:)
end
subroutine cont2(x) ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer or an assumed-shape array" }
subroutine cont2(x) ! { dg-error "has the CONTIGUOUS attribute but is not an array pointer or an assumed-shape or assumed-rank array" }
type t
end type t
class(t), contiguous, allocatable :: x(:)[:]