Searched defs:test_poly_a (Results 1 – 1 of 1) sorted by relevance
26 subroutine test_poly_a(x, w) subroutine27 class(a), intent(in) :: x local28 character*(*), intent(in) :: w local