1! { dg-do compile } 2! { dg-options "-fdefault-real-8 -fexternal-blas -fdump-tree-original" } 3! 4! PR fortran/54463 5! 6! Contributed by Simon Reinhardt 7! 8program test 9 implicit none 10 real, dimension(3,3) :: A 11 A = matmul(A,A) 12end program test 13 14! { dg-final { scan-tree-dump-times "sgemm_" 0 "original" } } 15! { dg-final { scan-tree-dump-times "dgemm_" 1 "original" } } 16! { dg-final { cleanup-tree-dump "original" } } 17