VPF::Условная компилация - Форум программистов

Traum

Дата 13.3.2014, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 30.1.2004

Репутация: нет
Всего: нет

Здравствуйте!

Подскажите, пожалуйста, почему у меня не работает условная компиляция в Compaq Visual Fortran:

Код


      !DEC$ IF (SELECTED_REAL_KIND == 4)
         call LSLRG(SIZE(X), A, SIZE(X), B, 1, X)    ! здесь на вход требуется real (4)
      !DEC$ ELSE
        call DLSLRG(SIZE(X), A, SIZE(X), B, 1, X)   ! здесь на вход требуется real (8)
      !DEC$ ENDIF

Если я выбираю в проекте настройку на real(4) и компилирую, то компилятор ругается на строку 4, хотя по уловию компиляции он должен ее игнорировать.
Если я выбираю в проекте настройку на real(8) и компилирую, то компилятор ругается на строку 2, хотя по уловию компиляции он должен ее игнорировать.

Что я сделал не так?

Фантом

Дата 13.3.2014, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: 5
Всего: 49

Цитата(Traum @ 13.3.2014, 19:05

)

Что я сделал не так?

Вообще говоря, правильный ответ звучит так: воспользовались древним компилятором, который и в лучшие годы был, мягко говоря, не слишком пристойным (ввиду хронического несоответствия стандартам).

А более полезный ответ такой: а зачем Вам, собственно, условная компиляция? Все то же самое можно сделать средствами языка.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Fortran \| Следующая тема »