LINUX.ORG.RU

История изменений

Исправление mky, (текущая версия) :

Компилятор настаивал на возвращении из функции real

В программе (после program fibtest) должно быть: 

integer :: fib
иначе тип возвращаемого значения функции (как и типы переменных) определяются по первой букве.

Принять параметр на вход

Если число со stdin, то 

read(*,*) n
do i=0,n
если хочется как аргумент командной строки, то там до 2003 единого стандарта не было, но можно для gnu компилятора что-то написать.

запринтить время не вышло и подавно.

cpu_time() это процедура (подпрограмма), а не функция, она ничего не возвращает, изменяет значение переданной её переменной: 

call cpu_time(tst) ! в tst будет время в float
...
call cpu_time(tfn)
write(*,*) tfn-tst

Исходная версия mky, :

Компилятор настаивал на возвращении из функции real

В программе (после program fibtest) должно быть: 

integer :: fib
иначе тип возвращаемого значения функции (как и типы переменных) определяются по первой букве.

Принять параметр на вход

Если число со stdin, то 

read(*,*) n
do i=0,n
если хочется как аргумент командной строки, то там до 2003 единого стандарта не было, но можно для gnu компилятора что-то написать.

запринтить время не вышло и подавно.

cpu_time() это процедура (подпрограмма), а не функция, она ничего не возвращает, изменяет значение переданной её переменной: 

call cpu_time(tst) ! в tm будет время в float
...
call cpu_time(tfn)
write(*,*) tfn-tst