Цей приклад обчислює середнє арифметичне з даних, введених інтерактивно: program average ! обчислення середнього арифметичного для заданих чисел ! якщо немає вводу, повертаємо нуль ! така поведінка обрана для спрощення коду implicit none real, dimension(:), allocatable :: points integer :: number_of_points real :: average_points=0., positive_average=0., negative_average=0.