Lines Matching defs:spec
1145 const B &spec) {
1151 loc, Fortran::semantics::GetExpr(spec.v), localStatementCtx));
1162 const B &spec) {
1168 lowerStringLit(converter, loc, localStatementCtx, spec,
1177 mlir::Location loc, mlir::Value cookie, const A &spec) {
1193 mlir::Value cookie, const Fortran::parser::FileNameExpr &spec) {
1200 lowerStringLit(converter, loc, localStatementCtx, spec,
1210 mlir::Value cookie, const Fortran::parser::ConnectSpec::CharExpr &spec) {
1213 switch (std::get<Fortran::parser::ConnectSpec::CharExpr::Kind>(spec.t)) {
1263 std::get<Fortran::parser::ScalarDefaultCharExpr>(spec.t),
1273 mlir::Value cookie, const Fortran::parser::ConnectSpec::Recl &spec) {
1274 return genIntIOOption<mkIOKey(SetRecl)>(converter, loc, cookie, spec);
1280 mlir::Value cookie, const Fortran::parser::StatusExpr &spec) {
1281 return genCharIOOption<mkIOKey(SetStatus)>(converter, loc, cookie, spec.v);
1287 mlir::Value cookie, const Fortran::parser::IoControlSpec::CharExpr &spec) {
1290 switch (std::get<Fortran::parser::IoControlSpec::CharExpr::Kind>(spec.t)) {
1317 std::get<Fortran::parser::ScalarDefaultCharExpr>(spec.t),
1328 const Fortran::parser::IoControlSpec::Asynchronous &spec) {
1330 spec.v);
1336 mlir::Value cookie, const Fortran::parser::IoControlSpec::Pos &spec) {
1337 return genIntIOOption<mkIOKey(SetPos)>(converter, loc, cookie, spec);
1343 mlir::Value cookie, const Fortran::parser::IoControlSpec::Rec &spec) {
1344 return genIntIOOption<mkIOKey(SetRec)>(converter, loc, cookie, spec);
1370 for (const auto &spec : list)
1371 if (std::holds_alternative<SEEK>(spec.u))
1384 for (const auto &spec : stmt.v)
1385 if (auto *f = std::get_if<SEEK>(&spec.u))
1396 for (const auto &spec : specList) {
1420 spec.u);
1434 for (const auto &spec : specList) {
1461 spec.u);
1507 for (const auto &spec : stmt.controls)
1508 if (const auto *result = std::get_if<SEEK>(&spec.u))
1651 // This is a format statement, so extract the spec from the text.
1741 TODO(loc, "io-control-spec contains a reference to a non-integer, "
1919 for (const auto &spec : specList)
1921 std::get_if<Fortran::parser::ConnectSpec::Newunit>(&spec.u)) {
1936 llvm_unreachable("missing Newunit spec");
2229 for (const auto &spec : stmt.controls)
2231 std::get_if<Fortran::parser::IoControlSpec::Size>(&spec.u)) {
2238 std::get_if<Fortran::parser::IdVariable>(&spec.u)) {
2251 // PRINT does not take an io-control-spec. It only has a format specifier, so
2268 /// Get the file expression from the inquire spec list. Also return if the
2274 for (const Fortran::parser::InquireSpec &spec : *stmt) {
2275 if (auto *f = std::get_if<Fortran::parser::FileUnitNumber>(&spec.u))
2277 if (auto *f = std::get_if<Fortran::parser::FileNameExpr>(&spec.u))
2281 llvm::report_fatal_error("inquire spec must have a file");
2406 for (const Fortran::parser::InquireSpec &spec : ispecs)
2414 spec.u))
2419 /// For each inquire-spec, build the appropriate call, threading the cookie.
2427 for (const Fortran::parser::InquireSpec &spec : ispecs) {
2433 spec.u);
2511 assert(list && "inquire-spec list must be present");