This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
New testcase for PR fortran/7388
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- To: gcc-patches at gcc dot gnu dot org
- Date: Sun, 08 Sep 2002 15:11:20 +0200
- Subject: New testcase for PR fortran/7388
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
I added the following testcase to g77.dg to test for Problem Report
fortran/7388.
The original test case wrote to stdout and didn't fail without
optimisation, but this one fails under all flags as long as
-fbounds-check is added.
I get the impression that this isn't a frontend error, but as yet I
haven't been able to prove it.
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
Join GNU Fortran 95: http://g95.sourceforge.net/ (under construction)
C { dg-do run }
C { dg-options "-fbounds-check" }
character*25 buff(0:10)
character*80 line
integer i, m1, m2
i = 1
m1 = 1
m2 = 7
buff(i) = 'tcase0a'
write(line,*) buff(i)(m1:m2)
if (line .ne. ' tcase0a') call abort
end