URL: https://www.opennet.ru/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 4101
[ Назад ]
Исходное сообщение
"FORTRAN"
Отправлено Новичек , 28-Мрт-05 22:26 
Привет всем!!!

Есть тестовая задача на фортране-90.
Под Windows2000 идет всё нормально, в FreeBSD 5.3(gcc3.2.2)
выдает вот такую ошибку:

#f77 -ff90 /root/test.for

/root/test_unix/text22.for: In program `mtime':
/root/test_unix/text22.for:13:

          CALL DATE_AND_TIME(values = mydate)
               ^
Reference to intrinsic `DATE_AND_TIME' at (^) invalid -- one or more arguments have incorrect type
/root/test_unix/text22.for:13:
           CALL DATE_AND_TIME(values = mydate)
                1                    2
Invalid token at (2) in expression or subexpression at (1)
/root/test_unix/text22.for:41:
           CALL DATE_AND_TIME(values = mydate)
                ^
Reference to intrinsic `DATE_AND_TIME' at (^) invalid -- one or more arguments have incorrect type
/root/test_unix/text22.for:41:
           CALL DATE_AND_TIME(values = mydate)
                1                    2
Invalid token at (2) in expression or subexpression at (1)

Программа ни чего особенного не делает, выполняет некоторые математические операции, а для сравнения скорости с Windows2000 вначале и в конце расчёта  запрашивает время командой

integer*4 mydate(8)

CALL DATE_AND_TIME(values = mydate)

Помогите,а то весь день мучаюсь.

Содержание
Сообщения в этом обсуждении
"FORTRAN"
Отправлено dimus , 29-Мрт-05 09:35 
А тут не может быть проблема в регистре букв? Или фортрану регистр побоку?
"FORTRAN"
Отправлено Новичек , 29-Мрт-05 12:24 
>А тут не может быть проблема в регистре букв? Или фортрану регистр
>побоку?

Насчёт регистра не знаю(сам я пишу на С++), но при попытке писать большими буквами выдаёт тоже самое.


"FORTRAN"
Отправлено denlu , 31-Мрт-05 18:44 
>Привет всем!!!
>
>Есть тестовая задача на фортране-90.
>Под Windows2000 идет всё нормально, в FreeBSD 5.3(gcc3.2.2)
>выдает вот такую ошибку:
>
>#f77 -ff90 /root/test.for
>
>/root/test_unix/text22.for: In program `mtime':
>/root/test_unix/text22.for:13:
>
>          CALL DATE_AND_TIME(values
>= mydate)
>            
>   ^
>Reference to intrinsic `DATE_AND_TIME' at (^) invalid -- one or more arguments
>have incorrect type
>/root/test_unix/text22.for:13:
>           CALL
>DATE_AND_TIME(values = mydate)
>            
>    1      
>          
>  2
>Invalid token at (2) in expression or subexpression at (1)
>/root/test_unix/text22.for:41:
>           CALL
>DATE_AND_TIME(values = mydate)
>            
>    ^
>Reference to intrinsic `DATE_AND_TIME' at (^) invalid -- one or more arguments
>have incorrect type
>/root/test_unix/text22.for:41:
>           CALL
>DATE_AND_TIME(values = mydate)
>            
>    1      
>          
>  2
>Invalid token at (2) in expression or subexpression at (1)
>
>Программа ни чего особенного не делает, выполняет некоторые математические операции, а для
>сравнения скорости с Windows2000 вначале и в конце расчёта  запрашивает
>время командой
>
>integer*4 mydate(8)
>
>CALL DATE_AND_TIME(values = mydate)
>
>Помогите,а то весь день мучаюсь.

у меня в коде вызов этой процедуры выглядит так
    character(80)           chtrash;
    integer                   iaDateAndTime(8);
...

call date_and_time(chtrash,chtrash,chtrash,iaDateAndTime);

Попробуй все-же явно указать первые три фактических аргумента и убери values = mydate на всякий.