static void ChkStructIO( sym_id sym ) {
//========================================
if( HasUnion( sym->sd.fl.sym_fields ) ) {
if( ( StmtSw & SS_DATA_INIT ) || !NotFormatted() ) {
StructErr( SP_STRUCT_HAS_UNION, sym );
}
}
}
void GStartIO( void ) {
//==================
// Generate code to invoke the run-time routine.
if( !AuxIOStmt() && NotFormatted() ) {
EmitOp( FC_SET_NOFMT );
}
EmitOp( FC_IO_STMTS + IOIndex() );
// PRINT, READ and WRITE i/o statements can check for END= and ERR=
// statement labels when RT_ENDIO is generated; auxilliary i/o
// statements don't generate RT_ENDIO so generate F-Code to check
// for statement labels.
if( AuxIOStmt() || Already( IO_NAMELIST ) ) {
EmitOp( FC_CHK_IO_STMT_LABEL );
}
}
