PR libfortran/23760
* gfortran.dg/g77/1832.f: Remove long string in write statement
to allow the test to pass on correct list directed output with
prepended space.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104027
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-09-07 Jerry DeLisle <jvdelisle@verizon.net>
+
+ PR libfortran/23760
+ * gfortran.dg/g77/1832.f: Remove long string in write statement
+ to allow the test to pass on correct list directed output with
+ prepended space.
+
2005-09-07 James E Wilson <wilson@specifix.com>
* gcc.dg/intmax_t-1.c: Disable for xscale*-*-elf*.
c { dg-do run }
- character*120 file
character*5 string
- file = "c:/dos/adir/bdir/cdir/text.doc"
- write(string, *) "a ", file
+ write(string, *) "a "
if (string .ne. ' a') call abort
C-- The leading space is normal for list-directed output
-C-- "file" is not printed because it would overflow "string".
+
end