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

parse.c (next_free): Use consistent error string between free-form and fixed-form for illegal... 

fortran/

	* parse.c (next_free): Use consistent error string between
	free-form and fixed-form for illegal statement label of zero.
	(next_fixed): Use consistent warning string between free-form
	and fixed-form for statement labels for empty statements.

testsuite/

	* gfortran.dg/label_1.f90: Adjust dg-error.

From-SVN: r113053
This commit is contained in:
Bernhard Fischer 2006-04-18 19:58:41 +02:00 committed by Bernhard Reutner-Fischer
parent d955420ef2
commit 9b3e4c45ad
4 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2006-04-18 Bernhard Fischer <aldot@gcc.gnu.org>
* parse.c (next_free): Use consistent error string between
free-form and fixed-form for illegal statement label of zero.
(next_fixed): Use consistent warning string between free-form
and fixed-form for statement labels for empty statements.
2006-04-18 Steve Ellcey <sje@cup.hp.com>
* trans-io.c (gfc_build_io_library_fndecls): Align pad.

6
gcc/fortran/parse.c
View File

@ -428,9 +428,9 @@ next_free (void)
if (cnt > 5)
gfc_error_now ("Too many digits in statement label at %C");
if (c == 0)
gfc_error_now ("Statement label at %C is zero");
gfc_error_now ("Zero is not a valid statement label at %C");
do
c = gfc_next_char ();
@ -600,7 +600,7 @@ next_fixed (void)
blank_line:
if (digit_flag)
gfc_warning ("Statement label in blank line will be ignored at %C");
gfc_warning ("Ignoring statement label in empty statement at %C");
gfc_advance_line ();
return ST_NONE;
}

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2006-04-18 Bernhard Fischer <aldot@gcc.gnu.org>
* gfortran.dg/label_1.f90: Adjust dg-error.
2006-04-16 Roger Sayle <roger@eyesopen.com>
PR target/26961

2
gcc/testsuite/gfortran.dg/label_1.f90
View File

@ -3,7 +3,7 @@
program a
0056780 continue ! { dg-error "Too many digits" }
0 continue ! { dg-error "Statement label at" }
0 continue ! { dg-error "Zero is not a valid statement label" }
stop 001234 ! { dg-error "Too many digits" }
end program a