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

re PR fortran/21260 (Conflict between comment and H edit descriptor)

Browse Source 
fortran/
	PR fortran/21260
	* io.c (check_format): Look for literal characters inside
	hollerith constant.
testsuite/
	PR fortran/21260
	* gfortran.dg/hollerith_1.f90: New test.

From-SVN: r99597
This commit is contained in:
Tobias Schlüter 2005-05-12 00:32:04 +02:00 committed by Tobias Schlüter
parent 5e6c8b6428
commit b160dd2803
4 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2005-05-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/21260
* io.c (check_format): Look for literal characters inside
hollerith constant.
2005-05-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* resolve.c (resolve_symbol): Copy 'pointer' and 'dimension'

2
gcc/fortran/io.c
View File

@ -642,7 +642,7 @@ data_desc:
{
while(repeat >0)
{
next_char(0);
next_char(1);
repeat -- ;
}
}

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2005-05-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/21260
* gfortran.dg/hollerith_1.f90: New test.
2005-05-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/func_result_2.f90: New test.

11
gcc/testsuite/gfortran.dg/hollerith_1.f90 Normal file
View File

@ -0,0 +1,11 @@
! { dg-do run }
! PR 21260
! We wrongly interpreted the '!' as the beginning of a comment.
! Also verifies the functioning of hollerith formatting.
character*72 c
write(c,8000)
8000 format(36(2H!)))
do i = 1,72,2
if (c(i:i+1) /= '!)') call abort
end do
end