📄 inquire_8.f90
字号:
! { dg-do compile }! fortran/pr20846program inquire_8 character(len=20) :: n = 'data' integer :: d = 23 logical a inquire(file=n,unit=d,opened=a) ! { dg-error "contain both FILE and UNIT" } inquire(unit=d,file=n,opened=a) ! { dg-error "contain both FILE and UNIT" } inquire(opened=a) ! { dg-error "requires either FILE or UNIT" }end program inquire_8
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -