Возникла локальная проблема в написании лабы. Есть статический массив с(i) из жестко заданных чисел. Пользователь вводит число h с клавиатуры. Программа должна проверять, входит ли это число в массив с(i). Если да - то номер, под которым это число стоит в массиве, присваивается, как значение еще какой-то переменной, которую мы потом будем использовать, но это не так важно. Посмотрите, пожалуйста, и скажите, что я делаю не так?
real c(8) /0.5, 0.6, 0.7, 0.8, 0.9, 0.95, 0.98, 0.999/
...
write(*,*) 'vvedite h'
read *, h
do i=1,8
if h==с(i) then y=i exit
endif
enddo
Ибо выводит ошибку "error 773 - Variable H follows another operand (possible unexpected space?)" 

Как-то так

Не хочет(
При компиляции ошибки не возникает, но во время работы самой программы выкидывает ошибку: 
 EXAMPLE -  in file freeformat2222.f95 at line 17 [+018e]
Причем, независимо от того, работает ли программа автономно, так, как вы ее написали, либо участком кода, уже включенным в мою...

OSYS, странно. В упор не вижу ошибки. Да тут всё просто, вроде...

Проверял на gfortran 4.4.1 и ifort 11.1. Работает.

Что у Вас за компилятор?

Добавлено через 12 минут и 48 секунд

И до кучи pgf95 10.2 и pathf95 3.2.

У меня Plato IDE(работаю из под винды, не из под линукса). Но, вообще, странно. На универском Плато программа работает на ура, безо всяких ошибок. Интересно, почему так...