/haiku-buildtools/gcc/gcc/testsuite/gfortran.fortran-torture/execute/ |
H A D | intrinsic_spread.f90 | 4 character (len=80) line1, line2, line3 variable in program:foo 12 write(line2, 9000) spread (a, 1, 2) 13 if (line1 /= line2) call abort
|
H A D | intrinsic_unpack.f90 | 5 character(len=50) line1, line2 variable in program:intrinsic_unpack 15 write (line2,'(10I4)') unpack((/2, 3, 4/), mask, a) 16 if (line1 .ne. line2) call abort
|
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | reshape_transpose_1.f90 | 9 character (len=20) line1, line2 variable in program:main 16 write (unit=line2, fmt="(4I4)") (/ 1, 3, 2, 4 /) 17 if (line1 /= line2) call abort
|
H A D | derived_external_function_1.f90 | 22 character (20) :: line1, line2 variable 25 write (line2, *) 42_4 26 if (line1 .ne. line2) call abort
|
H A D | associate_15.f90 | 17 character(48) line1, line2 variable 22 write (line2, *) x 23 if (trim (line1) .ne. trim (line2)) call abort 29 write (line2, *) x 30 if (trim (line1) .ne. trim (line2)) call abort 37 write (line2, *) x 38 if (trim (line1) .ne. trim (line2)) call abort
|
H A D | intrinsic_unpack_3.f90 | 9 character(len=100) line1, line2 variable in program:intrinsic_unpack 20 write (line2,'(10I4)') unpack((/2_k, 3_k, 4_k/), mask, ak) 21 if (line1 .ne. line2) call abort
|
H A D | intrinsic_spread_3.f90 | 11 character (len=200) line1, line2, line3 variable in program:foo 20 line2 = ' ' 21 write(line2, 9000) spread (a_k, 1, 2) 22 if (line1 /= line2) call abort
|
H A D | intrinsic_spread_2.f90 | 13 character (len=200) line1, line2, line3 variable in program:foo 21 line2 = ' ' 22 write(line2, 9010) spread (ar_k, 1, 2) 23 if (line1 /= line2) call abort 39 line2 = ' ' 40 write(line2, 9020) spread (ac_k, 1, 2) 41 if (line1 /= line2) call abort
|
H A D | reshape.f90 | 13 character (len=80) line1, line2, line3 variable in program:resh 29 write (line2,'(6F8.3)') a 30 if (line1 /= line2 ) call abort
|
H A D | intrinsic_spread_1.f90 | 36 character (len=200) line1, line2, line3 variable in program:foo 45 line2 = ' ' 46 write(line2, 9000) spread (a_1, 1, 2) 47 if (line1 /= line2) call abort 61 line2 = ' ' 62 write(line2, 9000) spread (a_2, 1, 2) 63 if (line1 /= line2) call abort 77 line2 = ' ' 78 write(line2, 9000) spread (a_4, 1, 2) 79 if (line1 /= line2) cal [all...] |
H A D | intrinsic_unpack_2.f90 | 12 character(len=500) line1, line2 variable in program:intrinsic_unpack 25 write (line2,'(9F9.5)') unpack((/2._k, 3._k, 4._k/), mask, ark) 26 if (line1 .ne. line2) call abort 40 write (line2,'(18F9.5)') unpack((/(2._k, 0._k), (3._k, 0._k), (4._k,0._k)/), & 42 if (line1 .ne. line2) call abort
|
H A D | intrinsic_unpack_1.f90 | 20 character(len=500) line1, line2 variable in program:intrinsic_unpack 30 write (line2,'(10I4)') unpack((/2_1, 3_1, 4_1/), mask, a1) 31 if (line1 .ne. line2) call abort 42 write (line2,'(10I4)') unpack((/2_2, 3_2, 4_2/), mask, a2) 43 if (line1 .ne. line2) call abort 54 write (line2,'(10I4)') unpack((/2_4, 3_4, 4_4/), mask, a4) 55 if (line1 .ne. line2) call abort 66 write (line2,'(10I4)') unpack((/2_8, 3_8, 4_8/), mask, a8) 67 if (line1 .ne. line2) call abort 80 write (line2,'( [all...] |
H A D | shift-alloc.f90 | 8 character(len=80) line1, line2 variable in program:main
|
H A D | dependency_40.f90 | 11 character(len=80) :: line1, line2
|
/haiku-buildtools/legacy/gcc/libf2c/libU77/ |
H A D | u77-test.f | 61 character ctim*25, line*80, lognam*20, wd*100, line2*80, ddate*8, variable 102 line2 = ttynam(6) 104 line = 'and 6 is a tty device (ISATTY) named '//line2 110 if (line .ne. line2) then
|
/haiku-buildtools/legacy/gcc/texinfo/util/ |
H A D | texindex.c | 445 compare_full (line1, line2) 446 char **line1, **line2; 458 char *start2 = find_field (&keyfields[i], *line2, &length2); 460 start2, length2, *line2 - text_base); 478 compare_prepared (line1, line2) 479 struct lineinfo *line1, *line2; 488 if (line1->text - text_base > line2->text - text_base) 494 tem = line1->key.number - line2->key.number; 497 line2->key.text, line2 [all...] |
H A D | install-info.c | 1104 menu_line_lessp (line1, len1, line2, len2) 1107 char *line2; 1117 if (line1[i] == ':' && line2[i] != ':') 1119 if (line2[i] == ':' && line1[i] != ':') 1122 if (line1[i] < line2[i]) 1124 if (line1[i] > line2[i]) 1137 menu_line_equal (line1, len1, line2, len2) 1140 char *line2; 1149 if (line1[i] == ':' && line2[i] == ':') 1152 if (line1[i] != line2[ [all...] |
/haiku-buildtools/cloog/source/matrix/ |
H A D | constraintset.c | 909 cloog_int_t *line, *line2, val, x, y, g; local 921 line2 = line_vector2->p; 979 cloog_constraint_copy_coefficients(equal_constraint, line2+1); 980 cloog_seq_combine(line+1, y, line+1, val, line2+1, i); 982 val, line2+len2-nb_par-1, nb_par+1);
|
/haiku-buildtools/gcc/gcc/testsuite/go.test/ |
H A D | go-test.exp | 46 if { [gets $f2 line2] < 0 } { 51 if { $line1 != $line2 } { 54 verbose -log "got \"$line2\"" 59 if { [gets $f2 line2] >= 0 } {
|