Skip to content

Commit bd9e80b

Browse files
committed
mv dual intrinsics table to local and fix the truncated comment
1 parent 4594ae6 commit bd9e80b

File tree

1 file changed

+4
-6
lines changed

1 file changed

+4
-6
lines changed

flang/lib/Evaluate/intrinsics.cpp

Lines changed: 4 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -977,12 +977,6 @@ static const std::pair<const char *, const char *> genericAlias[]{
977977
{"__builtin_ieee_selected_real_kind", "selected_real_kind"},
978978
};
979979

980-
// Collection for some intrinsics with function and subroutine form,
981-
// in order to pass
982-
static const std::string dualIntrinsic[]{
983-
{"etime"}
984-
};
985-
986980
// The following table contains the intrinsic functions listed in
987981
// Tables 16.2 and 16.3 in Fortran 2018. The "unrestricted" functions
988982
// in Table 16.2 can be used as actual arguments, PROCEDURE() interfaces,
@@ -2562,6 +2556,10 @@ bool IntrinsicProcTable::Implementation::IsIntrinsic(
25622556
}
25632557
bool IntrinsicProcTable::Implementation::IsDualIntrinsic(
25642558
const std::string &name) const {
2559+
// Collection for some intrinsics with function and subroutine form,
2560+
// in order to pass the semantic check.
2561+
static const std::string dualIntrinsic[]{{"etime"}};
2562+
25652563
return std::find_if(std::begin(dualIntrinsic), std::end(dualIntrinsic),
25662564
[&name](const std::string &dualName) {
25672565
return dualName == name;

0 commit comments

Comments
 (0)