diff mbox series

[fortran] Fix PR 61968

Message ID ba34635e-f753-8247-d744-ba898309a5ad@netcologne.de
State New
Headers show
Series [fortran] Fix PR 61968 | expand

Commit Message

Thomas Koenig May 1, 2019, 9:13 p.m. UTC 
Hello world,

the attached patch fixes an error where TYPE(*) ended up in a vtab,
with not-so delectable results.  The solultion is simple - do not
create a vtab if the actual argument is TYPE(*).

This also clears the ICE for my inline packing patch which
was reported by Dominique.

Regression-tested. OK for trunk?

Regards

	Thomas
diff mbox series

Patch

Index: interface.c
===================================================================
--- interface.c	(Revision 270622)
+++ interface.c	(Arbeitskopie)
@@ -2989,7 +2989,8 @@  compare_actual_formal (gfc_actual_arglist **ap, gf
 	 polymorphic formal arguments.  */
       if (UNLIMITED_POLY (f->sym)
 	  && a->expr->ts.type != BT_DERIVED
-	  && a->expr->ts.type != BT_CLASS)
+	  && a->expr->ts.type != BT_CLASS
+	  && a->expr->ts.type != BT_ASSUMED)
 	gfc_find_vtab (&a->expr->ts);
 
       if (a->expr->expr_type == EXPR_NULL