Fix mixing of input and output io_implied_do rules

[dryabov]

Original code tries to parse variable from input_item prior to expr from output_item that results in an issue with the following code:

WRITE (99,*) (A(K)*B,K=1,3)

(Changing the order of input_item and output_item in the io_implied_do_object is not a correct solution because it allows expressions in the READ statement.)