3 ! PR fortran/38665, in which checking for host association
4 ! was wrongly trying to substitute mod_symmon(mult) with
5 ! mod_sympoly(mult) in the user operator expression on line
8 ! Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>
13 public :: t_symmon, operator(*)
25 elemental function mult(m1,m2) result(m)
26 type(t_symmon), intent(in) :: m1, m2
36 type(t_symmon), allocatable :: mons(:)
40 elemental function mult(p1,p2) result(p)
41 type(t_sympol), intent(in) :: p1,p2
43 type(t_symmon), allocatable :: mons(:)
44 mons(1) = p1%mons(1)*p2%mons(2)
47 ! { dg-final { cleanup-modules "mod_symmon mod_sympoly" } }