error #6691 test case

I ran into a compilation error #6691: "A pointer dummy argument may only be argument associated with a pointer."



I generated a test case for it, which I'm including. I can solve the error by removing the pointer attribute to the dummy argument in subroutine leg_b_only_action(), though I don't see why that would be necessary since the calling unit (in this case is main) does pass a pointer thas has been checked to be of the right class. I'm trying to determine what I'm not getting right.