[flang] [llvm] [flang] Register and lower SECNDS (stubbed implementation) (PR #151878)
Eugene Epshteyn via llvm-commits
llvm-commits at lists.llvm.org
Wed Aug 6 13:14:19 PDT 2025
eugeneepshteyn wrote:
@mlir-maiden , I submitted runtime implementation for `secnds()` upstream. You can now test end-to-end with trying to make the actual function call.
In my implementation I defined runtime wrapper function for `secnds()` as follows:
```
float RTNAME(Secnds)(float *refTime, const char *sourceFile, int line) {
Terminator terminator{sourceFile, line};
RUNTIME_CHECK(terminator, refTime != nullptr);
return FORTRAN_PROCEDURE_NAME(secnds)(refTime);
}
```
Feel free to modify, if that doesn't work for you.
Peter also asked me to make the core implementation of `secnds` runtime into a template, so that it could be instantiated with `double` in case we want to also add `DSECNDS()`. (If you end up implementing `DSECNDS()`, I recommend you do that as a separate PR.)
https://github.com/llvm/llvm-project/pull/151878
More information about the llvm-commits
mailing list