📄 inquire_9.f90
字号:
! PR fortran/24774! { dg-do run } logical :: l l = .true. inquire (file='inquire_9 file that should not exist', exist=l) if (l) call abort l = .true. inquire (unit=-16, exist=l) if (l) call abort open (unit=16, file='inquire_9.tst') print (unit=16, fmt='(a)'), 'Test' l = .false. inquire (unit=16, exist=l) if (.not.l) call abort l = .false. inquire (file='inquire_9.tst', exist=l) if (.not.l) call abort close (unit=16) l = .false. inquire (file='inquire_9.tst', exist=l) if (.not.l) call abort open (unit=16, file='inquire_9.tst') close (unit=16, status='delete')end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -