3773 #define io_constraint(condition, msg, arg)\  in check_io_constraints()  macro
3797       io_constraint (k == M_WRITE && sym->attr.intent == INTENT_IN,  in check_io_constraints()
3801       io_constraint (gfc_has_vector_index (dt->io_unit),  in check_io_constraints()
3805       io_constraint (dt->rec != NULL,  in check_io_constraints()
3809       io_constraint (dt->pos != NULL,  in check_io_constraints()
3813       io_constraint (unformatted,  in check_io_constraints()
3817       io_constraint (dt->asynchronous != NULL,  in check_io_constraints()
3828       io_constraint (dt->advance != NULL,  in check_io_constraints()
3899       io_constraint (not_yes,  in check_io_constraints()
3920 	  io_constraint (unformatted,  in check_io_constraints()
3943 	  io_constraint (unformatted,  in check_io_constraints()
3965 	  io_constraint (unformatted,  in check_io_constraints()
4008 	  io_constraint (unformatted,  in check_io_constraints()
4012 	  io_constraint (k == M_READ,  in check_io_constraints()
4034 	  io_constraint (k == M_READ,  in check_io_constraints()
4038 	  io_constraint (dt->format_label != &format_asterisk  in check_io_constraints()
4043 	  io_constraint (unformatted && dt->namelist == NULL,  in check_io_constraints()
4051       io_constraint (io_code && dt->namelist,  in check_io_constraints()
4055       io_constraint (dt->format_expr,  in check_io_constraints()
4060       io_constraint (dt->format_label,  in check_io_constraints()
4064       io_constraint (dt->rec,  in check_io_constraints()
4068       io_constraint (dt->advance,  in check_io_constraints()
4075       io_constraint (dt->end,  in check_io_constraints()
4079       io_constraint (dt->format_label == &format_asterisk,  in check_io_constraints()
4083       io_constraint (dt->pos,  in check_io_constraints()
4093       io_constraint (dt->format_label == &format_asterisk,  in check_io_constraints()
4097       io_constraint (unformatted,  in check_io_constraints()
4115       io_constraint (not_no && not_yes,  in check_io_constraints()
4119       io_constraint (dt->size && not_no && k == M_READ,  in check_io_constraints()
4123       io_constraint (dt->eor && not_no && k == M_READ,  in check_io_constraints()
4130       io_constraint (dt->end, "END tag not allowed with output at %L",  in check_io_constraints()
4133       io_constraint (dt->eor, "EOR tag not allowed with output at %L",  in check_io_constraints()
4136       io_constraint (dt->blank,  in check_io_constraints()
4140       io_constraint (dt->pad, "PAD= specifier not allowed with output at %L",  in check_io_constraints()
4143       io_constraint (dt->size, "SIZE= specifier not allowed with output at %L",  in check_io_constraints()
4148       io_constraint (dt->size && dt->advance == NULL,  in check_io_constraints()
4152       io_constraint (dt->eor && dt->advance == NULL,  in check_io_constraints()
4158 #undef io_constraint  in check_io_constraints()