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

re PR fortran/71649 (Internal compiler error) 

2016-06-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/71649
	* module.c (create_intrinsic_function): Check for NULL values and
	return after giving error.

	PR fortran/71649
	* gfortran.dg/pr71649.f90: New test.

From-SVN: r237789
This commit is contained in:
Jerry DeLisle 2016-06-26 01:03:19 +00:00
parent 9bbbddab3c
commit 46db0fd456
4 changed files with 29 additions and 3 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 @@
2016-06-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/71649
* module.c (create_intrinsic_function): Check for NULL values and
return after giving error.
2016-06-21 Michael Meissner <meissner@linux.vnet.ibm.com>
* trans-types.c (gfc_build_complex_type): Move setting complex

8
gcc/fortran/module.c
View File

@ -6159,9 +6159,11 @@ create_intrinsic_function (const char *name, int id,
tmp_symtree = gfc_find_symtree (gfc_current_ns->sym_root, name);
if (tmp_symtree)
{
if (strcmp (modname, tmp_symtree->n.sym->module) == 0)
return;
gfc_error ("Symbol %qs already declared", name);
if (tmp_symtree->n.sym && tmp_symtree->n.sym->module
&& strcmp (modname, tmp_symtree->n.sym->module) == 0)
return;
gfc_error ("Symbol %qs at %C already declared", name);
return;
}
gfc_get_sym_tree (name, gfc_current_ns, &tmp_symtree, false);

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-06-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/71649
* gfortran.dg/pr71649.f90: New test.
2016-06-25 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/71643

13
gcc/testsuite/gfortran.dg/pr71649.f90 Normal file
View File

@ -0,0 +1,13 @@
! { dg-do compile }
! PR71649 Internal Compiler Error
SUBROUTINE Compiler_Options ( Options, Version, WriteOpt )
USE ISO_FORTRAN_ENV, ONLY : Compiler_Version, Compiler_Options ! { dg-error "already declared" }
IMPLICIT NONE
CHARACTER (LEN=*), INTENT(OUT) :: Options
CHARACTER (LEN=*), INTENT(OUT) :: Version
LOGICAL, INTENT(IN), OPTIONAL :: WriteOpt
Version = Compiler_Version()
Options = Compiler_Options() ! { dg-error "Unexpected use of subroutine name" }
RETURN
END SUBROUTINE Compiler_Options