[Bug fortran/54679] New: Erroneous "Expected P edit descriptor" in conjunction with L descriptor

[nmm1 at cam dot ac.uk]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54679



             Bug #: 54679

           Summary: Erroneous "Expected P edit descriptor" in conjunction

                    with L descriptor

    Classification: Unclassified

           Product: gcc

           Version: 4.6.3

            Status: UNCONFIRMED

          Severity: normal

          Priority: P3

         Component: fortran

        AssignedTo: unassig...@gcc.gnu.org

        ReportedBy: n...@cam.ac.uk





I get a spurious "Expected P edit descriptor in format string" in

conjunction with the L0 descriptor in a non-trivial format.  Changing

the L0 to I0 or F0.0 works.  It MAY be environment dependent, as I have

also failed to see it in another test program.  The oprogram is not

worth attaching.



PROGRAM Main

    IMPLICIT NONE

    CHARACTER(LEN=*), PARAMETER ::    &

        format1 = "(A,1X,I2,1X,A,1X,I2,1X,A,2(1X,I0,1X),A,2(1X,I0,1X))",    &

        format2 = "(A,1X,I2,1X,A,1X,I2,1X,A,2(1X,I0,1X),A,2(1X,L0,1X))",    &

        format3 = "(A,1X,I2,1X,A,1X,I2,1X,A,2(1X,I0,1X),A,2(1X,F0.0,1X))"

    PRINT format1

    PRINT format2

    PRINT format3

END PROGRAM Main



gives:



junk.f90:8.55:



    PRINT format2

                                                       1

Error: Expected P edit descriptor in format string at (1)