File: file_01.f90

package info (click to toggle)
lfortran 0.45.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 46,332 kB
  • sloc: cpp: 137,068; f90: 51,260; python: 6,444; ansic: 4,277; yacc: 2,285; fortran: 806; sh: 524; makefile: 30; javascript: 15
file content (22 lines) | stat: -rw-r--r-- 451 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
program fileops
    implicit none
    integer :: j, i
    character(len=1) :: c
    integer(8) :: d
    real :: z
    j = 11
    open(j, file="file_01_data.txt")
    read(j, *) i
    read(j, *) c
    read(j, *) z
    read(j, *) d
    rewind(j)
    close(j)

    print *, i, c, z, d
    if (i /= 10130) error stop
    if (c /= "c") error stop
    if (abs(z - 4.20) > 1e-6) error stop
    if (d /= 9223372036854775804_8) error stop

end program fileops