File: read_29.f90

package info (click to toggle)
lfortran 0.60.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 58,412 kB
  • sloc: cpp: 173,406; f90: 80,491; python: 17,586; ansic: 9,610; yacc: 2,356; sh: 1,401; fortran: 895; makefile: 37; javascript: 15
file content (18 lines) | stat: -rw-r--r-- 400 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
program read_complex
  implicit none

  integer :: iunit
  complex :: cnum

  open (newunit=iunit, file='complex.data', form='formatted', status='unknown')

  write (iunit, '(2f10.5)') (42.5, -42.5)
  rewind (iunit)
  read (iunit, '(2f10.5)') cnum
  close (iunit, status='keep')

  if (abs(real(cnum) - 42.5) > 1.0e-5 .or. abs(aimag(cnum) + 42.5) > 1.0e-5) stop

  print *, 'test passed'

end program