Searched refs:s1 (Results 1 - 25 of 2067) sorted by relevance

1234567891011>>

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Dverify_2.f903 character(len=3) s1, s2 variable in program:verify_2
4 s1 = 'abc'
7 if (verify(s1, s2) /= 1) call abort
9 if (verify(s1, s2, .true.) /= 3) call abort
H A Dwidechar_2.f904 character(kind=1,len=20) :: s1 variable
7 s1 = "this is me!"
8 s4 = s1
9 call check(s1, 4_"this is me! ")
10 call check2(s1, 4_"this is me! ")
12 call check(s1, 4_"this is me! ")
13 call check2(s1, 4_"this is me! ")
15 s1 = ""
16 s4 = s1
17 call check(s1,
41 character(kind=1,len=20) :: s1 local in subroutine:check
52 character(kind=1,len=*) :: s1 local in subroutine:check2
[all...]
H A Dlist_read_11.f909 character(len=10)::s1,s2 variable in program:teststuff
16 s1 = repeat('x', len(s1))
18 read(11,*)s1,a
19 if (s1 /= "line1" .or. a /= 1) call abort()
21 s1 = repeat('x', len(s1))
22 read(11,"(a)")s1
24 if (s1 /= "line2") call abort()
32 s1
[all...]
H A Dwidechar_intrinsics_10.f905 character(kind=1,len=3) :: s1(3) variable
8 s1 = [ "abc", "def", "ghi" ]
9 s4 = s1
12 if (any (cshift (s1, 0) /= s1)) call abort
14 if (any (cshift (s1, 3) /= s1)) call abort
16 if (any (cshift (s1, 6) /= s1)) call abort
18 if (any (cshift (s1,
[all...]
H A Dchar_pointer_assign_6.f904 character (len=4), pointer:: s1 variable in program:main
7 s1 = 'abcd'
8 p1 => s1(2:3) ! { dg-error "Unequal character lengths \\(20/2\\)" }
H A Dinitialization_9.f906 integer function xstrcmp(s1)
7 character*(*), intent(in) :: s1 local in function:xstrcmp
8 integer :: n1 = len(s1) ! { dg-error "Assumed or deferred character length variable" }
H A Dwidechar_intrinsics_3.f909 character(kind=1,len=20) :: s1, t1 variable in program:failme
12 print *, access (s1, t1)
13 print *, access (s1, t4) ! { dg-error "must be of kind" }
17 print *, chdir (s1)
20 print *, chmod (s1, t1)
21 print *, chmod (s1, t4) ! { dg-error "must be of kind" }
25 print *, fget (s1)
28 print *, fgetc (i, s1)
31 print *, fput (s1)
34 print *, fputc (i, s1)
[all...]
H A Dwidechar_1.f905 character(len=20,kind=1) :: s1 variable
7 s1 = "foo\u0000"
8 s1 = "foo\u00ff"
9 s1 = "foo\u0100" ! { dg-error "is not representable" }
10 s1 = "foo\u0101" ! { dg-error "is not representable" }
11 s1 = "foo\U00000101" ! { dg-error "is not representable" }
13 s1 = 4_"foo bar"
14 s1 = 4_"foo\u00ff"
15 s1 = 4_"foo\u0101" ! { dg-error "cannot be converted" }
16 s1
[all...]
H A Dchar_pointer_assign_4.f9013 character(len=10), target :: s1 variable in program:ptr
17 p1 => s1(1:i)
H A Dwidechar_3.f904 character(kind=1,len=20) :: s1, t1 variable
12 print *, s1 // ""
13 print *, s1 // 4_"" ! { dg-error "Operands of string concatenation operator" }
17 print *, "" // s1
18 print *, 4_"" // s1 ! { dg-error "Operands of string concatenation operator" }
22 print *, s1 // t1
23 print *, s1 // t4 ! { dg-error "Operands of string concatenation operator" }
27 print *, s1 .eq. ""
28 print *, s1 .eq. 4_"" ! { dg-error "Operands of comparison operator" }
32 print *, s1
[all...]
H A Drepeat_3.f9013 character(len=2) s1, s2 variable in program:test
17 s1 = '42'
20 s2 = repeat(s1,i1)
21 if (s2 /= s1) call abort
22 s2 = repeat(s1,i2)
23 if (s2 /= s1) call abort
24 s2 = repeat(s1,i4)
25 if (s2 /= s1) call abort
26 s2 = repeat(s1,i8)
27 if (s2 /= s1) cal
[all...]
/haiku-buildtools/gcc/gcc/testsuite/gcc.c-torture/compile/
H A Dfoo.c2 main (s1, s2)
3 int *s1; int *s2;
5 while ((*s1++ = *s2++) != '\0')
7 return s1 - 1;
/haiku-buildtools/gcc/gcc/testsuite/gcc.dg/
H A Dpr42629.c11 int s1 = adler; local
13 s1 += buf[0];
14 s2 += s1;
15 s1 += buf[1];
16 s2 += s1;
17 s1 += buf[2];
18 s2 += s1;
19 s1 += buf[3];
20 s2 += s1;
21 s1
[all...]
H A Danon-struct-14.c7 typedef struct { int a; } s1; typedef in typeref:struct:__anon1944
8 struct s2 { s1; int s1; }; /* { dg-error "duplicate" } */ member in struct:s2
9 int f(struct s2 *p) { return p->s1; } /* { dg-error "incompatible" } */
/haiku-buildtools/gcc/gcc/testsuite/gcc.target/sh/
H A Dcmpstrn.c11 test01 (const char *s1) argument
13 return __builtin_strncmp (s1, "abcde", 3);
18 test02 (const char *s1) argument
20 return __builtin_strncmp (s1, "abcdefghi", 8);
25 test03 (const char *s1, int n) argument
27 return __builtin_strncmp (s1, "abcde", n);
H A Dstrlen.c11 test00 (const char *s1) argument
13 return __builtin_strlen (s1);
18 test03 (const char *s1) argument
20 return __builtin_strlen (__builtin_assume_aligned (s1, 4));
/haiku-buildtools/gcc/gcc/testsuite/gfortran.fortran-torture/execute/
H A Dadjustr.f908 character(len=10) s1(test_cases), s2(test_cases) variable in program:test_adjustr
9 s1(1)='A'
11 s1(2)='AB'
13 s1(3)='ABC'
15 s1(4)='ABCD'
17 s1(5)='ABCDE'
19 s1(6)='ABCDEF'
21 s1(7)='ABCDEFG'
23 s1(8)='ABCDEFGH'
25 s1(
[all...]
/haiku-buildtools/gcc/gcc/testsuite/g++.old-deja/g++.bugs/
H A D900407_01.C28 struct s1 : public s0 { struct in inherits:s0
31 s1 ();
34 s1::s1() : () { // { dg-error "" } anachronism used function in class:s1
/haiku-buildtools/gcc/libstdc++-v3/testsuite/23_containers/set/modifiers/insert/
H A D1.cc31 set<int> s0, s1;
35 s1.insert(s1.end(), 1);
36 VERIFY( s0 == s1 );
39 s1.insert(s1.begin(), 3);
40 VERIFY( s0 == s1 );
43 iter1 = s1.insert(s1.end(), 4);
44 VERIFY( s0 == s1 );
[all...]
/haiku-buildtools/gcc/libstdc++-v3/testsuite/23_containers/unordered_set/erase/
H A D1.cc46 Set s1; local
48 s1.insert("because to why");
49 s1.insert("the stockholm syndrome");
50 s1.insert("a cereous night");
51 s1.insert("eeilo");
52 s1.insert("protean");
53 s1.insert("the way you are when");
54 s1.insert("tillsammans");
55 s1.insert("umbra/penumbra");
56 s1
[all...]
/haiku-buildtools/gcc/gcc/testsuite/c-c++-common/asan/
H A Dmemcmp-2.c7 char s1[5] = {1}; local
9 return __builtin_memcmp (s0, s1, 2);
/haiku-buildtools/gcc/gcc/testsuite/gcc.c-torture/execute/builtins/lib/
H A Dstrpbrk.c6 strpbrk(const char *s1, const char *s2) argument
13 while (*s1)
16 if (*s1 == *p)
17 return (char *)s1;
18 s1++;
H A Dstrcmp.c6 strcmp (const char *s1, const char *s2) argument
13 while (*s1 != 0 && *s1 == *s2)
14 s1++, s2++;
16 if (*s1 == 0 || *s2 == 0)
17 return (unsigned char) *s1 - (unsigned char) *s2;
18 return *s1 - *s2;
/haiku-buildtools/gcc/libstdc++-v3/testsuite/21_strings/basic_string/
H A Dinit-list.cc30 string s1 = { 'a', 'b', 'c' }; local
31 VERIFY(s1 == "abc");
33 s1 = { 'd', 'e', 'f' };
34 VERIFY(s1 == "def");
36 s1 += { 'g', 'h', 'i' };
37 VERIFY(s1 == "defghi");
39 s1.append({ 'j', 'k', 'l' });
40 VERIFY(s1 == "defghijkl");
42 s1.assign({ 'm', 'n', 'o' });
43 VERIFY(s1
[all...]
/haiku-buildtools/gcc/libstdc++-v3/testsuite/ext/vstring/
H A Dinit-list.cc29 __gnu_cxx::__vstring s1 = { 'a', 'b', 'c' }; local
30 VERIFY(s1 == "abc");
32 s1 = { 'd', 'e', 'f' };
33 VERIFY(s1 == "def");
35 s1 += { 'g', 'h', 'i' };
36 VERIFY(s1 == "defghi");
38 s1.append({ 'j', 'k', 'l' });
39 VERIFY(s1 == "defghijkl");
41 s1.assign({ 'm', 'n', 'o' });
42 VERIFY(s1
[all...]

Completed in 293 milliseconds

1234567891011>>