/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | inquire_6.f90 | 8 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 D | actual_array_substr_1.f90 | 14 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 D | inquire_5.f90 | 7 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 D | external_procedures_3.f90 | 9 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 D | character_array_constructor_1.f90 | 34 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 D | intrinsic_actual_4.f90 | 7 subroutine sub (proc, chr) 10 character*(*) chr local in subroutine:sub 11 if (proc (chr) .ne. 6) call abort ()
|
H A D | actual_procedure_1.f90 | 10 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 D | generic_19.f90 | 9 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 D | pr58754.f90 | 6 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 D | transfer_array_intrinsic_3.f90 | 9 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 D | read_noadvance.f90 | 5 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 D | array_constructor_18.f90 | 16 subroutine foo (chr) 17 character(1) :: chr(:) local in subroutine:foo 18 print *, chr
|
H A D | interface_5.f90 | 43 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 D | interface_4.f90 | 40 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 D | array_initializer_1.f90 | 19 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 D | char_array_arg_1.f90 | 13 character(9) :: chr(1) variable in program:gfcbug88 16 chr = pack (" "//obstyp(:)% name, (/ .true., .false. /)) ! Used to give conversion error
|
H A D | deferred_character_7.f90 | 13 character(8) :: chr = "IJKLMNOP" variable 17 a2 = "_"//a1//chr//"_" 26 b2 = "_"//b1//chr//"_"
|
H A D | result_in_spec_1.f90 | 37 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 D | char_cast_1.f90 | 16 character(1) :: chr local in function:Up 17 Up = transfer(achar(iachar(transfer(string,chr,1))), "x")
|
H A D | interface_12.f90 | 77 character(21) :: chr (3) variable in program:test 78 chr = "ABCDEFGHIJKLMNOPQRSTU" 81 if (any (test2 (10) .ne. chr)) call abort ()
|
H A D | interface_assignment_2.f90 | 23 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 D | transfer-1.f90 | 8 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 D | 4.cc | 32 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 D | 3.cc | 32 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 D | 9826.cc | 42 pod_char* chr = 0; local 43 sstr >> chr; local
|