gcc/f/ste.c

1189    that are needed as specified by the arguments to this function.
1321    that are needed as specified by the arguments to this function.
1557    that are needed as specified by the arguments to this function.
1682    that are needed as specified by the arguments to this function.
1922    that are needed as specified by the arguments to this function.
2191    that are needed as specified by the arguments to this function.
2391 #define specified(something) (info->beru_spec[something].kw_or_val_present)
2393   iostat = specified (FFESTP_beruixIOSTAT);
2394   errl = specified (FFESTP_beruixERR);
2396 #undef specified
2398   /* ~~For now, we assume the unit number is specified and is not ASTERISK,
3747 #define specified(something) (info->open_spec[something].kw_or_val_present)
3749     iostat = specified (FFESTP_openixIOSTAT);
3750     errl = specified (FFESTP_openixERR);
3752 #undef specified
3856 #define specified(something) (info->close_spec[something].kw_or_val_present)
3858     iostat = specified (FFESTP_closeixIOSTAT);
3859     errl = specified (FFESTP_closeixERR);
3861 #undef specified
4080 #define specified(something) (info->read_spec[something].kw_or_val_present)
4082     iostat = specified (FFESTP_readixIOSTAT);
4083     errl = specified (FFESTP_readixERR);
4084     endl = specified (FFESTP_readixEND);
4086 #undef specified
4410 #define specified(something) (info->write_spec[something].kw_or_val_present)
4412     iostat = specified (FFESTP_writeixIOSTAT);
4413     errl = specified (FFESTP_writeixERR);
4415 #undef specified
4838 #define specified(something) (info->inquire_spec[something].kw_or_val_present)
4840     iostat = specified (FFESTP_inquireixIOSTAT);
4841     errl = specified (FFESTP_inquireixERR);
4843 #undef specified