program bug
this program is full of errors
real :: a,b,c
a = b + c
read *,c
print *,a
end program simple