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

re PR fortran/32945 (ICE with initialization expressions)

Browse Source 
gcc/fortran:
2007-08-01  Daniel Franke  <franke.daniel@gmail.com>

	PR fortran/32945
	* expr.c (check_specification_function): Skip check if no symtree 
	is available.

gcc/testsuite:
2007-08-01  Daniel Franke  <franke.daniel@gmail.com>

	PR fortran/32945
	* gfortran.dg/initialization_12.f90: New test.

From-SVN: r127124
This commit is contained in:
Daniel Franke 2007-08-01 08:52:48 -04:00 committed by Daniel Franke
parent e5c95afe1e
commit d05360a612
4 changed files with 44 additions and 0 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 @@
2007-08-01 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32945
* expr.c (check_specification_function): Skip check if no symtree
is available.
2007-08-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/31609

4
gcc/fortran/expr.c
View File

@ -693,6 +693,10 @@ static match
check_specification_function (gfc_expr *e)
{
gfc_symbol *sym;
if (!e->symtree)
return MATCH_NO;
sym = e->symtree->n.sym;
/* F95, 7.1.6.2; F2003, 7.1.7 */

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-08-01 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32945
* gfortran.dg/initialization_12.f90: New test.
2007-08-01 Paul Thomas <pault@gcc.gnu.org>
PR fortran/31609

29
gcc/testsuite/gfortran.dg/initialization_12.f90 Normal file
View File

@ -0,0 +1,29 @@
! { dg-do compile }
! PR fortran/32945 - ICE in init expressions
!
! Contributed by Florian Ladstaedter <flad AT gmx DOT at>
!
MODULE EGOPS_Utilities
CONTAINS
FUNCTION dirname(fullfilename)
Character(LEN=*), Intent(In) :: fullfilename
Character(LEN=LEN(fullfilename)) :: dirname
dirname = ''
END FUNCTION
END MODULE EGOPS_Utilities
MODULE AtmoIono
CHARACTER(LEN=10), PARAMETER :: ComputeDryAtmModel = 'Dry Atm.  '
type AtmModel
character (len=len(ComputeDryAtmModel)) :: moistDryStr
end type AtmModel
END MODULE AtmoIono
module AtmoIonoSphere
use EGOPS_Utilities
use AtmoIono
end module AtmoIonoSphere
! { dg-final { cleanup-modules "EGOPS_Utilities AtmoIono AtmoIonoSphere" } }