Lines Matching defs:entity
176 // entity. The attribute must be dropped and the shape, if any, must be made
777 assert(arg && "expect symbol for data object entity");
845 const auto &entity = getDataObjectEntity(std::get<1>(pair));
846 handleImplicitDummy(&argCharacteristics, dummy, entity);
880 const auto &entity = getDataObjectEntity(std::get<1>(pair));
882 handleImplicitDummy(&argCharacteristics, dummy, entity);
884 handleExplicitDummy(&argCharacteristics, dummy, entity,
889 const auto &entity = getDataObjectEntity(std::get<1>(pair));
890 handleImplicitDummy(&argCharacteristics, dummy, entity);
1011 dummyNameAttr(const FortranEntity &entity) {
1015 if (entity.has_value()) {
1016 const Fortran::semantics::Symbol *argument = &*entity.value();
1040 const FortranEntity &entity) {
1044 if (entity) {
1045 if (entity->isPercentVal()) {
1048 dummyNameAttr(entity));
1049 addPassedArg(PassEntityBy::Value, entity, characteristics);
1052 if (entity->isPercentRef()) {
1055 dummyNameAttr(entity));
1056 addPassedArg(PassEntityBy::BaseAddress, entity, characteristics);
1065 dummyNameAttr(entity));
1066 addPassedArg(PassEntityBy::BoxChar, entity, characteristics);
1071 dummyNameAttr(entity));
1072 addPassedArg(PassEntityBy::BaseAddress, entity, characteristics);
1097 const FortranEntity &entity, bool isBindC) {
1103 llvm::SmallVector<mlir::NamedAttribute> attrs = dummyNameAttr(entity);
1157 addPassedArg(PassEntityBy::MutableBox, entity, characteristics);
1164 addPassedArg(PassEntityBy::Box, entity, characteristics);
1172 addPassedArg(PassEntityBy::Value, entity, characteristics);
1181 entity, characteristics);
1212 addPassedArg(passBy, entity, characteristics);
1219 const FortranEntity &entity) {
1234 addPassedArg(PassEntityBy::BoxProcRef, entity, characteristics);
1251 addPassedArg(PassEntityBy::CharProcTuple, entity, characteristics);
1255 addPassedArg(PassEntityBy::BaseAddress, entity, characteristics);
1343 void addPassedArg(PassEntityBy p, FortranEntity entity,
1346 PassedEntity{p, entity, emptyValue(), emptyValue(), characteristics});
1348 void setPassedResult(PassEntityBy p, FortranEntity entity) {
1350 PassedEntity{p, entity, emptyValue(), emptyValue()};
1591 /// Build signature from characteristics when there is no Fortran entity to