＜ERR= Example Program＞

Program err_specifier_example
  Character(80) :: errortext
  Character(8) :: text(2) = (/ '3.5','bad' /)
  Do i=1,Size(text)
      Read (text(i),*,Err=10,Iomsg=errortext) x
      Print *,'Read value',x
  End do
  Stop
10 Continue
  Print *,'Bad value read: ',Trim(errortext)
End Program

■ Execution Results

 Read value   3.5000000
 Bad value read: Invalid input for real editing