File: intrinsics_393.f90

package info (click to toggle)
lfortran 0.58.0-4
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 54,512 kB
  • sloc: cpp: 162,179; f90: 68,251; python: 17,476; ansic: 6,278; yacc: 2,334; sh: 1,317; fortran: 892; makefile: 33; javascript: 15
file content (13 lines) | stat: -rw-r--r-- 361 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
program intrinsics_393
       integer, parameter :: n = 10
       real(8) :: x(n)
       complex(8) :: z(n)
       complex(8) :: A(n,n)

       x(:) = 1.0d0
       A(:,:) = cmplx(1.0d0,0.0d0)

       z = matmul (A, cmplx(x,0.0,8))
       print *, z(1)
       if (abs(z(1) - (10.000000000000000,0.0000000000000000)) > 1e-12) error stop
end program intrinsics_393