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

re PR fortran/19195 (gfortran: ICE in final_scan_insn, at final.c:1843)

Browse source 
fortran/
2005-06-04  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
	Erik Schnetter  <schnetter@aei.mpg.de>

	PR fortran/19195
	* trans.c (gfc_get_backend_locus): Remove unnecessary adjustment,
	remove FIXME comment.

testsuite/
2005-06-04  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>

	PR fortran/19195
	* gfortran.dg/debug_1.f90: New test.

Co-Authored-By: Erik Schnetter <schnetter@aei.mpg.de>

From-SVN: r100603
This commit is contained in:
Tobias Schlüter 2005-06-05 00:20:58 +02:00 • committed by Tobias Schlüter
parent 579e4a82ec
commit 8e4005784d
4 changed files with 31 additions and 2 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-06-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
Erik Schnetter <schnetter@aei.mpg.de>
* trans.c (gfc_get_backend_locus): Remove unnecessary adjustment,
remove FIXME comment.
2005-06-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* match.c (match_forall_iterator): Don't immediately give error if '='

4
gcc/fortran/trans.c
View file

@ -437,9 +437,9 @@ gfc_get_backend_locus (locus * loc)
{
loc->lb = gfc_getmem (sizeof (gfc_linebuf));
#ifdef USE_MAPPED_LOCATION
loc->lb->location = input_location; /* FIXME adjust?? */
loc->lb->location = input_location;
#else
loc->lb->linenum = input_line - 1;
loc->lb->linenum = input_line;
#endif
loc->lb->file = gfc_current_backend_file;
}

3
gcc/testsuite/ChangeLog
View file

@ -1,5 +1,8 @@
2005-06-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/19195
* gfortran.dg/debug_1.f90: New test.
* gfortran.dg/forall_1.f90: New test.
2005-06-04 Erik Edelmann <erik.edelmann@iki.fi>

20
gcc/testsuite/gfortran.dg/debug_1.f90 Normal file
View file

@ -0,0 +1,20 @@
subroutine gfc_debug_bug (n,m,k,ax,bx,c)
! above line must be the first line
! { dg-do compile }
! { dg-options "-g" }
! PR 19195
! we set line numbers wrongly, which made the compiler choke when emitting
! debug information.
implicit none
integer :: n, m
integer :: k(n+m)
real :: ax(:), bx(n), c(n+m)
integer :: i
real :: f
i = k(n)
f = c(n)
f = bx(n)
f = ax(n)
end subroutine gfc_debug_bug