program main
	integer,parameter:: m=6
	logical y
	integer x(20)
	logical yes
5	format(1p,i12,i5)
!error :label 10 is undefined
	open(6,err=10,delim='none')
	backspace (6)
!error:	label 10 is undefined 
	rewind(unit=m,err=10)
!error: label 10 is undefined 
	read(6,fmt=*) (x(i),i=1,20,1)
	read 6,i,j
	inquire(m,file='erer.f',exist=yes)   
	close(m)
end


