--- Comment #18 from jvdelisle at gcc dot gnu dot org 2009-10-12 13:42
---
See PR 41683 and continue there.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38439
--- Comment #17 from dominiq at lps dot ens dot fr 2009-10-12 13:31 ---
I think the problem is here (around line 706 in the last commit):
if (t == FMT_F || t == FMT_EN || t == FMT_ES || t == FMT_D
|| t == FMT_G || t == FMT_E)
{
repeat = 1;
got
--- Comment #16 from jvdelisle at gcc dot gnu dot org 2009-10-12 12:42
---
Interestingly, I removed this previously:
switch (t)
{
-case FMT_P:
- t = format_lex (fmt);
- if (t == FMT_POSINT)
- {
- fmt->error = "Repeat count cannot follow P descriptor";
--- Comment #15 from dominiq at lps dot ens dot fr 2009-10-12 07:39 ---
The polyhedron test linpk.f90 now fails with:
[ibook-dhum] lin/test% linpk
norm. resid resid machep x(1) x(n)
At line 38 of file linpk.f90 (unit = 6, file = 'stdout')
Fortran run
--- Comment #14 from jvdelisle at gcc dot gnu dot org 2009-10-12 00:54
---
Subject: Bug 38439
Author: jvdelisle
Date: Mon Oct 12 00:54:11 2009
New Revision: 152658
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=152658
Log:
2009-10-11 Jerry DeLisle
PR libgfortran/384
--- Comment #13 from jvdelisle at gcc dot gnu dot org 2009-10-12 00:53
---
Subject: Bug 38439
Author: jvdelisle
Date: Mon Oct 12 00:52:45 2009
New Revision: 152657
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=152657
Log:
2009-10-11 Jerry DeLisle
PR libgfortran/384
--- Comment #12 from jvdelisle at gcc dot gnu dot org 2009-10-11 19:20
---
Fixed enough I think. Closing.
--
jvdelisle at gcc dot gnu dot org changed:
What|Removed |Added
--- Comment #11 from jvdelisle at gcc dot gnu dot org 2009-10-11 17:41
---
Subject: Bug 38439
Author: jvdelisle
Date: Sun Oct 11 17:41:23 2009
New Revision: 152645
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=152645
Log:
2009-10-11 Jerry DeLisle
PR fortran/38439
--- Comment #10 from jvdelisle at gcc dot gnu dot org 2009-10-11 17:38
---
Subject: Bug 38439
Author: jvdelisle
Date: Sun Oct 11 17:37:50 2009
New Revision: 152644
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=152644
Log:
2009-10-11 Jerry DeLisle
PR libgfortran/384
--- Comment #9 from kargl at gcc dot gnu dot org 2009-04-23 02:52 ---
(In reply to comment #8)
> Getting back to this. We have a problem of choices here. In format
> statements
> such as:
> WRITE (*,'(1PD24.15E4)') 1.0d0
>
> Currently gfortran allows an extension of an optional
--- Comment #8 from jvdelisle at gcc dot gnu dot org 2009-04-23 01:51
---
Getting back to this. We have a problem of choices here. In format statements
such as:
WRITE (*,'(1PD24.15E4)') 1.0d0
Currently gfortran allows an extension of an optional comma separating format
specifie
--- Comment #7 from jvdelisle at gcc dot gnu dot org 2009-01-24 18:11
---
Regarding the question on location markers: If gfc_error or gfc_warning are
used with the %C designator, only the current line is picked up. The actual
format token locus is saved in the format_locus pointer vari
--- Comment #6 from jvdelisle at gcc dot gnu dot org 2009-01-23 05:46
---
gfortran's current format parser is completely lost by the time an error is
thrown. I have a patch that detects the actual error and the locus is spot on.
I am fixing both compile time and run time to reject the
--- Comment #5 from burnus at gcc dot gnu dot org 2009-01-22 10:53 ---
> Thus: '(1pD24.15)' is valid
Fully agreed - that version is valid and accepted with gfortran, ifort, NAG f95
etc.
> While: '(1pD24.15e4)' is invalid
It is, but as written sunf95/openf95/gfortran 4.1 accept it at
--- Comment #4 from jvdelisle at gcc dot gnu dot org 2009-01-22 03:05
---
Further information: PD is not the problem here at all. The problem is that
when using the D edit descriptor, one is not allowed to also specify the
exponent digits.
Thus: '(1pD24.15)' is valid
While: '(1pD2
--- Comment #3 from jvdelisle at gcc dot gnu dot org 2009-01-21 06:51
---
I have been doing some digging. The "PD" edit descriptor is clearly defined in
the Fortran 66 standard in sections 7.2.3.1 and 7.2.3.5. The form of the scale
factor is nP
The D designates that the internal repr
--- Comment #2 from jvdelisle at gcc dot gnu dot org 2008-12-25 19:45
---
g77 runtime accepts this and prints:
character(len=25) :: str
str = '(1PD24.15E4)'
write (*,'(1PD24.15E4)') 1.0d0
WRITE (*,str) 1.0d0
end
$ g77 pr38439.f
$ ./a.out
1.00
--- Comment #1 from jvdelisle at gcc dot gnu dot org 2008-12-08 00:52
---
After thinking about it some, I think we should accept with -std=legacy since
it is accepted by g77
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38439
18 matches
Mail list logo
