diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/write_padding.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/write_padding.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/write_padding.f90 b/gcc/testsuite/gfortran.dg/write_padding.f90 new file mode 100644 index 000000000..e1c37917d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/write_padding.f90 @@ -0,0 +1,13 @@ +! { 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 + |