/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | verify_2.f90 | 3 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 D | widechar_2.f90 | 4 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 D | list_read_11.f90 | 9 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 D | widechar_intrinsics_10.f90 | 5 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 D | char_pointer_assign_6.f90 | 4 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 D | initialization_9.f90 | 6 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 D | widechar_intrinsics_3.f90 | 9 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 D | widechar_1.f90 | 5 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 D | char_pointer_assign_4.f90 | 13 character(len=10), target :: s1 variable in program:ptr 17 p1 => s1(1:i)
|
H A D | widechar_3.f90 | 4 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 D | repeat_3.f90 | 13 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 D | foo.c | 2 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 D | pr42629.c | 11 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 D | anon-struct-14.c | 7 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 D | cmpstrn.c | 11 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 D | strlen.c | 11 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 D | adjustr.f90 | 8 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 D | 900407_01.C | 28 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 D | 1.cc | 31 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 D | 1.cc | 46 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 D | memcmp-2.c | 7 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 D | strpbrk.c | 6 strpbrk(const char *s1, const char *s2) argument 13 while (*s1) 16 if (*s1 == *p) 17 return (char *)s1; 18 s1++;
|
H A D | strcmp.c | 6 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 D | init-list.cc | 30 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 D | init-list.cc | 29 __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...] |