2 ! This tests the fix for the regression PR25785, where line 7 started
3 ! generating an assumed size error.
4 ! Contributed by Dale Ranta <dir@lanl.gov>
5 subroutine my_sio_file_write_common(data_c1
)
6 character, intent(in
), optional
:: data_c1(*)
7 if (present(data_c1
)) then
9 end subroutine my_sio_file_write_common
