| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
| H A D | arrayio_8.f90 | 9 character*8 rec(3) variable in program:main
10 rec = ""
11 write (rec,fmt=99999)
12 if (rec(1).ne.'12345678') call abort()
13 if (rec(2).ne.'record2') call abort()
14 if (rec(3).ne.'record3') call abort()
|
| H A D | recursive_check_8.f90 | 11 subroutine f(rec)
12 logical :: rec local in subroutine:f
13 if(rec) then
|
| H A D | recursive_check_9.f90 | 14 subroutine f(rec)
15 logical :: rec local in subroutine:f
16 if(rec) then
|
| H A D | direct_io_6.f90 | 9 write(76, rec=1) as_written
10 write(76, rec=2) as_written
11 read(76, rec=1) as_read, byte, byte, byte, byte
12 read(76, rec=2, err=3) as_read, byte, byte, byte, byte
|
| H A D | direct_io_12.f90 | 17 write(99,rec=i) vec1(:,i)
18 write(99,rec=i+10) vec1(:,i+10)
19 write(99,rec=i+20) vec1(:,i+20) ! << rec = 30 was written to rec = 21
23 read(99,rec=i) dummy
25 read(99,rec=i+10) dummy
27 read(99,rec=i+20) dummy
28 if (any (dummy /= vec1(:,i+20))) call abort() ! << aborted here for rec = 21
|
| H A D | convert_implied_open.f90 | 10 read (10,rec=1) i1
11 read (10,rec=2) i2
12 read (10,rec=3) i3
|
| H A D | recursive_check_10.f90 | 14 integer function f(rec)
15 logical :: rec local in function:f
16 if(rec) then
|
| H A D | recursive_check_11.f90 | 17 integer function f(rec)
18 logical :: rec local in function:f
19 if(rec) then
|
| H A D | recursive_check_12.f90 | 10 subroutine f(rec)
11 logical :: rec local in subroutine:f
12 if(rec) then
|
| H A D | recursive_check_13.f90 | 13 subroutine f(rec)
14 logical :: rec local in subroutine:f
15 if(rec) then
|
| H A D | record_marker_3.f90 | 15 read (15,rec=1) i1
16 read (15,rec=2) i2
17 read (15,rec=3) i3
30 read (15,rec=1) i1
31 read (15,rec=2) i2
32 read (15,rec=3) i3
|
| H A D | bessel_7.f90 | 26 real :: rec(0:Nmax), lib(0:Nmax)
40 rec = BESSEL_YN(0, Nmax, X)
45 ! print '(i2,2e17.9,e12.2,f14.10,2l3)', i, rec(i), lib(i), &
46 ! rec(i)-lib(i), ((rec(i)-lib(i))/rec(i))/epsilon(x), &
47 ! i > nit .or. rec(i) == lib(i) &
48 ! .or. abs((rec(i)-lib(i))/rec(i)) < myeps2, &
49 ! rec(
[all...] |
| H A D | readwrite_unf_direct_eor_1.f90 | 7 write (10, rec=1, err=10) 1,2
10 read (10, rec=1, err=20) i, j
|
| H A D | direct_io_4.f90 | 10 write(10,rec=1) a
12 read (10,rec=2, iostat=ios) b
15 read (10, rec=82641, iostat=ios) b ! This used to cause a segfault
18 read(10, rec=1, iostat=ios) b
|
| H A D | pr16597.f90 | 20 write (iunit, rec=1) 'ABCD'
21 read (iunit, rec=1) string
26 write (iunit, rec=1) 'ABCD'
27 read (iunit, rec=1) string
|
| H A D | record_marker_1.f90 | 15 read (15,rec=1) i1
16 read (15,rec=2) i2
17 read (15,rec=3) i3
30 read (15,rec=1) i1
31 read (15,rec=2) i2
32 read (15,rec=3) i3
|
| H A D | direct_io_11.f90 | 12 write( 10, rec = 1, fmt = '( f6.4, /, f6.4 )' ) a, b
20 read( 10, rec = 1, fmt = '( f6.4, /, f6.4 )' ) a, b
25 read( 10, rec = 1, fmt = '( f6.4 )' ) a, b
31 read( 10, rec = 1, fmt = '( f12.4, /, f12.4 )' ) a, b
37 read( 10, rec = 1, fmt = '( f12.4 )' ) a, b
43 read( 10, rec = 1, fmt = '( f6.4, 6x, /, f6.4, 6x )' ) a, b
49 read( 10, rec = 1, fmt = '( f6.4 )' ) a
50 read( 10, rec = 2, fmt = '( f6.4 )' ) b
|
| H A D | write_direct_eor.f90 | 8 write(unit=10,rec=1, err=100) 1d0
|
| H A D | direct_io_1.f90 | 21 write(12, rec=n) mt, nt
22 write(12, rec=n+1) (p(m), m=1, nt)
29 write(12, rec=n) mt, nt
30 write(12, rec=n+1) (p(m), m=1, nt)
|
| H A D | direct_io_5.f90 | 22 write(unit=15, rec=k) k
25 read(unit=15, rec=a(j), iostat=ier) k
|
| H A D | direct_io_9.f | 26 write (48,iostat = istat, rec = 10) bda1(4:3)
32 read (48,iostat = istat, rec=10) bda(4:3)
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.c-torture/compile/ |
| H A D | c1.c | 2 rec (a, b) function
6 return a * rec (a - 1, b + 1);
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.c-torture/execute/ |
| H A D | pr47925.c | 21 volatile struct s rec = { &rec }; local
22 foo (&rec, 10);
|
| /haiku-buildtools/gcc/gcc/testsuite/g++.dg/gomp/ |
| H A D | pr25874.C | 18 wigner_d rec; local
19 rec.recurse();
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.dg/torture/ |
| H A D | pr55684.c | 10 static void srec_readrec(struct ihexrec * srec, char * rec) argument
21 buf[i] = rec[offset++];
25 buf[i] = rec[offset++];
|