File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -64,15 +64,15 @@ def abs(c: c32) -> f32:
6464 a : f32
6565 b : f32
6666 a = c .real
67- b = _lfortran_caimag ( c )
67+ b = c . imag
6868 return f32 ((a ** f32 (2 ) + b ** f32 (2 ))** f32 (1 / 2 ))
6969
7070@overload
7171def abs (c : c64 ) -> f64 :
7272 a : f64
7373 b : f64
7474 a = c .real
75- b = _lfortran_zaimag ( c )
75+ b = c . imag
7676 return (a ** 2.0 + b ** 2.0 )** (1 / 2 )
7777
7878@interface
@@ -434,22 +434,13 @@ def lbound(x: i32[:], dim: i32) -> i32:
434434def ubound (x : i32 [:], dim : i32 ) -> i32 :
435435 pass
436436
437-
438- @ccall
439- def _lfortran_caimag (x : c32 ) -> f32 :
440- pass
441-
442- @ccall
443- def _lfortran_zaimag (x : c64 ) -> f64 :
444- pass
445-
446437@overload
447438def _lpython_imag (x : c64 ) -> f64 :
448- return _lfortran_zaimag ( x )
439+ return x . imag
449440
450441@overload
451442def _lpython_imag (x : c32 ) -> f32 :
452- return _lfortran_caimag ( x )
443+ return x . imag
453444
454445
455446@overload
You can’t perform that action at this time.
0 commit comments