DataMuseum.dk

top - metrics - download

    Length: 5091 (0x13e3)
    Types: TextFile
    Names: »B«

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧ 

TextFile

-- CHECKS 150 INTEGER DECLARATIONS

with Instrument;
use Instrument;
procedure Intda2 is

    A1,

    A2,

    A3,

    A4,

    A5,

    A6,

    A7,

    A8,

    A9,

    A10,

    A11,

    A12,

    A13,

    A14,

    A15,

    A16,

    A17,

    A18,

    A19,

    A20,

    A21,

    A22,

    A23,

    A24,

    A25,

    A26,

    A27,

    A28,

    A29,

    A30,

    A31,

    A32,

    A33,

    A34,

    A35,

    A36,

    A37,

    A38,

    A39,

    A40,

    A41,

    A42,

    A43,

    A44,

    A45,

    A46,

    A47,

    A48,

    A49,

    A50,

    A51,

    A52,

    A53,

    A54,

    A55,

    A56,

    A57,

    A58,

    A59,

    A60,

    A61,

    A62,

    A63,

    A64,

    A65,

    A66,

    A67,

    A68,

    A69,

    A70,

    A71,

    A72,

    A73,

    A74,

    A75,

    A76,

    A77,

    A78,

    A79,

    A80,

    A81,

    A82,

    A83,

    A84,

    A85,

    A86,

    A87,

    A88,

    A89,

    A90,

    A91,

    A92,

    A93,

    A94,

    A95,

    A96,

    A97,

    A98,

    A99,

    A100,

    A101,

    A102,

    A103,

    A104,

    A105,

    A106,

    A107,

    A108,

    A109,

    A110,

    A111,

    A112,

    A113,

    A114,

    A115,

    A116,

    A117,

    A118,

    A119,

    A120,

    A121,

    A122,

    A123,

    A124,

    A125,

    A126,

    A127,

    A128,

    A129,

    A130,

    A131,

    A132,

    A133,

    A134,

    A135,

    A136,

    A137,

    A138,

    A139,

    A140,

    A141,

    A142,

    A143,

    A144,

    A145,

    A146,

    A147,

    A148,

    A149,

    A150 : Integer;



begin

    Start ("INTDA2", " CHECKS 150 INTEGER DECLARATIONS");

    for I in 1 .. 10000 loop

        A1 := 193;

        A2 := A1;

        A3 := A2;

        A4 := A3;

        A5 := A4;

        A6 := A5;

        A7 := A6;

        A8 := A7;

        A9 := A8;

        A10 := A9;

        A11 := A10;

        A12 := A11;

        A13 := A12;

        A14 := A13;

        A15 := A14;

        A16 := A15;

        A17 := A16;

        A18 := A17;

        A19 := A18;

        A20 := A19;

        A21 := A20;

        A22 := A21;

        A23 := A22;

        A24 := A23;

        A25 := A24;

        A26 := A25;

        A27 := A26;

        A28 := A27;

        A29 := A28;

        A30 := A29;

        A31 := A30;

        A32 := A31;

        A33 := A32;

        A34 := A33;

        A35 := A34;

        A36 := A35;

        A37 := A36;

        A38 := A37;

        A39 := A38;

        A40 := A39;

        A41 := A40;

        A42 := A41;

        A43 := A42;

        A44 := A43;

        A45 := A44;

        A46 := A45;

        A47 := A46;

        A48 := A47;

        A49 := A48;

        A50 := A49;

        A51 := A50;

        A52 := A51;

        A53 := A52;

        A54 := A53;

        A55 := A54;

        A56 := A55;

        A57 := A56;

        A58 := A57;

        A59 := A58;

        A60 := A59;

        A61 := A60;

        A62 := A61;

        A63 := A62;

        A64 := A63;

        A65 := A64;

        A66 := A65;

        A67 := A66;

        A68 := A67;

        A69 := A68;

        A70 := A69;

        A71 := A70;

        A72 := A71;

        A73 := A72;

        A74 := A73;

        A75 := A74;

        A76 := A75;

        A77 := A76;

        A78 := A77;

        A79 := A78;

        A80 := A79;

        A81 := A80;

        A82 := A81;

        A83 := A82;

        A84 := A83;

        A85 := A84;

        A86 := A85;

        A87 := A86;

        A88 := A87;

        A89 := A88;

        A90 := A89;

        A91 := A90;

        A92 := A91;

        A93 := A92;

        A94 := A93;

        A95 := A94;

        A96 := A95;

        A97 := A96;

        A98 := A97;

        A99 := A98;

        A100 := A99;

        A101 := A100;

        A102 := A101;

        A103 := A102;

        A104 := A103;

        A105 := A104;

        A106 := A105;

        A107 := A106;

        A108 := A107;

        A109 := A108;

        A110 := A109;

        A111 := A110;

        A112 := A111;

        A113 := A112;

        A114 := A113;

        A115 := A114;

        A116 := A115;

        A117 := A116;

        A118 := A117;

        A119 := A118;

        A120 := A119;

        A121 := A120;

        A122 := A121;

        A123 := A122;

        A124 := A123;

        A125 := A124;

        A126 := A125;

        A127 := A126;

        A128 := A127;

        A129 := A128;

        A130 := A129;

        A131 := A130;

        A132 := A131;

        A133 := A132;

        A134 := A133;

        A135 := A134;

        A136 := A135;

        A137 := A136;

        A138 := A137;

        A139 := A138;

        A140 := A139;

        A141 := A140;

        A142 := A141;

        A143 := A142;

        A144 := A143;

        A145 := A144;

        A146 := A145;

        A147 := A146;

        A148 := A147;

        A149 := A148;

        A150 := A149;



        if A150 /= 193 then

            Comment ("FAILED");

        end if;
    end loop;
    Stop;



end Intda2;