! { dg-do run } | |
! PR25264 Verify that the internal unit, str, is not cleared | |
! before it is needed elsewhere. This is an extension. | |
! Test derived from test case by JPR. Contributed by | |
! Jerry DeLisle <jvdelisle@verizon.net>. | |
program write_padding | |
character(len=10) :: str | |
real :: atime | |
str = '123' | |
write( str, '(a3,i1)' ) trim(str),4 | |
if (str.ne."1234") call abort() | |
end program write_padding | |