/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/testsuite/ada/acats/tests/c8/ |
H A D | c85005a.ada | 91 XR1 : RECORD1 RENAMES R1; variable 218 GENERIC1 (XI1, XA1, XR1, XP1, XV1, XT1, XK1); 231 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(1)) THEN 252 PROC1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 262 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(2)) THEN 283 CHK_TASK.ENTRY1(XI1, XA1, XR1, XP1, XV1, XT1, XK1); 293 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(3)) THEN 316 XR1 := (D => 1, FIELD1 => XR1.FIELD1 + 1); 330 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(4)) THEN 367 IF XR1 /= (D => 1, FIELD1 => IDENT_INT(5)) THEN
|
/dports/lang/pcc/pcc-1.1.0/arch/pdp10/ |
H A D | macdefs.h | 181 #define XR1 021 macro 205 { XR0, XR1, -1 }, \ 206 { XR1, XR2, -1 }, \ 220 { R0, R1, XR1, -1 }, \ 222 { R2, R3, XR1, XR3, -1 }, \ 236 #define RETREG(x) (szty(x) == 2 ? XR1 : R1)
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlaln2.f | 249 $ UR22, XI1, XI2, XR1, XR2 438 XR1 = ( SCALE*BR1 )*UR11R - XR2*( UR11R*UR12 ) 441 X( 2, 1 ) = XR1 443 X( 1, 1 ) = XR1 446 XNORM = MAX( ABS( XR1 ), ABS( XR2 ) ) 576 XR1 = UR11R*BR1 - UI11R*BI1 - UR12S*XR2 + UI12S*XI2 580 X( 2, 1 ) = XR1 584 X( 1, 1 ) = XR1 589 XNORM = MAX( ABS( XR1 )+ABS( XI1 ), ABS( XR2 )+ABS( XI2 ) )
|