Searched refs:chr (Results 1 - 25 of 48) sorted by relevance

12

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Dinquire_6.f908 character*20 chr variable
9 chr=''
11 inquire(7,pad=chr)
12 ! if (debug) print*,chr
13 if (chr.ne.'UNDEFINED') call abort
14 chr=''
17 inquire(7,pad=chr)
18 ! if (debug) print*,chr
19 if (chr.ne.'UNDEFINED') call abort
20 chr
[all...]
H A Dactual_array_substr_1.f9014 subroutine foo (chr)
15 character(7) :: chr(:) local in subroutine:foo
16 if (chr(1)//chr(2) .ne. "rstuvwxfghijkl") call abort ()
18 subroutine bar (chr)
19 character(*) :: chr(:) local in subroutine:bar
20 if (trim(chr(1))//trim(chr(2)) .ne. "ghijkstuvw") call abort ()
H A Dinquire_5.f907 character(len=20) chr variable
9 inquire(7,position=chr)
10 if (chr.NE.'ASIS') CALL ABORT
13 inquire(7,position=chr)
14 if (chr.NE.'UNDEFINED') CALL ABORT
17 inquire(7,position=chr)
18 if (chr.NE.'REWIND') CALL ABORT
21 inquire(7,position=chr)
22 if (chr.NE.'ASIS') CALL ABORT
25 inquire(7,position=chr)
[all...]
H A Dexternal_procedures_3.f909 common // chr local in subroutine:foobar1
10 character(8) :: chr local in subroutine:foobar1
11 chr = "foobar1"
14 common // chr local in subroutine:foobar2
15 character(8) :: chr local in subroutine:foobar2
16 chr = "foobar2"
29 common // chr local
30 character(8) :: chr variable
32 if (chr .ne. "foobar1") call abort ()
34 if (chr
[all...]
H A Dcharacter_array_constructor_1.f9034 subroutine read_library_data_ (chr)
35 character(*), dimension(:) :: chr local in subroutine:read_library_data_
36 character(len = len(chr)) :: tmp
37 if (size(chr,1) == 2) then
38 if (any (chr .ne. (/"Label 1", "Label 2"/))) call abort ()
39 elseif (size(chr,1) == 4) then
40 if (any (chr .ne. (/"Label 3", "Label 4","Label 1", "Label 2"/))) call abort ()
41 elseif (size(chr,1) == 5) then
42 if (any (chr .ne. (/"Label 3", "Label 4","Label 1", "Label 2", "Label 5"/))) &
H A Dintrinsic_actual_4.f907 subroutine sub (proc, chr)
10 character*(*) chr local in subroutine:sub
11 if (proc (chr) .ne. 6) call abort ()
H A Dactual_procedure_1.f9010 function proc4 (arg, chr)
13 character(8), intent(inout) :: chr local in function:proc4
15 chr = "proc4"
25 character(8) :: chr variable in program:procPtrTest
27 function proc_ext (arg, chr)
30 character(8), intent(inout) :: chr
34 call foo (proc4, chr)
35 if (trim (chr) .ne. "proc4") call abort
37 call foo (proc_ext, chr)
39 if (trim (chr)
43 character(8), intent(inout) :: chr local in subroutine:foo
68 character(8), intent(inout) :: chr local in function:proc_ext
[all...]
H A Dgeneric_19.f909 subroutine sub(x, chr)
11 character(8) chr local in subroutine:sub
12 if (trim (chr) .ne. "real") call abort
23 subroutine sub_int(i, chr)
24 character(8) chr local in subroutine:sub_int
26 if (trim (chr) .ne. "integer") call abort
H A Dpr58754.f906 character, allocatable :: chr (:) component in type:char_type
19 allocate (d%chr (2), source = [t, char (ichar (t) + 1)])
20 if (any (d%chr .ne. ["w", "x"])) call abort
21 d%chr = ["a","b","c","d"]
22 if (any (d%chr .ne. ["a","b","c","d"])) call abort
23 deallocate (d%chr)
H A Dtransfer_array_intrinsic_3.f909 function NumOccurances (string, chr, isel) result(n)
11 character(1),intent(in) :: chr local in function:NumOccurances
18 n=count(transfer(string, char(1), len(string))==chr)
20 n=count(transfer(string, chr, len(string))==chr)
22 n=count(transfer(string, "a", len(string))==chr)
24 n=count(transfer(string, (/"a","b"/), len(string))==chr)
26 n=count(transfer(string, string(1:1), len(string))==chr)
H A Dread_noadvance.f905 character(1) :: chr variable
15 10 read(unit = 11, fmt = '(a)', advance = 'no', end = 99, eor = 11) chr
16 if (chr.ne.correct(i:i)) call abort()
H A Darray_constructor_18.f9016 subroutine foo (chr)
17 character(1) :: chr(:) local in subroutine:foo
18 print *, chr
H A Dinterface_5.f9043 character(6) :: chr local in subroutine:i_am_ok
44 chr = ""
45 if (chr /= "recopy") call abort ()
51 character(6) :: chr variable in program:main
52 chr = ""
53 call bl_copy(1.0, chr)
54 if (chr /= "recopy") call abort ()
H A Dinterface_4.f9040 character(6) :: chr variable in program:main
41 call bl_copy(1, chr)
42 if (chr /= "sdcopy") call abort ()
43 call bl_copy(1.0, chr)
44 if (chr /= "recopy") call abort ()
H A Darray_initializer_1.f9019 character(4), parameter :: chr(4) = (/"abcd", "efgh", "ijkl", "mnop"/) variable
20 character(4), parameter :: chrs = chr(ii)(2:3)//chr(2)(ii-3:ii-2)
21 character(4), parameter :: chrt(2) = (/chr(2:2)(2:3), chr(ii-1)(3:ii)/)
22 character(2), parameter :: chrx(2) = (/(chr(i)(i:i+1), i=2,3)/)
H A Dchar_array_arg_1.f9013 character(9) :: chr(1) variable in program:gfcbug88
16 chr = pack (" "//obstyp(:)% name, (/ .true., .false. /)) ! Used to give conversion error
H A Ddeferred_character_7.f9013 character(8) :: chr = "IJKLMNOP" variable
17 a2 = "_"//a1//chr//"_"
26 b2 = "_"//b1//chr//"_"
H A Dresult_in_spec_1.f9037 function myfunc (ch) result (chr)
39 character(len(ch)) :: chr(4) local in function:myfunc
42 chr = test2 (1)
43 if (len(test2(len(chr))) .ne. 7) call abort ()
H A Dchar_cast_1.f9016 character(1) :: chr local in function:Up
17 Up = transfer(achar(iachar(transfer(string,chr,1))), "x")
H A Dinterface_12.f9077 character(21) :: chr (3) variable in program:test
78 chr = "ABCDEFGHIJKLMNOPQRSTU"
81 if (any (test2 (10) .ne. chr)) call abort ()
H A Dinterface_assignment_2.f9023 elemental function var_str (chr) result (string)
24 character(LEN=*), intent(in) :: chr local in function:var_str
28 length = LEN(chr)
31 string%chars(i_char) = chr(i_char:i_char)
/haiku-buildtools/gcc/gcc/testsuite/gfortran.fortran-torture/compile/
H A Dtransfer-1.f908 integer :: chr, ans local in subroutine:foo
14 chr = IACHAR(TRANSFER(1,"a"))
15 bigendian = chr == 0_4
/haiku-buildtools/gcc/libstdc++-v3/testsuite/30_threads/this_thread/
H A D4.cc32 namespace chr = std::chrono;
38 chr::system_clock::time_point begin = chr::system_clock::now();
39 chr::microseconds ms(500);
41 std::this_thread::sleep_until(chr::system_clock::now() + ms);
43 VERIFY( (chr::system_clock::now() - begin) >= ms );
H A D3.cc32 namespace chr = std::chrono;
38 chr::system_clock::time_point begin = chr::system_clock::now();
39 chr::microseconds ms(500);
43 VERIFY( (chr::system_clock::now() - begin) >= ms );
/haiku-buildtools/gcc/libstdc++-v3/testsuite/27_io/basic_istream/extractors_character/char/
H A D9826.cc42 pod_char* chr = 0; local
43 sstr >> chr; local

Completed in 113 milliseconds

12