| Summary: | [4.5 Regression] Spurious diagnostic "Extraneous characters in format" | ||
|---|---|---|---|
| Product: | gcc | Reporter: | Tobias Burnus <burnus> |
| Component: | fortran | Assignee: | Bud Davis <bdavis> |
| Status: | RESOLVED FIXED | ||
| Severity: | normal | CC: | bdavis, gcc-bugs |
| Priority: | P3 | Keywords: | diagnostic |
| Version: | 4.5.0 | ||
| Target Milestone: | 4.5.0 | ||
| Host: | Target: | ||
| Build: | Known to work: | ||
| Known to fail: | Last reconfirmed: | 2009-08-25 02:04:57 | |
Also the following fixed-format format looks OK to me:
WRITE (6,'(//'' icorr is not correctly transferred. icorr='',i5)
& ') 42
END
But it produces:
WRITE (6,'(//'' icorr is not correctly transferred. icorr='',i5)
1
Warning: Extraneous characters in format at (1)
Another test case:
character(100), parameter :: subchapter='(79("-"),/,5("-")," ",A,/,79("-"),/)'
write(*,subchapter) 'test'
end
Here the error message is:
write(*,subchapter) 'test'
1
Warning: Extraneous characters in format at (1)
Note that the error shows the line with the write statement, not the line containing the format string.
(In reply to comment #0) > Due to committal: > > URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=151021 For me r151028 seems to work, but r151039 shows the error. The patch of PR 28093 was reverted -- thus closing as fixed. (In reply to comment #4) > The patch of PR 28093 was reverted -- thus closing as fixed. Wrong patch PR. The correct one is PR fortran/28039 |
gfortran now warns for trailing characters in format statements. However, it does not properly work as the following test case (extracted from FLEUR, www.flapw.de) shows: 7182 FORMAT (a3) 1 Warning: Extraneous characters in format at (1) Due to committal: URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=151021 Log: 2009-08-22 Bud Davis <bdavis9659@sbcglobal.net> PR fortran/28093 * io.c : added variable to store original len of fmt * io.c (check_format): Consume H items using next_char in both modes to handle consecutive single quotes. Test for extra characters in fmt, issue warning. Test case: SUBROUTINE rw_inp() CHARACTER(len=100) :: line READ(*,FMT="(4x,a)") line 7182 FORMAT (a3) 7130 FORMAT (i3) END SUBROUTINE rw_inp