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

re PR fortran/70592 (Addressing error in dynamically-allocated character array)

Browse source 
2016-04-09  Dominique d'Humieres  <dominiq@lps.ens.fr>

	PR fortran/70592
	* gfortran.dg/deferred_character_16.f90: New test.

From-SVN: r234850
This commit is contained in:
Dominique d'Humieres 2016-04-09 15:29:32 +02:00 • committed by Dominique d'Humieres
parent f55460af16
commit 138c3c1a78
2 changed files with 24 additions and 0 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 @@
2016-04-09 Dominique d'Humieres <dominiq@lps.ens.fr>
PR fortran/70592
* gfortran.dg/deferred_character_16.f90: New test.
2016-04-09 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/70586

19
gcc/testsuite/gfortran.dg/deferred_character_16.f90 Normal file
View file

@ -0,0 +1,19 @@
! { dg-do run }
! PR70592 dynamically-allocated character array
! Contributed by Peter Knowles <KnowlesPJ@Cardiff.ac.uk>
!
PROGRAM main
character(len=7) :: res
CHARACTER(len=:), DIMENSION(:), POINTER :: cp
INTEGER :: i
ALLOCATE(CHARACTER(len=1) :: cp(1:6))
if (SIZE(cp) /= 6 .or. LBOUND(cp,1) /= 1 .or. UBOUND(cp,1) /= 6) call abort()
cp(1)='1'
cp(2)='2'
cp(3)='3'
cp(4)='4'
cp(5)='5'
cp(6)='6'
write (res, *) cp
if (res /= ' 123456') call abort()
END PROGRAM main