10
10
//
11
11
// ===----------------------------------------------------------------------===//
12
12
13
+ #include " flang/Lower/IO.h"
13
14
#include " ConvertVariable.h"
14
15
#include " StatementContext.h"
15
16
#include " flang/Lower/Allocatable.h"
16
17
#include " flang/Lower/Bridge.h"
17
18
#include " flang/Lower/ConvertExpr.h"
18
- #include " flang/Lower/IO.h"
19
19
#include " flang/Lower/PFTBuilder.h"
20
20
#include " flang/Lower/Runtime.h"
21
21
#include " flang/Lower/Support/Utils.h"
@@ -946,6 +946,7 @@ mlir::Value genIOOption<Fortran::parser::IoControlSpec::Pos>(
946
946
const Fortran::parser::IoControlSpec::Pos &spec) {
947
947
return genIntIOOption<mkIOKey (SetPos)>(converter, loc, cookie, stmtCtx, spec);
948
948
}
949
+
949
950
template <>
950
951
mlir::Value genIOOption<Fortran::parser::IoControlSpec::Rec>(
951
952
Fortran::lower::AbstractConverter &converter, mlir::Location loc,
@@ -954,6 +955,15 @@ mlir::Value genIOOption<Fortran::parser::IoControlSpec::Rec>(
954
955
return genIntIOOption<mkIOKey (SetRec)>(converter, loc, cookie, stmtCtx, spec);
955
956
}
956
957
958
+ template <>
959
+ mlir::Value genIOOption<Fortran::parser::IoControlSpec::Size>(
960
+ Fortran::lower::AbstractConverter &converter, mlir::Location loc,
961
+ mlir::Value cookie, Fortran::lower::StatementContext &,
962
+ const Fortran::parser::IoControlSpec::Size &) {
963
+ // Runtime GetSize is not implemented yet.
964
+ TODO (loc, " SIZE= specifier in a data transfer statement" );
965
+ }
966
+
957
967
// ===----------------------------------------------------------------------===//
958
968
// Gather IO statement condition specifier information (if any).
959
969
// ===----------------------------------------------------------------------===//
0 commit comments