1! { dg-do compile } 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 8 endif 9 end subroutine my_sio_file_write_common 10