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

gcc/fortran/ChangeLog

+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

gcc/fortran/module.c

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

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/pr71649.f90

+! { 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
+