Советское - значит, отличное

[spamsink]

...ракета-носитель отклонилась от намеченного курса и была взорвана по команде с Земли

Знакомо? А что ж вы хотели:

F О R Е Х ИПМ АН СССР 4.12 ОТ 25.06.85 ВРЕМЯ:  00.00

   1                РRОGRАМ МАIN
   2                DОUВLЕ РRЕСISIОN Х,У
   3                Х=1.D0
   4                У=1.0D0
   5                Х=Х-У
   6                РRINТ 10,У,Х
   7           10   FОRМАТ (1Х,2D50.40)
   8                SТОР
   9                ЕND


               ТАБЛИЦА ОТНОСИТЕЛЬНЫХ АДРЕСОВ

        1    2    3    4    5    6    7    8    9   10
    0 :    :    :   1:   3:   6:  12:    :  21:    :  22
КОМАНД 00030    КОНСТАНТ 00006    ПАМЯТЬ ДЛЯ ПЕРЕМЕННЫХ 00004
ДЛИНА ПОДПРОГРАММЫ МАIN   00042

           *ЕХЕСUТЕ
     9.9999999999999999999999735302203982320601-001    1.6543612251060553497428173841399257071316-024

Comments

[dvv.livejournal.com]

И нех на советское гнать:

Ф О Р Т Р А Н
   /16.07.73/
                РRОGRАМ МАIN
                DОUВLЕ РRЕСISIОN Х,У
                Х=1.D0
       2        У=1.0D0
       3        Х=Х-У
       4        РRINТ 10,У,Х
          10    FОRМАТ (1Х,2D50.40)
       5        SТОР
                ЕND



                                      ТАБЛИЦА  ОТНОСИТЕЛЬНЫХ АДРЕСОВ

         1     2     3     4     5     6     7     8     9    10    11    12    13    14    15    16
17    18    19    20
 000  :00001:00003:00005:00010 00016
           *ЕХЕСUТЕ
     1.0000000000000000000000000000000000000000+000    0.0000000000000000000000000000000000000000+000

ИПМ, ИПМ…

[spamsink]

Как раз этот Фортран - калька с CDC-шного:

Весь транслятор был разбит на блоки, и каждый докладывал свой блок... Списывали, по правде говоря, с транслятора на CDC-1604. Но для нас, конечно, не нюхавших программирования, тем более, системного, это была работа творческая...

[dvv.livejournal.com]

Вплоть до формирования констант? Чё–т я сомневаюсь…

[spamsink]

Почему нет? Она тоже была 48-битная. Не удивлюсь, если представление чисел с плавающей точкой было такое же. IEEE тогда не было.

[dvv.livejournal.com]

И что, что 48–битная? Количество индекс–регистров и отсутствие упоминания о неполноценной целой арифметике наводит на мысль, что калькой оно таки не было.

[spamsink]

Если человек пишет, что компилятор передирался с CDCшного в целях совместимости, я не вижу причин ему не верить. Подозреваю, что округление в Дубне было по умолчанию выключено, чтобы CDCшные алгоритмы сходились.

[dvv.livejournal.com]

А где имманентная связь округления и различия в интерпретации констант 1.D0 и 1.0D0?

Кстати, ГДР в том же тексте назван „транслятором построже”, а на самом деле — строгости там были по части его идиосинкратичности, а не по части реализации языка. Обсуждаемый пример в этом смысле очень характерен.

[spamsink]

Я упомянул отсутствие округления как необходимое условие совместимости результатов фортрана-Дубна с CDC.
А почему в фортране-ГДР и форексе (у которого, как я понимаю, ноги растут из фортрана-ГДР) ошибка в интерпретации констант - неясно. Округлять там особенно нечего.

ГДР назван "транслятором построже", потому что у него, например, парсер был строже. В нем, например, ловится IF (A=B) GOTO 10, а в фортране-Дубна это значит A=B; IF (0.NE.0) GOTO 10

[reedcat.livejournal.com]

Округление в Дубне было включено.
Это я тебе как "численный физик" говорю... :)

[spamsink]

А я тебе как человек, только что посмотревший на выдачу *FULL LIST говорю. ,NTR, 18 понимаешь?

[reedcat.livejournal.com]

Да.