re PR fortran/69498 (ICE on disjunct cases with displaced or incomplete embedded statement)

2017-03-18  Nicolas Koenig  <koenigni@student.ethz.ch>

                PR fortran/69498
                * decl.c (add_hidden_procptr_result): Fixed Refs count of the created "ppr@" symbol.

2017-03-18  Nicolas Koenig  <koenigni@student.ethz.ch>

                PR fortran/69498
                * gfortran.dg/unexp_attribute.f90: New test

From-SVN: r246322

gcc/fortran/decl.c

@@ -5430,6 +5430,7 @@ add_hidden_procptr_result (gfc_symbol *sym)
 	  gfc_get_sym_tree ("ppr@", gfc_current_ns->parent, &stree, false);
 	  st2 = gfc_new_symtree (&gfc_current_ns->sym_root, "ppr@");
 	  st2->n.sym = stree->n.sym;
+	  stree->n.sym->refs++;
 	}
       sym->result = stree->n.sym;
 

gcc/testsuite/gfortran.dg/unexp_attribute.f90

+! { dg-do compile }
+! PR fortran/69498
+! This test used to result in an internal compiler error
+function f()
+    interface
+    external f ! { dg-error "Unexpected attribute declaration statement in INTERFACE" }
+    end interface
+end function