[fortran,committed] Commit symbol for external BLAS routine when translating MATMUL to *GEMM.
diff mbox series

Message ID 2b4d48fc-273d-7e8b-3909-cf8ac22640fd@netcologne.de
State New
Headers show
Series
  • [fortran,committed] Commit symbol for external BLAS routine when translating MATMUL to *GEMM.
Related show

Commit Message

Thomas Koenig Nov. 9, 2019, 2:57 p.m. UTC
Hi,

I just committed the patch below as obvious to fix a 9/10 regression
when directly calling BLAS routines for matmul.  Will backport
to gcc-9 soon.

Regards

	Thomas

Commit symbol for external BLAS routine when translating MATMUL to *GEMM.

2019-11-09  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/92321
	* frontend-passes.c (call_external_blas): Commit symbol for
	external BLAS routine.

2019-11-09  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/92321
	* gfortran.dg/matmul_blas_2.f90: New test.

Patch
diff mbox series

Index: frontend-passes.c
===================================================================
--- frontend-passes.c	(Revision 277999)
+++ frontend-passes.c	(Arbeitskopie)
@@ -4635,6 +4635,7 @@  call_external_blas (gfc_code **c, int *walk_subtre
   call->symtree->n.sym->attr.procedure = 1;
   call->symtree->n.sym->attr.flavor = FL_PROCEDURE;
   call->resolved_sym = call->symtree->n.sym;
+  gfc_commit_symbol (call->resolved_sym);
 
   /* Argument TRANSA.  */
   next = gfc_get_actual_arglist ();