📄 assumed_present.f90
字号:
! { dg-do compile }! This tests the fix for the regression PR25785, where line 7 started! generating an assumed size error.! Contributed by Dale Ranta <dir@lanl.gov> subroutine my_sio_file_write_common(data_c1) character, intent(in), optional :: data_c1(*) if (present(data_c1)) then endif end subroutine my_sio_file_write_common
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -