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

re PR fortran/60774 (f951: internal compiler error: Segmentation fault: 11)

Browse source 
2016-08-22  Steven G. Kargl  <kargl@gcc.gnu.org>
	    Bud Davis  <jmdavis@link.com>

	PR fortran/60774
	* parse.c (next_free,next_fixed): Issue error for statement label
	without a statement.

2016-08-22  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/60774
	* gfortran.dg/empty_label.f: Adjust test for new error message.
	* gfortran.dg/empty_label.f90: Ditto.
	* gfortran.dg/empty_label_typedecl.f90: Ditto.
	* gfortran.dg/label_3.f90: Deleted (redundant with empty_label.f90).
	* gfortran.dg/warnings_are_errors_1.f90: Remove invalid statement label.

Co-Authored-By: Bud Davis <jmdavis@link.com>

From-SVN: r239668
This commit is contained in:
Steven G. Kargl 2016-08-22 18:23:43 +00:00
parent 30364ce673
commit 58338bacdd
8 changed files with 23 additions and 29 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 @@
2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org>
Bud Davis <jmdavis@link.com>
PR fortran/60774
* parse.c (next_free,next_fixed): Issue error for statement label
without a statement.
2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/61318

12
gcc/fortran/parse.c
View file

@ -1071,13 +1071,8 @@ next_free (void)
}
if (gfc_match_eos () == MATCH_YES)
{
gfc_warning_now (0, "Ignoring statement label in empty statement "
"at %L", &label_locus);
gfc_free_st_label (gfc_statement_label);
gfc_statement_label = NULL;
return ST_NONE;
}
gfc_error_now ("Statement label without statement at %L",
&label_locus);
}
}
else if (c == '!')
@ -1333,8 +1328,7 @@ next_fixed (void)
blank_line:
if (digit_flag)
gfc_warning_now (0, "Ignoring statement label in empty statement at %L",
&label_locus);
gfc_error_now ("Statement label without statement at %L", &label_locus);
gfc_current_locus.lb->truncated = 0;
gfc_advance_line ();

9
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,12 @@
2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/60774
* gfortran.dg/empty_label.f: Adjust test for new error message.
* gfortran.dg/empty_label.f90: Ditto.
* gfortran.dg/empty_label_typedecl.f90: Ditto.
* gfortran.dg/label_3.f90: Deleted (redundant with empty_label.f90).
* gfortran.dg/warnings_are_errors_1.f90: Remove invalid statement label.
2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/61318

7
gcc/testsuite/gfortran.dg/empty_label.f
View file

@ -1,7 +1,4 @@
C { dg-do compile }
C { dg-options "-Werror -fmax-errors=1" }
100 ! { dg-error "empty statement" }
100 ! { dg-error "Statement label without statement" }
end
subroutine foo ! Not checked ...
end function ! ... but an error
C { dg-excess-errors "warnings being treated as errors" }

6
gcc/testsuite/gfortran.dg/empty_label.f90
View file

@ -1,7 +1,3 @@
! { dg-do compile }
! { dg-options "-Werror -fmax-errors=1" }
100 ! { dg-error "empty statement" }
100 ! { dg-error "Statement label without statement" }
end
subroutine foo ! Not checked ...
end function ! ... but an error
! { dg-excess-errors "warnings being treated as errors" }

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

@ -1,8 +1,6 @@
! { dg-do compile }
! { dg-options "-Werror" }
subroutine s
type t
1 ! { dg-error "empty statement" }
1 ! { dg-error "Statement label without statement" }
end type
end subroutine
! { dg-excess-errors "warnings being treated as errors" }

5
gcc/testsuite/gfortran.dg/label_3.f90
View file

@ -1,5 +0,0 @@
! { dg-do compile }
! PR fortran/25756.
! This used to ICE due to the space after the label.
1 ! { dg-warning "Ignoring statement label in empty statement" }
end

2
gcc/testsuite/gfortran.dg/warnings_are_errors_1.f90
View file

@ -20,8 +20,6 @@
1234 complex :: cplx ! { dg-error "defined but cannot be used" }
cplx = 20.
! gfc_warning_now:
1 ! { dg-error "Ignoring statement label in empty statement" }
end
! { dg-final { output-exists-not } }
! { dg-excess-errors "warnings being treated as errors" }