OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/43217 (Output of Hollerith constants which are not a multiple of 4 bytes)

Browse Source 
2010-08-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/43217
	* gfortran.dg/hollerith8.f90: New test.

From-SVN: r163588
This commit is contained in:
Jerry DeLisle 2010-08-27 15:00:11 +00:00
parent c8717ea3bc
commit 2854a076f6
2 changed files with 31 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 @@
2010-08-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/43217
* gfortran.dg/hollerith8.f90: New test.
2010-08-27 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/45159

26
gcc/testsuite/gfortran.dg/hollerith8.f90 Normal file
View File

@ -0,0 +1,26 @@
! { dg-do run }
! { dg-options "-std=gnu" }
! PR43217 Output of Hollerith constants which are not a multiple of 4 bytes
! Test case prepared from OP by Jerry DeLisle <jvdelisle@gcc.gnu.org>
program hello2
call wrtout (9hHELLO YOU, 9)
stop
end
subroutine wrtout (iarray, nchrs)
integer iarray(1)
integer nchrs
integer icpw
data icpw/4/
integer i, nwrds
character(len=33) outstr
nwrds = (nchrs + icpw - 1) /icpw
write(outstr,'(4(z8," "))') (iarray(i), i=1,nwrds)
if (outstr.ne."4C4C4548 4F59204F 20202055" .and. &
& outstr.ne."48454C4C 4F20594F 55202020") call abort
return
end
! { dg-warning "Hollerith constant" "" { target *-*-* } 6 }
! { dg-warning "Rank mismatch" "" { target *-*-* } 6 }