File tree Expand file tree Collapse file tree 1 file changed +4
-6
lines changed Expand file tree Collapse file tree 1 file changed +4
-6
lines changed Original file line number Diff line number Diff line change @@ -977,12 +977,6 @@ static const std::pair<const char *, const char *> genericAlias[]{
977
977
{" __builtin_ieee_selected_real_kind" , " selected_real_kind" },
978
978
};
979
979
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
-
986
980
// The following table contains the intrinsic functions listed in
987
981
// Tables 16.2 and 16.3 in Fortran 2018. The "unrestricted" functions
988
982
// in Table 16.2 can be used as actual arguments, PROCEDURE() interfaces,
@@ -2562,6 +2556,10 @@ bool IntrinsicProcTable::Implementation::IsIntrinsic(
2562
2556
}
2563
2557
bool IntrinsicProcTable::Implementation::IsDualIntrinsic (
2564
2558
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
+
2565
2563
return std::find_if (std::begin (dualIntrinsic), std::end (dualIntrinsic),
2566
2564
[&name](const std::string &dualName) {
2567
2565
return dualName == name;
You can’t perform that action at this time.
0 commit comments