program read1
 10	print *, ' Enter values for a, b, i and j:'
C We will deliberately try to read wrong values to see what happens'
	read (*,*,end=20,err=30) a, b, i, j
	print *, 'a = ', a, '; b = ', b, '; i = ', i, '; j = ', j
	goto 10
  20	print *, ' Ctrl d pressed. No more data expected. Exit'
	goto 10
  30	print *, ' Error in data entered. Try again'
	goto 10	
	end