dollar_edit_descriptor-1.f

来自「linux下编程用 编译软件」· F 代码 · 共 14 行

F
14
字号
! { dg-do run }! { dg-options "-w" }! PR libfortran/20006      character*5 c      open (42,status='scratch')      write (42,'(A,$)') 'abc'      write (42,'(A)') 'de'      rewind (42)      read (42,'(A)') c      close (42)      if (c /= 'abcde') call abort      end

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?