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

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

gcc/fortran/ChangeLog

 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 '='
 	is not followed by an expression.

gcc/fortran/trans.c

@@ -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;
 }

gcc/testsuite/ChangeLog

 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>

gcc/testsuite/gfortran.dg/debug_1.f90

+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