File tree Expand file tree Collapse file tree 1 file changed +4
-8
lines changed Expand file tree Collapse file tree 1 file changed +4
-8
lines changed Original file line number Diff line number Diff line change @@ -2658,10 +2658,8 @@ class ScalarArrayExprLowering {
2658
2658
return fir::factory::ComplexExprHelper{builder, getLoc ()}
2659
2659
.extractComplexPart (fir::getBase (exv), x.isImaginaryPart );
2660
2660
}
2661
- template <Fortran::common::TypeCategory TC, int KIND>
2662
- ExtValue
2663
- gen (const Fortran::evaluate::Parentheses<Fortran::evaluate::Type<TC, KIND>>
2664
- &x) {
2661
+ template <typename T>
2662
+ ExtValue gen (const Fortran::evaluate::Parentheses<T> &x) {
2665
2663
auto exv = gen (x.left ());
2666
2664
auto base = fir::getBase (exv);
2667
2665
auto newBase =
@@ -4281,10 +4279,8 @@ class ArrayExprLowering {
4281
4279
lhs, isImagPart);
4282
4280
};
4283
4281
}
4284
- template <Fortran::common::TypeCategory TC, int KIND>
4285
- CC genarr (
4286
- const Fortran::evaluate::Parentheses<Fortran::evaluate::Type<TC, KIND>>
4287
- &x) {
4282
+ template <typename T>
4283
+ CC genarr (const Fortran::evaluate::Parentheses<T> &x) {
4288
4284
auto loc = getLoc ();
4289
4285
auto f = genarr (x.left ());
4290
4286
return [=](IterSpace iters) -> ExtValue {
You can’t perform that action at this time.
0 commit comments