📄 iostat_1.f90
字号:
! { dg-do run }! PR 23598 - The iostat variable wasn't reset if the previous! I/O library call had an error.program main implicit none integer :: ios, i open (10, pad='no', status='scratch') write (10, '(A)') '1','1' rewind (10) read (10,'(I2)',iostat=ios) i ios = -4321 read (10, '(I1)', iostat=ios) i if (ios /= 0) call abortend program main
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -