18 lines · cpp
1#include "flang/Optimizer/Builder/Runtime/Intrinsics.h"2#include "RuntimeCallTestBase.h"3#include "gtest/gtest.h"4 5TEST_F(RuntimeCallTest, genGetGID) {6 mlir::Location loc = firBuilder->getUnknownLoc();7 mlir::Value result = fir::runtime::genGetGID(*firBuilder, loc);8 checkCallOp(result.getDefiningOp(), "_FortranAGetGID", /*nbArgs=*/0,9 /*addLocArgs=*/false);10}11 12TEST_F(RuntimeCallTest, genGetUID) {13 mlir::Location loc = firBuilder->getUnknownLoc();14 mlir::Value result = fir::runtime::genGetUID(*firBuilder, loc);15 checkCallOp(result.getDefiningOp(), "_FortranAGetUID", /*nbArgs=*/0,16 /*addLocArgs=*/false);17}18