| /haiku-buildtools/gcc/gcc/testsuite/gfortran.fortran-torture/compile/ |
| H A D | module_result.f90 | 5 function test () result (res)
6 integer res local in function:test
7 res = 0
|
| H A D | bergervoet2.f90 | 1 function testi() result(res)
2 integer :: res local in function:testi
3 res = 0
|
| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
| H A D | pack_vector_1.f90 | 7 INTEGER :: res(2) variable
8 res = PACK ((/ 1, 2, 3 /), (/.TRUE., .TRUE., .FALSE. /), SHAPE(1)) !{ dg-error "must provide at least as many" }
9 res = PACK ((/ 1, 2, 3 /), (/.TRUE., .TRUE., .FALSE. /), (/ -1 /)) !{ dg-error "must provide at least as many" }
|
| H A D | asynchronous_2.f90 | 8 function func2() result(res)
9 asynchronous res ! { dg-error "Fortran 2003: ASYNCHRONOUS" }
|
| H A D | result_in_spec_3.f90 | 13 FUNCTION test2() RESULT(res) ! { dg-warning "not set" }
14 character(*) :: res local in function:test2
|
| H A D | assumed_rank_12.f90 | 14 function f() result(res)
15 integer, pointer :: res local in function:f
|
| H A D | common_9.f90 | 18 function func1() result(res)
20 real res, r local in function:func1
21 common /res/ r ! { dg-error "is also a function result" } common in function:func1
|
| H A D | result_2.f90 | 7 function f() result(res)
8 interface res ! { dg-error "attribute conflicts with" }
|
| H A D | maxloc_bounds_4.f90 | 6 subroutine foo(res)
8 integer, dimension(:) :: res local in subroutine:foo
11 res = maxloc(f)
18 integer :: res(3) variable in program:main
19 call foo(res)
|
| H A D | shape_4.f90 | 6 integer :: i,j, a(10,10),res(2) variable in program:main
9 res = shape(a(1:1,i:j:1))
10 if (res(1) /=1 .or. res(2) /= 0) call abort
11 res = shape(a(1:1,j:i:-1))
12 if (res(1) /=1 .or. res(2) /= 0) call abort
|
| H A D | anyallcount_1.f90 | 10 character(len=3) :: res variable in program:main
18 write (unit=res,fmt=f) any(m1,dim=1)
19 if (res /= 'FTT') call abort
20 write (unit=res,fmt=f) any(m2,dim=1)
21 if (res /= 'FTT') call abort
22 write (unit=res,fmt=f) any(m4,dim=1)
23 if (res /= 'FTT') call abort
24 write (unit=res,fmt=f) any(m8,dim=1)
25 if (res /= 'FTT') call abort
26 write (unit=res,fm
[all...] |
| H A D | bounds_check_1.f90 | 4 integer :: res(1) variable
5 res = F()
6 if (res(1) /= 1) call abort
|
| H A D | maxloc_bounds_1.f90 | 6 integer(kind=4) :: res(3) variable in program:main
10 res = maxloc(f,dim=1)
11 write(line,fmt='(80I1)') res
|
| H A D | unpack_bounds_1.f90 | 6 integer, allocatable, dimension(:,:) :: res variable in program:main
11 allocate (res(2,1))
15 res = unpack(vector, mask, 0)
16 print *,res
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.target/nios2/ |
| H A D | nios2-rdwrctl-1.c | 3 volatile int res; variable
7 __builtin_wrctl (0, res);
8 __builtin_wrctl (15, res);
9 __builtin_wrctl (31, res);
11 res = __builtin_rdctl (0);
12 res = __builtin_rdctl (15);
13 res = __builtin_rdctl (31);
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.target/i386/ |
| H A D | pr52857-1.c | 8 int res; local
9 get_BID128 (&res);
|
| /haiku-buildtools/libtool/f77demo/ |
| H A D | fprogram.f | 10 integer*4 arg,res variable in program:fprogram
16 call fsub(arg,res)
18 write(*,*) 'fsub returned, saying that 2 *',arg,' =',res
20 if (res.eq.4) then
|
| H A D | foof.f | 8 subroutine fsub(arg,res)
10 integer*4 arg,res local in subroutine:fsub
11 res=arg*2
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.c-torture/compile/ |
| H A D | 20080114-1.c | 6 void stuck(int res) argument
9 if (res == 0) asm volatile("");
12 if (res == 0) asm volatile("" : : "i" (0));
|
| /haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/lto/ |
| H A D | pr46036_0.f90 | 4 function no_of_edges(self) result(res)
6 integer(kind=kind(1)) :: res local in function:no_of_edges
10 res = res + 1
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.dg/graphite/ |
| H A D | isl-ast-gen-blocks-1.c | 8 int i, res; local
9 for (i = 0, res = 0; i < n; i++)
10 res += i;
12 return res;
20 int res = foo (); local
23 if (res != 1225)
|
| H A D | isl-ast-gen-blocks-2.c | 8 int i, res; local
9 for (i = 0, res = 0; i < k; i++)
10 res += i;
12 return res;
20 int res = foo (); local
23 if (res != 1225)
|
| H A D | isl-ast-gen-single-loop-1.c | 7 int i, res; local
9 for (i = 0, res = 0; i < 50; i++)
10 res += i;
12 return res;
20 int res = foo (); local
22 if (res != 1225)
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.target/m68k/ |
| H A D | pr59946.c | 10 int res; local
16 res = copyNextDtaToAtari();
17 return res;
|
| /haiku-buildtools/gcc/gcc/testsuite/gcc.target/sparc/ |
| H A D | sparc-align-1.c | 11 int res; local
16 res = i - i;
19 res = i * 2;
23 return res;
|