blob: 280d7ded0c3fe89eb3822263c9173dff5aa0f9a7 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-std=f2008" }
program errorstop
integer :: ec
read *, ec
stop ec ! { dg-error "STOP code at " }
end program